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.!
Locked
