level setting fixed.
--- a/MenuPanel.st Thu Aug 20 20:01:27 1998 +0200
+++ b/MenuPanel.st Thu Aug 20 20:19:01 1998 +0200
@@ -2659,20 +2659,21 @@
style := styleSheet name.
- level := 1.
style == #st80 ifTrue:[
- level := 0
+ self level:0
+ ] ifFalse:[
+ self level:1.
].
self isPopUpView ifTrue:[
(style ~~ #normal and:[style ~~ #mswindows]) ifTrue:[
- borderWidth := 1.
+ self borderWidth:1.
].
] ifFalse:[
- borderWidth := 0.
- ].
-
- "Modified: / 20.8.1998 / 19:46:09 / cg"
+ self borderWidth:0.
+ ].
+
+ "Modified: / 20.8.1998 / 20:11:01 / cg"
!
initialize
@@ -2683,7 +2684,7 @@
super initialize.
enabled := true.
- self origin:0.0@0.0.
+"/ self origin:0.0@0.0.
originChanged := extentChanged := false.
explicitExtent := nil.
shortKeyInset := 0.
@@ -2691,7 +2692,7 @@
font := MenuView defaultFont.
- "Modified: / 20.8.1998 / 18:41:35 / cg"
+ "Modified: / 20.8.1998 / 20:09:53 / cg"
!
mapped
@@ -5177,6 +5178,6 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.114 1998-08-20 18:01:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.115 1998-08-20 18:19:01 cg Exp $'
! !
MenuPanel initialize!