--- a/SimpleView.st	Thu Mar 27 17:15:30 1997 +0100
+++ b/SimpleView.st	Fri Mar 28 13:52:47 1997 +0100
@@ -5426,7 +5426,7 @@
         ].
 
         cursor notNil ifTrue:[
-            cursor := cursor on:device.
+            cursor := cursor onDevice:device.
         ].
 
         explicitExtent ~~ true ifTrue:[
@@ -5450,7 +5450,7 @@
         originChanged := true
     ]
 
-    "Modified: 15.7.1996 / 10:08:35 / cg"
+    "Modified: 28.3.1997 / 13:50:17 / cg"
 !
 
 createWithAllSubViews
@@ -6927,6 +6927,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.192 1997-03-27 10:06:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.193 1997-03-28 12:52:47 cg Exp $'
 ! !
 SimpleView initialize!