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