equal
deleted
inserted
replaced
24 |
24 |
25 PseudoView comment:' |
25 PseudoView comment:' |
26 COPYRIGHT (c) 1992 by Claus Gittinger |
26 COPYRIGHT (c) 1992 by Claus Gittinger |
27 All Rights Reserved |
27 All Rights Reserved |
28 |
28 |
29 $Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $ |
29 $Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.39 1995-08-03 01:32:32 claus Exp $ |
30 '! |
30 '! |
31 |
31 |
32 !PseudoView class methodsFor:'documentation'! |
32 !PseudoView class methodsFor:'documentation'! |
33 |
33 |
34 copyright |
34 copyright |
45 " |
45 " |
46 ! |
46 ! |
47 |
47 |
48 version |
48 version |
49 " |
49 " |
50 $Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $ |
50 $Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.39 1995-08-03 01:32:32 claus Exp $ |
51 " |
51 " |
52 ! |
52 ! |
53 |
53 |
54 documentation |
54 documentation |
55 " |
55 " |
375 ] |
375 ] |
376 " |
376 " |
377 ! |
377 ! |
378 |
378 |
379 withCursor:aCursor do:aBlock |
379 withCursor:aCursor do:aBlock |
380 "evaluate aBlock showing aCursor until ready; then restore the old cursor. |
380 "evaluate aBlock showing aCursor until ready; then restore the old cursor |
381 Notice, that this method only changes the cursor for a single (sub-)view. |
381 and return the value as returned by aBlock. |
382 Most applications want to have the cursor changed in all views of an |
382 |
383 application. Use WindowGroup>>withCursor:do: to acomplish this." |
383 Notice, that this method only changes the cursor for a SINGLE (sub-)view. |
|
384 Most applications want to have the cursor changed in all views of its |
|
385 application. Use 'aView windowGroup withCursor:do:' to acomplish this." |
384 |
386 |
385 |savedCursor| |
387 |savedCursor| |
386 |
388 |
387 savedCursor := cursor. |
389 savedCursor := cursor. |
388 self cursor:aCursor. |
390 self cursor:aCursor. |
389 aBlock valueNowOrOnUnwindDo:[self cursor:savedCursor] |
391 ^ aBlock valueNowOrOnUnwindDo:[self cursor:savedCursor] |
390 ! ! |
392 ! ! |
391 |
393 |
392 !PseudoView methodsFor:'accessing-hierarchy'! |
394 !PseudoView methodsFor:'accessing-hierarchy'! |
393 |
395 |
394 superView |
396 superView |