--- a/ObjectView.st	Tue Feb 18 17:20:37 2014 +0100
+++ b/ObjectView.st	Tue Feb 18 17:21:26 2014 +0100
@@ -1630,8 +1630,8 @@
     littleStepH := params at:3.
     littleStepV := params at:4.
     showDocumentBoundary := params at:7.
-    fg := Black.
-    bg := White.
+    fg := self blackColor.
+    bg := self whiteColor.
     params size >= 8 ifTrue:[
         bg := params at:8.
         params size >= 9 ifTrue:[
@@ -1864,8 +1864,8 @@
     arr at:5 put:littleStepH.
     arr at:6 put:littleStepV.
     arr at:7 put:false.
-    arr at:8 put:White.
-    arr at:9 put:Black.
+    arr at:8 put:self whiteColor.
+    arr at:9 put:self blackColor.
 
     ^ arr
 !
@@ -1887,7 +1887,7 @@
     gridPixmap := nil.
     shown ifTrue:[
         params := self gridParameters.
-        bg := White.
+        bg := self whiteColor.
         params size >= 8 ifTrue:[
             bg := params at:8.
         ].
@@ -1923,7 +1923,7 @@
 initialize
     super initialize.
 
-    viewBackground := White.
+    viewBackground := self whiteColor.
 
     bitGravity := #NorthWest.
     contents := OrderedCollection new.
@@ -3532,10 +3532,10 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.138 2014-02-18 15:01:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.139 2014-02-18 16:21:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.138 2014-02-18 15:01:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.139 2014-02-18 16:21:26 stefan Exp $'
 ! !