--- a/Cursor.st	Thu Apr 29 21:57:56 1999 +0200
+++ b/Cursor.st	Fri Apr 30 01:51:04 1999 +0200
@@ -18,7 +18,8 @@
 		ThumbsUpCursor ThumbsDownCursor ReadCursor WriteCursor XeqCursor
 		StopCursor EyeCursor BlankCursor MarkerCursor UpCursor DownCursor
 		LeftCursor RightCursor XMarkerCursor CaretCursor
-		UpRightHandCursor DocumentCursor FolderCursor CrossCursor'
+		UpRightHandCursor DocumentCursor FolderCursor CrossCursor
+		QuestionMarkCursor'
 	poolDictionaries:''
 	category:'Graphics-Support'
 !
@@ -400,7 +401,7 @@
             Cursor stop
             Cursor eye"
 
-    |device builtIn bits isWindows CrossCursor|
+    |device builtIn bits isWindows|
 
     device := Display.
     isWindows := device platformName = 'WIN32'.
@@ -1562,7 +1563,7 @@
      Cursor initializeNewCursors
     "
 
-    "Modified: / 29.4.1999 / 21:41:10 / cg"
+    "Modified: / 30.4.1999 / 01:31:51 / cg"
 !
 
 update:something with:aParameter from:changedObject
@@ -2278,19 +2279,22 @@
 
     |crsr|
 
-    crsr := self shape:#questionMark on:Display.
-    (crsr isNil 
-    or:[crsr id isNil]) ifTrue:[
-	crsr := self wait
+    QuestionMarkCursor isNil ifTrue:[
+        crsr := self shape:#questionMark on:Display.
+        (crsr isNil 
+        or:[crsr id isNil]) ifTrue:[
+            crsr := self wait
+        ].
+        QuestionMarkCursor := crsr.
     ].                   
-    ^ crsr
+    ^ QuestionMarkCursor
 
     "
      Cursor questionMark
-	showWhile:[ Delay waitForSeconds:3 ]
+        showWhile:[ Delay waitForSeconds:3 ]
     "
 
-    "Modified: / 27.7.1998 / 20:20:44 / cg"
+    "Modified: / 30.4.1999 / 01:34:11 / cg"
 !
 
 read
@@ -2910,6 +2914,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.68 1999-04-29 19:57:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.69 1999-04-29 23:51:04 cg Exp $'
 ! !
 Cursor initialize!