equal
deleted
inserted
replaced
1420 " |
1420 " |
1421 get mapping of view->cursor for all of my subviews |
1421 get mapping of view->cursor for all of my subviews |
1422 " |
1422 " |
1423 oldCursors := IdentityDictionary new. |
1423 oldCursors := IdentityDictionary new. |
1424 self allViewsDo:[:aView | |
1424 self allViewsDo:[:aView | |
1425 oldCursors at:aView put:(aView cursor). |
1425 |old| |
1426 aView cursor:aCursor now:false |
1426 |
1427 ]. |
1427 old := aView cursor. |
|
1428 old ~~ aCursor ifTrue:[ |
|
1429 oldCursors at:aView put:old. |
|
1430 aView cursor:aCursor now:false |
|
1431 ] |
|
1432 ]. |
|
1433 |
|
1434 oldCursors size == 0 ifTrue:[ |
|
1435 ^ aBlock value |
|
1436 ]. |
|
1437 |
1428 "/ |
1438 "/ |
1429 "/ here sync looks better; flush leads to almost invisible cursors when accepting. |
1439 "/ here sync looks better; flush leads to almost invisible cursors when accepting. |
1430 "/ I dont really know why (maybe unix does not context-switch to the Xserver |
1440 "/ I dont really know why (maybe unix does not context-switch to the Xserver |
1431 "/ early enough after the requests have been sent ?) |
1441 "/ early enough after the requests have been sent ?) |
1432 "/ |
1442 "/ |
1441 view cursor:cursor now:false. |
1451 view cursor:cursor now:false. |
1442 ]. |
1452 ]. |
1443 dev flush "/ sync. |
1453 dev flush "/ sync. |
1444 ] |
1454 ] |
1445 |
1455 |
1446 "Modified: 5.7.1996 / 17:54:16 / cg" |
1456 "Modified: 27.2.1997 / 17:21:37 / cg" |
1447 ! |
1457 ! |
1448 |
1458 |
1449 withWaitCursorDo:aBlock |
1459 withWaitCursorDo:aBlock |
1450 "evaluate aBlock while showing a waitCursor in all |
1460 "evaluate aBlock while showing a waitCursor in all |
1451 my views (used to show wait-cursor while doing something time consuming). |
1461 my views (used to show wait-cursor while doing something time consuming). |
1505 ! ! |
1515 ! ! |
1506 |
1516 |
1507 !WindowGroup class methodsFor:'documentation'! |
1517 !WindowGroup class methodsFor:'documentation'! |
1508 |
1518 |
1509 version |
1519 version |
1510 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.106 1997-02-21 19:17:42 ca Exp $' |
1520 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.107 1997-02-28 09:25:28 cg Exp $' |
1511 ! ! |
1521 ! ! |
1512 WindowGroup initialize! |
1522 WindowGroup initialize! |