equal
deleted
inserted
replaced
2104 autoScroll := false. |
2104 autoScroll := false. |
2105 sizeFixed := false. |
2105 sizeFixed := false. |
2106 |
2106 |
2107 (((style := styleSheet name) ~~ #normal) |
2107 (((style := styleSheet name) ~~ #normal) |
2108 and:[style ~~ #mswindows]) ifTrue:[ |
2108 and:[style ~~ #mswindows]) ifTrue:[ |
2109 self setBorderWidth: 1. |
2109 self borderWidth: 1. |
2110 (style ~~ #st80) ifTrue:[self level:1] |
2110 (style ~~ #st80) ifTrue:[self level:1] |
2111 ]. |
2111 ]. |
2112 |
2112 |
2113 "stupid - have to redo this ..." |
2113 "stupid - have to redo this ..." |
2114 hilightStyle == #openwin ifTrue:[ |
2114 hilightStyle == #openwin ifTrue:[ |
2926 ! ! |
2926 ! ! |
2927 |
2927 |
2928 !MenuView class methodsFor:'documentation'! |
2928 !MenuView class methodsFor:'documentation'! |
2929 |
2929 |
2930 version |
2930 version |
2931 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.161 2009-10-23 15:22:39 cg Exp $' |
2931 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.162 2009-10-24 14:00:32 cg Exp $' |
2932 ! |
2932 ! |
2933 |
2933 |
2934 version_CVS |
2934 version_CVS |
2935 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.161 2009-10-23 15:22:39 cg Exp $' |
2935 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.162 2009-10-24 14:00:32 cg Exp $' |
2936 ! ! |
2936 ! ! |