equal
deleted
inserted
replaced
1563 |
1563 |
1564 restoreCursors |
1564 restoreCursors |
1565 "restore the original cursors in all of my views" |
1565 "restore the original cursors in all of my views" |
1566 |
1566 |
1567 self allViewsDo:[:aView | |
1567 self allViewsDo:[:aView | |
1568 |c dev id cid| |
1568 |c dev id cid| |
1569 |
1569 |
1570 dev := aView graphicsDevice. |
1570 dev := aView graphicsDevice. |
1571 dev notNil ifTrue:[ |
1571 dev notNil ifTrue:[ |
1572 (id := aView id) notNil ifTrue:[ |
1572 (id := aView id) notNil ifTrue:[ |
1573 c := aView cursor onDevice:dev. |
1573 c := aView cursor onDevice:dev. |
1574 (cid := c id) notNil ifTrue:[ |
1574 (cid := c id) notNil ifTrue:[ |
1575 dev setCursor:cid in:id. |
1575 dev setCursor:cid in:id. |
1576 ] |
1576 ] |
1577 ] |
1577 ] |
1578 ] |
1578 ] |
1579 ]. |
1579 ]. |
1580 |
1580 |
1581 "Modified: 28.3.1997 / 13:48:51 / cg" |
1581 "Modified: / 22.4.1998 / 14:28:22 / cg" |
1582 ! |
1582 ! |
1583 |
1583 |
1584 showActivity:someMessage |
1584 showActivity:someMessage |
1585 "some activityNotification shalt be communicated to |
1585 "some activityNotification shalt be communicated to |
1586 the user; |
1586 the user; |
1611 ] |
1611 ] |
1612 ] |
1612 ] |
1613 ] |
1613 ] |
1614 ]. |
1614 ]. |
1615 |
1615 |
1616 "Modified: / 7.2.1998 / 13:49:36 / cg" |
1616 "Modified: / 22.4.1998 / 14:26:45 / cg" |
1617 ! |
1617 ! |
1618 |
1618 |
1619 withCursor:aCursor do:aBlock |
1619 withCursor:aCursor do:aBlock |
1620 "evaluate aBlock while showing aCursor in all |
1620 "evaluate aBlock while showing aCursor in all |
1621 my views (used to show wait-cursor while doing something). |
1621 my views (used to show wait-cursor while doing something). |
1668 ]. |
1668 ]. |
1669 rslt |
1669 rslt |
1670 ] |
1670 ] |
1671 ]. |
1671 ]. |
1672 |
1672 |
1673 (self isModal and:[previousGroup notNil]) ifTrue:[ |
1673 "/ (self isModal and:[previousGroup notNil]) ifTrue:[ |
1674 "/ pass the work to my parentGroup |
1674 "/ "/ pass the work to my parentGroup |
1675 ^ previousGroup withCursor:aCursor do:action |
1675 "/ ^ previousGroup withCursor:aCursor do:action |
1676 ]. |
1676 "/ ]. |
1677 ^ action value. |
1677 ^ action value. |
1678 |
1678 |
1679 "Modified: / 19.1.1998 / 17:32:03 / cg" |
1679 "Modified: / 22.4.1998 / 14:36:47 / cg" |
1680 ! |
1680 ! |
1681 |
1681 |
1682 withWaitCursorDo:aBlock |
1682 withWaitCursorDo:aBlock |
1683 "evaluate aBlock while showing a waitCursor in all |
1683 "evaluate aBlock while showing a waitCursor in all |
1684 my views (used to show wait-cursor while doing something time consuming). |
1684 my views (used to show wait-cursor while doing something time consuming). |
1738 ! ! |
1738 ! ! |
1739 |
1739 |
1740 !WindowGroup class methodsFor:'documentation'! |
1740 !WindowGroup class methodsFor:'documentation'! |
1741 |
1741 |
1742 version |
1742 version |
1743 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.132 1998-04-22 07:57:02 ca Exp $' |
1743 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.133 1998-04-22 12:55:06 cg Exp $' |
1744 ! ! |
1744 ! ! |
1745 WindowGroup initialize! |
1745 WindowGroup initialize! |