--- a/EditTextView.st	Wed Aug 18 16:49:08 1999 +0200
+++ b/EditTextView.st	Wed Aug 18 17:06:39 1999 +0200
@@ -776,8 +776,8 @@
     |wasOn|
 
     wasOn := self hideCursor.
-    cursorFgColor := color1 on:device.
-    cursorBgColor := color2 on:device.
+    cursorFgColor := color1 onDevice:device.
+    cursorBgColor := color2 onDevice:device.
     wasOn ifTrue:[self showCursor]
 !
 
@@ -3632,9 +3632,9 @@
 
     super fetchDeviceResources.
 
-    cursorFgColor notNil ifTrue:[cursorFgColor := cursorFgColor on:device].
-    cursorBgColor notNil ifTrue:[cursorBgColor := cursorBgColor on:device].
-    cursorNoFocusFgColor notNil ifTrue:[cursorNoFocusFgColor := cursorNoFocusFgColor on:device].
+    cursorFgColor notNil ifTrue:[cursorFgColor := cursorFgColor onDevice:device].
+    cursorBgColor notNil ifTrue:[cursorBgColor := cursorBgColor onDevice:device].
+    cursorNoFocusFgColor notNil ifTrue:[cursorNoFocusFgColor := cursorNoFocusFgColor onDevice:device].
 
     "Created: 14.1.1997 / 00:15:24 / cg"
     "Modified: 18.2.1997 / 15:02:46 / cg"
@@ -4120,8 +4120,8 @@
     super realize.
 
     self makeCursorVisible.
-    cursorFgColor := cursorFgColor on:device.
-    cursorBgColor := cursorBgColor on:device.
+    cursorFgColor := cursorFgColor onDevice:device.
+    cursorBgColor := cursorBgColor onDevice:device.
 
     "Modified: 20.12.1996 / 14:16:05 / cg"
     "Created: 24.7.1997 / 18:24:12 / cg"
@@ -4666,5 +4666,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.211 1999-07-16 16:48:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.212 1999-08-18 15:06:16 cg Exp $'
 ! !