--- a/GraphColumnView.st Fri Nov 13 17:14:58 2015 +0100
+++ b/GraphColumnView.st Sun Nov 22 01:33:30 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:libwidg2' }"
+"{ NameSpace: Smalltalk }"
+
View subclass:#GraphColumnView
instanceVariableNames:'columns listHolder references referenceHolder referenceSelector
referenceColor showReferences zoomY zoomYHolder oldMenuMessage
@@ -261,7 +263,7 @@
"
(aColor isColor and:[bgColor ~= aColor]) ifTrue:[
shown ifTrue:[
- bgColor := aColor on:device.
+ bgColor := aColor onDevice:device.
self doInvalidateGraph
] ifFalse:[
bgColor := aColor
@@ -282,14 +284,13 @@
has no foreground color specified.
"
(aColor isColor and:[fgColor ~= aColor]) ifTrue:[
- shown ifTrue:[ fgColor := aColor on:device ]
+ shown ifTrue:[ fgColor := aColor onDevice:device ]
ifFalse:[ fgColor := aColor ].
columns notNil ifTrue:[
self updateColumns:#color with:nil from:nil
]
]
-
!
gridColor
@@ -303,12 +304,11 @@
"set the foreground color of the grid
"
(aColor isColor and:[gridColor ~= aColor]) ifTrue:[
- shown ifTrue:[ gridColor := aColor on:device ]
+ shown ifTrue:[ gridColor := aColor onDevice:device ]
ifFalse:[ gridColor := aColor ].
self updateGrid:#color
]
-
!
referenceColor
@@ -323,14 +323,13 @@
"set the foreground color used to draw the references
"
(aColor isColor and:[referenceColor ~= aColor]) ifTrue:[
- shown ifTrue:[referenceColor := aColor on:device]
+ shown ifTrue:[referenceColor := aColor onDevice:device]
ifFalse:[referenceColor := aColor].
references notEmpty ifTrue:[
self updateReferences:#color atRelX:nil
]
]
-
!
showGrid
@@ -1052,5 +1051,6 @@
!GraphColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView.st,v 1.7 2003-09-04 18:39:10 stefan Exp $'
+ ^ '$Header$'
! !
+