--- a/Cursor.st	Sun Aug 07 21:30:51 1994 +0200
+++ b/Cursor.st	Fri Aug 12 01:40:40 1994 +0200
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.10 1994-08-05 01:13:47 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.11 1994-08-11 23:40:40 claus Exp $
 '!
 
 !Cursor class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.10 1994-08-05 01:13:47 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.11 1994-08-11 23:40:40 claus Exp $
 "
 !
 
@@ -605,6 +605,18 @@
         XeqCursor := self shape:#wait
     ].
     ^ XeqCursor
+!
+
+thumbsUp
+    "return a hand cursor - ST-80 compatibility"
+
+    ^ self hand
+!
+
+thumbsDown
+    "return a hand cursor - ST-80 compatibility"
+
+    ^ self hand
 ! !
 
 !Cursor methodsFor:'instance release'!