equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
14 |
13 |
15 View subclass:#PullDownMenu |
14 View subclass:#PullDownMenu |
16 instanceVariableNames:'receiver menus titles selectors activeMenuNumber |
15 instanceVariableNames:'receiver menus titles selectors activeMenuNumber |
17 showSeparatingLines topMargin fgColor bgColor activeFgColor |
16 showSeparatingLines topMargin fgColor bgColor activeFgColor |
1524 initialize |
1523 initialize |
1525 super initialize. |
1524 super initialize. |
1526 |
1525 |
1527 font := font onDevice:device. |
1526 font := font onDevice:device. |
1528 self origin:(0.0 @ 0.0) |
1527 self origin:(0.0 @ 0.0) |
1529 extent:(1.0 @ self preferredExtent y) |
1528 extent:(1.0 @ self preferredHeight) |
1530 "/ extent:(1.0 @ (font height + (font descent * 2) + topMargin)). |
1529 "/ extent:(1.0 @ (font height + (font descent * 2) + topMargin)). |
1531 ! |
1530 ! |
1532 |
1531 |
1533 recreate |
1532 recreate |
1534 "sent after a snapin or a migration; |
1533 "sent after a snapin or a migration; |
1803 ! ! |
1802 ! ! |
1804 |
1803 |
1805 !PullDownMenu class methodsFor:'documentation'! |
1804 !PullDownMenu class methodsFor:'documentation'! |
1806 |
1805 |
1807 version |
1806 version |
1808 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.100 2006-02-22 15:00:02 cg Exp $' |
1807 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.101 2008-05-30 12:25:50 cg Exp $' |
1809 ! ! |
1808 ! ! |