equal
deleted
inserted
replaced
842 menu isNil ifTrue:[ |
842 menu isNil ifTrue:[ |
843 super computeLabelSize |
843 super computeLabelSize |
844 ] ifFalse:[ |
844 ] ifFalse:[ |
845 "hack: simulate logo change to longest menu entry" |
845 "hack: simulate logo change to longest menu entry" |
846 |
846 |
847 font := font on:device. |
847 font := font onDevice:device. |
848 longest := logo. |
848 longest := logo. |
849 logo isNil ifTrue:[ |
849 logo isNil ifTrue:[ |
850 longestWidth := 0 |
850 longestWidth := 0 |
851 ] ifFalse:[ |
851 ] ifFalse:[ |
852 longestWidth := font widthOf:logo. |
852 longestWidth := font widthOf:logo. |
1042 ! ! |
1042 ! ! |
1043 |
1043 |
1044 !PopUpList class methodsFor:'documentation'! |
1044 !PopUpList class methodsFor:'documentation'! |
1045 |
1045 |
1046 version |
1046 version |
1047 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.62 1999-06-10 16:17:13 cg Exp $' |
1047 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.63 1999-08-18 14:39:18 cg Exp $' |
1048 ! ! |
1048 ! ! |