Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1309.mcz

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

Name: System-mt.1309
Author: mt
Time: 11 February 2022, 11:34:49.023944 am
UUID: 260fcd3c-331c-c345-8a27-8073fb63438c
Ancestors: System-mt.1308

Clarify the role of #themePriority. You cannot control the order of objects except for the classes. #allObjectsDo: will do the rest because it is reasonably fast.

=============== Diff against System-mt.1308 ===============

Item was changed:
  ----- Method: Object class>>themePriority (in category '*System-Preferences') -----
  themePriority
+ 	"Use this hook to control the order of class-side cache invalidation during theme updates. This means that caches that build upon each other can now be ordered. For example, TheWorldMainDockingBar should only be updated *after* MorphicToolBuilder reset its layout hints.
- 	"Use this hook to control the order of theme updates. For example, caches that are reused beyond a the scope of a single object should have a higher priority to be called first. Such caches are in TextAction, SHTextStylerST80, and TextDiffBuilder.
  	
  	We use the process priority model. 10 means low priority and 80 means high priority."
  
  	^ 0!

Item was changed:
  ----- Method: UserInterfaceTheme>>basicApply (in category 'private') -----
  basicApply
  	"Private. See #apply."
  
  	| classes |
  	classes := self class clientClassesToReapply. "Keep for fast #includes: check"
  	(classes sorted: [:a :b | a themePriority >= b themePriority]) do: [:eachClass |
  		(eachClass class includesSelector: #applyUserInterfaceTheme)
  			ifTrue: [eachClass applyUserInterfaceTheme]].
+ 
+ 	Cursor wait showWhile: [
+ 		SystemNavigation default allObjectsDo: [:o |
+ 			((classes includes: o class)
+ 				and: [o canApplyUserInterfaceTheme])
+ 					ifTrue: [o applyUserInterfaceTheme]]].!
- 		Cursor wait showWhile: [
- 			SystemNavigation default allObjectsDo: [:o |
- 				((classes includes: o class)
- 					and: [o canApplyUserInterfaceTheme])
- 						ifTrue: [o applyUserInterfaceTheme]]].!