#on: -> #onDevice:
authorClaus Gittinger <cg@exept.de>
Wed, 18 Aug 1999 16:35:51 +0200
changeset 1477 b607b899c4df
parent 1476 a2bd9f16d320
child 1478 38f08dec8e34
#on: -> #onDevice:
SelTreeV.st
SelectionInTreeView.st
--- a/SelTreeV.st	Wed Aug 18 16:33:04 1999 +0200
+++ b/SelTreeV.st	Wed Aug 18 16:35:51 1999 +0200
@@ -290,7 +290,7 @@
         lineColor := col.
 
         shown ifTrue:[
-            lineColor notNil ifTrue:[lineColor := lineColor on:device].
+            lineColor notNil ifTrue:[lineColor := lineColor onDevice:device].
             self invalidate
         ]
     ]
@@ -484,7 +484,7 @@
         img device ~~ device ifTrue:[
             img := img copy.
         ].
-        img := img on:device.
+        img := img onDevice:device.
         img := img clearMaskedPixels.
     ].
     ^ img
@@ -2370,5 +2370,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.85 1999-07-06 16:51:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.86 1999-08-18 14:35:51 cg Exp $'
 ! !
--- a/SelectionInTreeView.st	Wed Aug 18 16:33:04 1999 +0200
+++ b/SelectionInTreeView.st	Wed Aug 18 16:35:51 1999 +0200
@@ -290,7 +290,7 @@
         lineColor := col.
 
         shown ifTrue:[
-            lineColor notNil ifTrue:[lineColor := lineColor on:device].
+            lineColor notNil ifTrue:[lineColor := lineColor onDevice:device].
             self invalidate
         ]
     ]
@@ -484,7 +484,7 @@
         img device ~~ device ifTrue:[
             img := img copy.
         ].
-        img := img on:device.
+        img := img onDevice:device.
         img := img clearMaskedPixels.
     ].
     ^ img
@@ -2370,5 +2370,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.85 1999-07-06 16:51:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.86 1999-08-18 14:35:51 cg Exp $'
 ! !