--- a/Cursor.st Fri Apr 30 02:13:42 1999 +0200
+++ b/Cursor.st Fri Apr 30 10:31:53 1999 +0200
@@ -2283,18 +2283,19 @@
crsr := self shape:#questionMark on:Display.
(crsr isNil
or:[crsr id isNil]) ifTrue:[
- crsr := self wait
+ crsr := self eye
].
QuestionMarkCursor := crsr.
].
^ QuestionMarkCursor
"
+ QuestionMarkCursor := nil.
Cursor questionMark
showWhile:[ Delay waitForSeconds:3 ]
"
- "Modified: / 30.4.1999 / 01:34:11 / cg"
+ "Modified: / 30.4.1999 / 10:14:52 / cg"
!
read
@@ -2914,6 +2915,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.69 1999-04-29 23:51:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.70 1999-04-30 08:31:53 cg Exp $'
! !
Cursor initialize!