Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1089.mcz

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

Name: Tools-ct.1089
Author: ct
Time: 15 December 2021, 5:58:19.081981 pm
UUID: fe910d2f-a382-5749-93ad-57dc0b850ff9
Ancestors: Tools-ct.1088

Fixes styling in several tools after toggling the diffs. Affected tools: change sorters, code holders, and dependency browsers. Twin patch of Tools-ct.1044. :-)

=============== Diff against Tools-ct.1088 ===============

Item was changed:
  ----- Method: ChangeSorter>>aboutToStyle: (in category 'code pane') -----
  aboutToStyle: aStyler
  	"This is a notification that aStyler is about to re-style its text.
  	Set the classOrMetaClass in aStyler, so that identifiers
  	will be resolved correctly.
  	Answer true to allow styling to proceed, or false to veto the styling"
  
+ 	self isModeStyleable ifFalse: [^false].
- 	contentsAreStyleable ~= false ifFalse: [^false].
  	aStyler classOrMetaClass: self selectedClassOrMetaClass.
  	^true!

Item was changed:
  ----- Method: CodeHolder>>aboutToStyle: (in category 'code pane') -----
  aboutToStyle: aStyler
  
  	currentCompiledMethod ifNil: [^ false].
+ 	self isModeStyleable ifFalse: [^ false].
  	aStyler classOrMetaClass: self selectedClassOrMetaClass.
  	^ true!

Item was changed:
  ----- Method: DependencyBrowser>>aboutToStyle: (in category 'contents') -----
  aboutToStyle: aStyler
  	"This is a notification that aStyler is about to re-style its text.
  	Set the classOrMetaClass in aStyler, so that identifiers
  	will be resolved correctly.
  	Answer true to allow styling to proceed, or false to veto the styling"
  	| selectedClass |
  	selectedClass := self classListSelection ifNil:[^false].
  	self messageListSelection ifNil:[^false].
+ 	self isModeStyleable ifFalse: [^ false].
  	aStyler classOrMetaClass: ((self messageListSelection == #Definition) ifFalse:[Smalltalk classNamed: selectedClass]).
  	^true!