equal
deleted
inserted
replaced
20 |
20 |
21 WindowGroup comment:' |
21 WindowGroup comment:' |
22 COPYRIGHT (c) 1993 by Claus Gittinger |
22 COPYRIGHT (c) 1993 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.29 1995-07-27 23:53:45 claus Exp $ |
25 $Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.30 1995-08-03 01:33:11 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !WindowGroup class methodsFor:'documentation'! |
28 !WindowGroup class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.29 1995-07-27 23:53:45 claus Exp $ |
46 $Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.30 1995-08-03 01:33:11 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
373 ]. |
373 ]. |
374 ! |
374 ! |
375 |
375 |
376 withCursor:aCursor do:aBlock |
376 withCursor:aCursor do:aBlock |
377 "evaluate aBlock while showing aCursor in all |
377 "evaluate aBlock while showing aCursor in all |
378 my views (used to show wait-cursor while doing something)" |
378 my views (used to show wait-cursor while doing something). |
|
379 Return the result as returned by aBlock." |
379 |
380 |
380 |oldCursors| |
381 |oldCursors| |
381 |
382 |
382 " |
383 " |
383 get mapping of view->cursor for all of my subviews |
384 get mapping of view->cursor for all of my subviews |
386 self allViewsDo:[:aView | |
387 self allViewsDo:[:aView | |
387 oldCursors at:aView put:(aView cursor). |
388 oldCursors at:aView put:(aView cursor). |
388 aView cursor:aCursor |
389 aView cursor:aCursor |
389 ]. |
390 ]. |
390 |
391 |
391 aBlock valueNowOrOnUnwindDo:[ |
392 ^ aBlock valueNowOrOnUnwindDo:[ |
392 " |
393 " |
393 restore cursors from the mapping |
394 restore cursors from the mapping |
394 " |
395 " |
395 oldCursors keysAndValuesDo:[:view :cursor | |
396 oldCursors keysAndValuesDo:[:view :cursor | |
396 view cursor:cursor |
397 view cursor:cursor |