--- a/Cursor.st	Thu Aug 02 13:56:54 2001 +0200
+++ b/Cursor.st	Wed Aug 15 14:51:35 2001 +0200
@@ -404,7 +404,7 @@
             Cursor eye
             Cursor eyeClosed"
 
-    |device builtIn bits isWindows|
+    |device bits isWindows|
 
     HandCursor notNil ifTrue:[^ self].
 
@@ -1843,7 +1843,7 @@
                           2r0000000011110000
                           2r0000000001110000
                           2r0000000000100000)
-                      offset: -8@ -16).
+                      offset: -8@ -15 "-16").
     ThumbsDownCursor setShape:#thumbsDown.
 
     StopCursor := (Cursor
@@ -2058,7 +2058,8 @@
 "/    ].
 
     "
-     Cursor initializeNewCursors
+     HandCursor := nil.   
+     Cursor initializeNewCursors.
     "
 
     "Modified: / 13.12.1999 / 12:25:48 / cg"
@@ -3032,6 +3033,11 @@
     ^ device
 !
 
+extent
+    sourceForm notNil ifTrue:[^ sourceForm extent].
+    ^ 16@16
+!
+
 foreground:fgColor background:bgColor
     "set the cursor colors"
 
@@ -3330,6 +3336,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.94 2001-05-17 14:17:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.95 2001-08-15 12:51:35 cg Exp $'
 ! !
 Cursor initialize!