Menu.st
changeset 2917 2ba0fee85a7f
parent 2916 ff96b6187a5f
child 2918 44a68f3ffba5
--- a/Menu.st	Thu Jun 30 10:30:35 2011 +0200
+++ b/Menu.st	Thu Jun 30 10:39:01 2011 +0200
@@ -707,7 +707,8 @@
                     visibilityInItem
                 ] ifFalse:[
                     visibilityInItem isSymbol ifTrue:[
-                        (anApplicationOrNil perform:visibilityInItem) value.
+                        anApplicationOrNil isNil
+                        or:[ (anApplicationOrNil perform:visibilityInItem) value ].
                     ] ifFalse:[
                         visibilityInItem value
                     ].
@@ -728,7 +729,7 @@
         enabledInItem := each enabled.
         enabledInItem notNil ifTrue:[
             enabledInItem isSymbol ifTrue:[
-                enabled := (anApplicationOrNil perform:enabledInItem).
+                enabled := anApplicationOrNil isNil or:[ (anApplicationOrNil perform:enabledInItem) ].
             ] ifFalse:[
                 enabledInItem isBoolean ifTrue:[
                     enabled := enabledInItem
@@ -744,7 +745,7 @@
 
     ^ PopUpMenu forMenu:menuView
 
-    "Modified: / 22-09-2010 / 13:52:06 / cg"
+    "Modified: / 30-06-2011 / 10:35:57 / cg"
 !
 
 fromLiteralArrayEncoding:aLiteralEncodedArray
@@ -1211,5 +1212,5 @@
 !Menu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.79 2011-06-30 08:30:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.80 2011-06-30 08:39:01 cg Exp $'
 ! !