equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
551 ! |
549 ! |
552 |
550 |
553 withVisibleCursor:aCursor do:aBlock |
551 withVisibleCursor:aCursor do:aBlock |
554 "evaluate aBlock, showing a aCursor. |
552 "evaluate aBlock, showing a aCursor. |
555 Return the value of aBlock. |
553 Return the value of aBlock. |
556 Ensure, that the cursor is visible for the user for a minimal amount of time." |
554 Ensure, that the cursor is visible for the user for a minimal amount of time |
|
555 (even if the computation would be too quick for a cursor to be visible, |
|
556 show the execute cursor for some time as a feedback)." |
557 |
557 |
558 |ret| |
558 |ret| |
559 |
559 |
560 cursor == aCursor ifTrue:[ |
560 cursor == aCursor ifTrue:[ |
561 ^ aBlock value |
561 ^ aBlock value |
2598 ! ! |
2598 ! ! |
2599 |
2599 |
2600 !DisplaySurface class methodsFor:'documentation'! |
2600 !DisplaySurface class methodsFor:'documentation'! |
2601 |
2601 |
2602 version |
2602 version |
2603 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.169 2015-03-02 10:21:28 cg Exp $' |
2603 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.170 2015-03-03 10:38:06 cg Exp $' |
2604 ! |
2604 ! |
2605 |
2605 |
2606 version_CVS |
2606 version_CVS |
2607 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.169 2015-03-02 10:21:28 cg Exp $' |
2607 ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.170 2015-03-03 10:38:06 cg Exp $' |
2608 ! ! |
2608 ! ! |
2609 |
2609 |
2610 |
2610 |
2611 DisplaySurface initialize! |
2611 DisplaySurface initialize! |