Cursor.st
changeset 3213 78add46c0f4b
parent 3201 ec73f31280be
child 3218 dd321bee52a3
--- a/Cursor.st	Sun Jul 02 14:52:38 2000 +0200
+++ b/Cursor.st	Sun Jul 02 14:54:33 2000 +0200
@@ -404,6 +404,8 @@
 
     |device builtIn bits isWindows|
 
+    HandCursor notNil ifTrue:[^ self].
+
     device := Display.
     device isNil ifTrue:[
         isWindows := OperatingSystem isMSWINDOWSlike.
@@ -3306,6 +3308,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.88 2000-05-23 07:48:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.89 2000-07-02 12:54:02 cg Exp $'
 ! !
 Cursor initialize!