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!