--- a/Cursor.st	Wed Jun 04 13:16:58 1997 +0200
+++ b/Cursor.st	Thu Jun 05 21:08:55 1997 +0200
@@ -1750,10 +1750,14 @@
     "create a new Cursor representing the same cursor as
      myself on aDevice; if one already exists, return the one"
 
+    "/ send out a warning: #on: is typically used to create viewa
+    "/ operating on a model.
+    "/ Please use #onDevice: to avoid confusion.
+
     self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
 
-    "Modified: 28.3.1997 / 13:47:02 / cg"
+    "Modified: 5.6.1997 / 21:04:35 / cg"
 !
 
 onDevice:aDevice
@@ -1951,6 +1955,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.51 1997-05-02 07:01:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.52 1997-06-05 19:08:55 cg Exp $'
 ! !
 Cursor initialize!