--- a/Cursor.st	Thu May 17 16:15:55 2001 +0200
+++ b/Cursor.st	Thu May 17 16:17:55 2001 +0200
@@ -3113,6 +3113,8 @@
     "/ operating on a model.
     "/ Please use #onDevice: to avoid confusion.
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
 
@@ -3328,6 +3330,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.93 2000-09-01 16:29:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.94 2001-05-17 14:17:55 stefan Exp $'
 ! !
 Cursor initialize!