--- a/Cursor.st	Tue May 28 19:09:34 1996 +0200
+++ b/Cursor.st	Tue May 28 19:25:53 1996 +0200
@@ -1726,6 +1726,15 @@
     device colorCursor:cursorId foreground:fgColor background:bgColor
 !
 
+graphicsDevice
+    "same as #device, for ST-80 compatibility naming.
+     Return the device I am associated with."
+
+    ^ device
+
+    "Created: 28.5.1996 / 18:39:01 / cg"
+!
+
 hotX
     "return the hotspots x-coordinate of the receiver"
 
@@ -1952,6 +1961,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.33 1996-05-28 15:56:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.34 1996-05-28 17:25:53 cg Exp $'
 ! !
 Cursor initialize!