--- 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 $'
! !