The Trunk: System-mt.717.mcz

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

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

Name: System-mt.717
Author: mt
Time: 4 April 2015, 1:09:08.74 pm
UUID: 36f8a140-a98f-a94a-9d2c-fd0851828baf
Ancestors: System-mt.716

Use general window-update function when changing window colors.

=============== Diff against System-mt.716 ===============

Item was changed:
  ----- Method: Preferences class>>installWindowColorsVia: (in category 'window colors') -----
  installWindowColorsVia: colorSpecBlock
  "Install windows colors using colorSpecBlock to deliver the color source for each element; the block is handed a WindowColorSpec object"
  "Preferences installBrightWindowColors"
 
  WindowColorRegistry refresh.
  self windowColorTable do:
  [:aColorSpec | | color |
  color := (Color colorFrom: (colorSpecBlock value: aColorSpec)).
  self setWindowColorFor: aColorSpec classSymbol to: color].
+ SystemWindow refreshAllWindows.
+ TheWorldMainDockingBar updateInstances.!
- SystemWindow withAllSubclasses do: [:c |
- c allInstances do: [:w | w refreshWindowColor]].
- TheWorldMainDockingBar updateInstances
- !