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 |
3185 |
3183 |
3186 aView cursor:self |
3184 aView cursor:self |
3187 ! |
3185 ! |
3188 |
3186 |
3189 showIn:aView while:aBlock |
3187 showIn:aView while:aBlock |
3190 "ST-80 mimicri: change aViews cursors to the receiver, while evaluationg aBlock. |
3188 "ST-80 mimicri: change aView's cursors to the receiver, while evaluationg aBlock. |
3191 Return the value as returned by aBlock." |
3189 Return the value as returned by aBlock." |
3192 |
3190 |
3193 |savedCursor| |
3191 |savedCursor| |
3194 |
3192 |
3195 savedCursor := aView cursor. |
3193 savedCursor := aView cursor. |