[squeak-dev] The Trunk: Tools-ct.1152.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 5 18:05:40 UTC 2022
Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1152.mcz
==================== Summary ====================
Name: Tools-ct.1152
Author: ct
Time: 5 May 2022, 8:05:36.989075 pm
UUID: dd670033-c40e-064c-967e-4ff97e0f6320
Ancestors: Tools-ct.1151
Enables syntax highlighting for the "decompiled" view. Fixes syntax highlighting in protocol browsers without a selected message.
=============== Diff against Tools-ct.1151 ===============
Item was changed:
----- Method: CodeHolder>>isModeStyleable (in category 'contents') -----
isModeStyleable
"determine the current mode can be styled"
+ ^ self showingSource or: [self showingPrettyPrint] or: [self showingDecompile]!
- ^ self showingSource or: [self showingPrettyPrint]!
Item was changed:
----- Method: MessageSet>>aboutToStyle: (in category 'code pane') -----
+ aboutToStyle: styler
- 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."
- 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 |
+ self isModeStyleable ifFalse: [^ false].
+
- | selectedMessageName showingMethod |
- self isModeStyleable ifFalse: [^false].
selectedMessageName := self selectedMessageName.
+ styler classOrMetaClass: self selectedClassOrMetaClass.
+ styler parseAMethod: (#(Comment Definition Hierarchy) includes: selectedMessageName) not.
+ ^ (#(Comment Hierarchy) includes: selectedMessageName) not!
- 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!
More information about the Squeak-dev
mailing list
|