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

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

Name: System-ct.1278
Author: ct
Time: 10 January 2022, 10:25:10.923477 pm
UUID: 2f741962-60cc-e94f-b885-996c93b6baa3
Ancestors: System-eem.1277

Fixes AppRegistry test for TextStyler by introducing public #allRegisteredClasses selector that can be overridden by subclasses that redefine the layout of registeredClasses. Also implements #removeObsolete correctly on TextStyler.

=============== Diff against System-eem.1277 ===============

Item was added:
+ ----- Method: AppRegistry class>>allRegisteredClasses (in category 'registration') -----
+ allRegisteredClasses
+ 
+ 	^ self registeredClasses!

Item was changed:
  ----- Method: AppRegistry class>>removeObsolete (in category 'registration') -----
  removeObsolete
+ 	"AppRegistry removeObsolete"
- 	"AppRegistry removeObsoleteClasses"
  	self registeredClasses copy do:[:cls| 
  		(cls class isObsolete or:[cls isBehavior and:[cls isObsolete]]) 
  			ifTrue:[self unregister: cls]].
  	self subclasses do:[:cls| cls removeObsolete].!

Item was added:
+ ----- Method: TextStyler class>>allRegisteredClasses (in category 'registration') -----
+ allRegisteredClasses
+ 
+ 	^ self knownSyntaxes gather: [:syntax | self registeredClassesFor: syntax]!

Item was added:
+ ----- Method: TextStyler class>>knownSyntaxes (in category 'registration') -----
+ knownSyntaxes
+ 
+ 	^ registeredClasses keys!

Item was added:
+ ----- Method: TextStyler class>>registeredClassesFor: (in category 'registration') -----
+ registeredClassesFor: syntax
+ 
+ 	^ registeredClasses at: syntax!

Item was added:
+ ----- Method: TextStyler class>>removeObsolete (in category 'registration') -----
+ removeObsolete
+ 	"TextStyler removeObsolete"
+ 	self registeredClasses copy keysAndValuesDo: [:syntax :classes |
+ 		classes do: [:cls |
+ 			(cls class isObsolete or: [cls isBehavior and: [cls isObsolete]]) 
+ 				ifTrue: [self unregister: cls for: syntax]]].
+ 	self subclasses do: [:cls| cls removeObsolete].!