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

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

Name: System-mt.861
Author: mt
Time: 3 August 2016, 3:48:48.221245 pm
UUID: 74e725aa-ea12-df48-b3cf-730dba8dccc6
Ancestors: System-cmm.860

Provide progress indication when applying a new UI theme. Use 1000-ms updates to not slow-down the process unnecessarily.

=============== Diff against System-cmm.860 ===============

Item was changed:
  ----- Method: UserInterfaceTheme>>apply (in category 'actions') -----
  apply
  	"Apply this theme to all affected objects. Let classes decide on how to iterate and call their instances."
  
  	UserInterfaceTheme current: self.
  
  	self class clientClassesToReapply in: [:cc |
  		cc do: [:eachClass | eachClass applyUserInterfaceTheme].
+ 		(cc select: [:eachClass | eachClass canApplyThemeToInstances])
+ 			do: [:eachClass | eachClass applyThemeToInstances]
+ 			displayingProgress: [:eachClass | 'Applying {1} to instances of {2}' format: {self name. eachClass name}]
+ 			every: 1000 ].
- 		cc
- 			select: [:eachClass | eachClass canApplyThemeToInstances]
- 			thenDo: [:eachClass | eachClass applyThemeToInstances]].
  
  	Project current restoreDisplay.!