equal
deleted
inserted
replaced
1687 subMenus := nil |
1687 subMenus := nil |
1688 ]. |
1688 ]. |
1689 super destroy. |
1689 super destroy. |
1690 ! |
1690 ! |
1691 |
1691 |
|
1692 fetchDeviceResources |
|
1693 "fetch device colors, to avoid reallocation at redraw time" |
|
1694 |
|
1695 super fetchDeviceResources. |
|
1696 |
|
1697 checkColor notNil ifTrue:[checkColor := checkColor on:device]. |
|
1698 disabledFgColor notNil ifTrue:[disabledFgColor := disabledFgColor on:device]. |
|
1699 |
|
1700 "Created: 14.1.1997 / 00:08:55 / cg" |
|
1701 ! |
|
1702 |
1692 initEvents |
1703 initEvents |
1693 super initEvents. |
1704 super initEvents. |
1694 self enableLeaveEvents. |
1705 self enableLeaveEvents. |
1695 |
1706 |
1696 windowGroup notNil ifTrue:[ |
1707 windowGroup notNil ifTrue:[ |
1710 DefaultCheckColor notNil ifTrue:[ |
1721 DefaultCheckColor notNil ifTrue:[ |
1711 checkColor := DefaultCheckColor |
1722 checkColor := DefaultCheckColor |
1712 ] ifFalse:[ |
1723 ] ifFalse:[ |
1713 checkColor := fgColor. |
1724 checkColor := fgColor. |
1714 ]. |
1725 ]. |
1715 disabledFgColor := DefaultDisabledForegroundColor on:device. |
1726 disabledFgColor := DefaultDisabledForegroundColor. |
1716 |
1727 |
1717 DefaultForegroundColor notNil ifTrue:[ |
1728 DefaultForegroundColor notNil ifTrue:[ |
1718 fgColor := DefaultForegroundColor on:device |
1729 fgColor := DefaultForegroundColor on:device |
1719 ]. |
1730 ]. |
1720 DefaultBackgroundColor notNil ifTrue:[ |
1731 DefaultBackgroundColor notNil ifTrue:[ |
1809 ]. |
1820 ]. |
1810 DefaultViewBackground notNil ifTrue:[ |
1821 DefaultViewBackground notNil ifTrue:[ |
1811 viewBackground := DefaultViewBackground on:device |
1822 viewBackground := DefaultViewBackground on:device |
1812 ]. |
1823 ]. |
1813 |
1824 |
1814 "Modified: 28.5.1996 / 21:13:02 / cg" |
1825 "Modified: 14.1.1997 / 00:09:02 / cg" |
1815 ! |
1826 ! |
1816 |
1827 |
1817 initialize |
1828 initialize |
1818 |style| |
1829 |style| |
1819 |
1830 |
2558 ! ! |
2569 ! ! |
2559 |
2570 |
2560 !MenuView class methodsFor:'documentation'! |
2571 !MenuView class methodsFor:'documentation'! |
2561 |
2572 |
2562 version |
2573 version |
2563 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.93 1997-01-02 16:31:27 cg Exp $' |
2574 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.94 1997-01-13 23:09:24 cg Exp $' |
2564 ! ! |
2575 ! ! |