--- a/SelectionInTreeView.st	Tue Jan 27 21:01:50 1998 +0100
+++ b/SelectionInTreeView.st	Tue Jan 27 23:14:15 1998 +0100
@@ -735,10 +735,10 @@
 
 create
     super create.
-    lineMask := lineMask on:device.
+    lineMask := lineMask onDevice:device.
 
     lineColor notNil ifTrue:[
-        lineColor := lineColor on:device
+        lineColor := lineColor onDevice:device
     ]
 !
 
@@ -1405,5 +1405,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.34 1998-01-27 09:50:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.35 1998-01-27 22:14:15 cg Exp $'
 ! !