level setting fixed.
authorClaus Gittinger <cg@exept.de>
Thu, 20 Aug 1998 20:19:01 +0200
changeset 1083 934218c3acfe
parent 1082 382324ddce3f
child 1084 87c661e6c333
level setting fixed.
MenuPanel.st
--- 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!