--- a/Scroller.st	Tue Feb 18 17:10:21 2014 +0100
+++ b/Scroller.st	Tue Feb 18 17:20:37 2014 +0100
@@ -410,8 +410,8 @@
 
     StyleSheet fileReadFailed ifTrue:[
         DefaultViewBackground := Grey.
-        DefaultThumbColor := White.
-        DefaultThumbFrameColor := Black.
+        DefaultThumbColor := Color white.
+        DefaultThumbFrameColor := Color black.
         DefaultInset := 1.
     ].
 
@@ -2222,7 +2222,7 @@
     graphicsDevice hasGrayscales ifFalse:[
         thumbEdgeStyle notNil ifTrue:[
             thumbHalfShadowColor := Color darkGray.
-            thumbHalfLightColor := White
+            thumbHalfLightColor := self whiteColor
         ].
 
         thumbShadowColor := Black.
@@ -2230,7 +2230,7 @@
 
         nm = #motif ifTrue:[
             DefaultThumbColor isNil ifTrue:[
-                thumbColor := White .
+                thumbColor := self whiteColor.
             ].
         ]
     ].
@@ -2238,7 +2238,7 @@
     DefaultThumbColor notNil ifTrue:[
         thumbColor := DefaultThumbColor onDevice:graphicsDevice
     ] ifFalse:[
-        thumbColor := White.
+        thumbColor := self whiteColor.
         nm ~= #normal ifTrue:[
             graphicsDevice hasGrayscales ifFalse:[
                 thumbColor := Color grey
@@ -2757,10 +2757,10 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.203 2014-02-18 15:12:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.203 2014-02-18 15:12:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $'
 ! !