drawColSep beautified;
authorClaus Gittinger <cg@exept.de>
Tue, 01 Oct 2002 10:05:12 +0200
changeset 2234 29eba50f76eb
parent 2233 ebeefdebf761
child 2235 85fcf02651cf
drawColSep beautified; query for application fixed (for non-app-models)
MenuPanel.st
--- a/MenuPanel.st	Tue Oct 01 09:40:23 2002 +0200
+++ b/MenuPanel.st	Tue Oct 01 10:05:12 2002 +0200
@@ -6073,7 +6073,7 @@
     ].
     icon displayOn:menuPanel x:x y:y.
 
-    ("drawDelayedMenuIndicatorSeparator and:[" menuPanel buttonPassiveLevel ~~ 0 "]")
+    (false "drawDelayedMenuIndicatorSeparator" and:[ menuPanel buttonPassiveLevel ~~ 0 ])
     ifTrue:[
         menuPanel paint:menuPanel buttonShadowColor.
         menuPanel displayLineFromX:x-2 y:layout top+bAbsLevel+1 toX:x-2 y:layout bottom-bAbsLevel-2.
@@ -6831,7 +6831,7 @@
                 appl notNil ifTrue:[
                     (submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
                         [submenuHolder isNil 
-                         and:[(master := appl masterApplication) notNil
+                         and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
                               and:[master ~~ appl]]] whileTrue:[
                             appl := master.
                             submenuHolder := self findSubMenuIn:appl.
@@ -7287,7 +7287,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.330 2002-09-30 17:58:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.331 2002-10-01 08:05:12 cg Exp $'
 ! !
 
 MenuPanel initialize!