--- a/WinWorkstation.st	Wed Sep 04 23:11:30 2002 +0200
+++ b/WinWorkstation.st	Wed Sep 04 23:25:12 2002 +0200
@@ -9376,32 +9376,31 @@
 "/    aWindow printCR.
 
     IgnoreSysColorChanges ~~ true ifTrue:[
-	"/ first check, if there was really a change
-	"/ (when exceed is running, we get plenty of those messages ...)
-
-	SystemColorValues isNil ifTrue:[
-	    SystemColorValues := IdentityDictionary new.
-	].
-	anyChange := false.
-	self supportedSystemColorKeys do:[:key |
-	    |oldValue newValue|
-
-	    oldValue := SystemColorValues at:key ifAbsent:nil.
-	    newValue := self getSystemColor:key.
-	    oldValue ~= newValue ifTrue:[
-		SystemColorValues at:key put:newValue.
-		anyChange := true.
-	    ]
-	].
-	anyChange ifTrue:[
-	    "/ TODO: this should go through the sensor ...
-	    "/ ...and handled as an event by the views thread.
-	    View updateAllStyleCaches.
-
-	    aWindow withAllSubViewsDo:[:aView |
-		aView reinitStyle
-	    ]
-	]
+        "/ first check, if there was really a change
+        "/ (when exceed is running, we get plenty of those messages ...)
+
+        SystemColorValues isNil ifTrue:[
+            SystemColorValues := IdentityDictionary new.
+        ].
+        anyChange := false.
+        self supportedSystemColorKeys do:[:key |
+            |oldValue newValue|
+
+            oldValue := SystemColorValues at:key ifAbsent:nil.
+            newValue := self getSystemColor:key.
+            oldValue ~= newValue ifTrue:[
+                SystemColorValues at:key put:newValue.
+                anyChange := true.
+            ]
+        ].
+        anyChange ifTrue:[
+            "/ TODO: this should go through the sensor ...
+            "/ ...and handled as an event by the views thread.
+            SimpleView readStyleSheetAndUpdateAllStyleCaches.
+            aWindow withAllSubViewsDo:[:aView |
+                aView reinitStyle
+            ]
+        ]
     ]
 
     "Modified: / 10.9.1998 / 21:53:34 / cg"
@@ -15062,6 +15061,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.223 2002-09-04 21:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.224 2002-09-04 21:25:12 cg Exp $'
 ! !
 WinWorkstation initialize!