equal
deleted
inserted
replaced
2281 |
2281 |
2282 QuestionMarkCursor isNil ifTrue:[ |
2282 QuestionMarkCursor isNil ifTrue:[ |
2283 crsr := self shape:#questionMark on:Display. |
2283 crsr := self shape:#questionMark on:Display. |
2284 (crsr isNil |
2284 (crsr isNil |
2285 or:[crsr id isNil]) ifTrue:[ |
2285 or:[crsr id isNil]) ifTrue:[ |
2286 crsr := self wait |
2286 crsr := self eye |
2287 ]. |
2287 ]. |
2288 QuestionMarkCursor := crsr. |
2288 QuestionMarkCursor := crsr. |
2289 ]. |
2289 ]. |
2290 ^ QuestionMarkCursor |
2290 ^ QuestionMarkCursor |
2291 |
2291 |
2292 " |
2292 " |
|
2293 QuestionMarkCursor := nil. |
2293 Cursor questionMark |
2294 Cursor questionMark |
2294 showWhile:[ Delay waitForSeconds:3 ] |
2295 showWhile:[ Delay waitForSeconds:3 ] |
2295 " |
2296 " |
2296 |
2297 |
2297 "Modified: / 30.4.1999 / 01:34:11 / cg" |
2298 "Modified: / 30.4.1999 / 10:14:52 / cg" |
2298 ! |
2299 ! |
2299 |
2300 |
2300 read |
2301 read |
2301 "return a reading-file cursor (the default here is a wait-cursor)" |
2302 "return a reading-file cursor (the default here is a wait-cursor)" |
2302 |
2303 |
2912 ! ! |
2913 ! ! |
2913 |
2914 |
2914 !Cursor class methodsFor:'documentation'! |
2915 !Cursor class methodsFor:'documentation'! |
2915 |
2916 |
2916 version |
2917 version |
2917 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.69 1999-04-29 23:51:04 cg Exp $' |
2918 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.70 1999-04-30 08:31:53 cg Exp $' |
2918 ! ! |
2919 ! ! |
2919 Cursor initialize! |
2920 Cursor initialize! |