The Inbox: Tools-ct.1044.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Inbox: Tools-ct.1044.mcz

A new version of Tools was added to project The Inbox:

==================== Summary ====================

Name: Tools-ct.1044
Author: ct
Time: 29 April 2021, 4:11:22.748797 pm
UUID: c5dcb710-6784-bf4e-a9e6-52ce7385bf32
Ancestors: Tools-mt.1043

Fixes styling in MessageSets when prettyPrint is turned on.

=============== Diff against Tools-mt.1043 ===============

Item was changed:
  ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') -----
  aboutToStyle: aPluggableShoutMorphOrView
  "This is a notification that aPluggableShoutMorphOrView is about to re-style its text.
  Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers
  will be resolved correctly.
  Answer true to allow styling to proceed, or false to veto the styling"
  | selectedMessageName showingMethod |
+ self isModeStyleable ifFalse: [^false].
- self showingSource ifFalse: [^false].
  selectedMessageName := self selectedMessageName.
  showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not.
  "Hack!!  setting classOrMetaClass: to nil allows doit or class definition colouring."
  aPluggableShoutMorphOrView classOrMetaClass: (showingMethod ifTrue: [self selectedClassOrMetaClass]).
  ^(#(Comment Hierarchy) includes: selectedMessageName) not!