equal
deleted
inserted
replaced
2017 ! |
2017 ! |
2018 |
2018 |
2019 questionMark |
2019 questionMark |
2020 "return a question-mark cursor" |
2020 "return a question-mark cursor" |
2021 |
2021 |
2022 ^ self shape:#questionMark on:Display |
2022 |crsr| |
|
2023 |
|
2024 crsr := self shape:#questionMark on:Display. |
|
2025 (crsr isNil |
|
2026 or:[crsr id isNil]) ifTrue:[ |
|
2027 crsr := self wait |
|
2028 ]. |
|
2029 ^ crsr |
2023 |
2030 |
2024 " |
2031 " |
2025 Cursor questionMark |
2032 Cursor questionMark |
2026 showWhile:[ Delay waitForSeconds:3 ] |
2033 showWhile:[ Delay waitForSeconds:3 ] |
2027 " |
2034 " |
2028 |
2035 |
2029 "Modified: 23.10.1997 / 00:22:39 / cg" |
2036 "Modified: / 27.7.1998 / 20:20:44 / cg" |
2030 ! |
2037 ! |
2031 |
2038 |
2032 read |
2039 read |
2033 "return a reading-file cursor (the default here is a wait-cursor)" |
2040 "return a reading-file cursor (the default here is a wait-cursor)" |
2034 |
2041 |
2646 ! ! |
2653 ! ! |
2647 |
2654 |
2648 !Cursor class methodsFor:'documentation'! |
2655 !Cursor class methodsFor:'documentation'! |
2649 |
2656 |
2650 version |
2657 version |
2651 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.58 1998-05-19 15:24:10 cg Exp $' |
2658 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.59 1998-07-27 18:22:45 cg Exp $' |
2652 ! ! |
2659 ! ! |
2653 Cursor initialize! |
2660 Cursor initialize! |