support #level:
authorca
Tue, 30 Jan 2001 19:49:20 +0100
changeset 1923 530426a3d692
parent 1922 1a2ab52eb2ab
child 1924 634dd19b10bf
support #level:
MenuPanel.st
--- a/MenuPanel.st	Mon Jan 29 16:09:27 2001 +0100
+++ b/MenuPanel.st	Tue Jan 30 19:49:20 2001 +0100
@@ -3313,7 +3313,6 @@
         lvl := styleSheet at:#'popup.level'       default:0.
     ] ifFalse:[
         bw  := styleSheet is3D ifFalse:[1] ifTrue:[0].
-        lvl := 1.
     ].
     self borderWidth:bw.
     self level:lvl.
@@ -3375,6 +3374,8 @@
     groupDividerSize := DefaultGroupDividerSize.
     fitFirstPanel    := false.
     font             := MenuView defaultFont onDevice:device.
+
+    super level:(styleSheet is3D ifTrue:[1] ifFalse:[0]).
 !
 
 initialize
@@ -3390,8 +3391,6 @@
     explicitExtent := nil.
     shortKeyInset  := 0.
     mustRearrange  := false.
-
-    "Modified: / 2.3.2000 / 21:50:46 / cg"
 !
 
 map
@@ -6238,6 +6237,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.262 2001-01-29 15:09:27 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.263 2001-01-30 18:49:20 ca Exp $'
 ! !
 MenuPanel initialize!