diff -r 599825bed176 -r 55184833642a SelListV.st
--- a/SelListV.st	Wed Aug 18 16:31:38 1999 +0200
+++ b/SelListV.st	Wed Aug 18 16:39:18 1999 +0200
@@ -2525,10 +2525,10 @@
 
     super fetchDeviceResources.
 
-    hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor on:device].
-    hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor on:device].
-    halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor on:device].
-    hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
+    hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor onDevice:device].
+    hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor onDevice:device].
+    halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor onDevice:device].
+    hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor onDevice:device].
 
     "Created: 14.1.1997 / 00:11:13 / cg"
 !
@@ -3048,7 +3048,7 @@
             (self line:listLine hasAttribute:#bold) ifTrue:[
                 newFont := font asBold.
                 (font bold 
-                or:[id := (newFont on:device) fontId.
+                or:[id := (newFont onDevice:device) fontId.
                     id isNil]) 
                 ifTrue:[
                     "
@@ -3615,5 +3615,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.149 1999-07-26 08:43:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.150 1999-08-18 14:36:27 cg Exp $'
 ! !