MenuPanel.st
changeset 1459 53f83c83b354
parent 1455 5685ec322a5b
child 1464 3070de4c8b88
--- a/MenuPanel.st	Fri Jul 16 17:00:15 1999 +0200
+++ b/MenuPanel.st	Mon Jul 26 11:42:31 1999 +0200
@@ -1538,17 +1538,17 @@
 "/    self rearrangeItems.
 
     aBoolean ifTrue:[
-	self fixSize.
+        self fixSize.
     ].
     self origin:aPoint.
-    self makeFullyVisible.
+"/    self makeFullyVisible.   -- done in realize
     self openModal:[true]. "realize     "
 
     "/ if I have already performed,
     "/ return nil - to avoid items triggering twice.
 
     (self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
-	^ nil
+        ^ nil
     ].
     ^ self lastValueAccepted
 
@@ -2893,18 +2893,19 @@
     "
 
     self isPopUpView ifTrue:[
-	"Because of #saveUnder of ShadowView the order of realize is significant:
-	 shadowView must be realized before self"
-	self hiddenOnRealize:true.
-	super realize.
-	self resize.
-	shadowView notNil ifTrue:[
-	    shadowView realize.
-	].
-	super map.
-	self raise.
+        "Because of #saveUnder of ShadowView the order of realize is significant:
+         shadowView must be realized before self"
+        self hiddenOnRealize:true.
+        super realize.
+        self resize.
+        self makeFullyVisible.
+        shadowView notNil ifTrue:[
+            shadowView realize.
+        ].
+        super map.
+        self raise.
     ] ifFalse:[
-	super realize.
+        super realize.
     ]
 !
 
@@ -5445,6 +5446,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.167 1999-07-14 14:32:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.168 1999-07-26 09:42:31 cg Exp $'
 ! !
 MenuPanel initialize!