MenuEditor.st
changeset 2580 1ed737f4f840
parent 2569 b55aeaecefda
child 2581 d78dec3e0866
--- a/MenuEditor.st	Mon Sep 21 10:01:18 2009 +0200
+++ b/MenuEditor.st	Mon Sep 21 14:42:20 2009 +0200
@@ -939,12 +939,14 @@
      #(Menu
         (
          (MenuItem
+            isVisible: isNotEditingSpecOnly
             activeHelpKey: fileNew
             label: 'New'
             itemValue: doNew
             translateLabel: true
           )
          (MenuItem
+            isVisible: isNotEditingSpecOnly
             label: '-'
           )
          (MenuItem
@@ -2485,7 +2487,7 @@
 !
 
 isEditingSpecOnly
-    ^ masterApplication notNil and:[ masterApplication isEditingSpecOnly ]
+    ^ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:true "/ false
 !
 
 isNotEditingSpecOnly