MenuEditor.st
changeset 669 1f5b2d936bcf
parent 667 0afd85e27240
child 686 6eabad89ebf6
--- a/MenuEditor.st	Mon Feb 23 16:05:06 1998 +0100
+++ b/MenuEditor.st	Mon Feb 23 19:12:28 1998 +0100
@@ -1013,7 +1013,6 @@
              #(#MenuItem
                 #'label:' 'File'
                 #'translateLabel:' true
-                #'value:' #file
                 #'activeHelpKey:' #file
                 #'submenu:' 
                  #(#Menu
@@ -1203,56 +1202,56 @@
           
            #(
              #(#MenuItem
-                #'label:' 'Cut'
-                #'value:' #doCut
-                #'activeHelpKey:' #editCut
-                #'enabled:' #hasValidSelection
-                #'shortcutKeyCharacter:' #Cut
+                #label: 'Cut'
+                #value: #doCut
+                #activeHelpKey: #editCut
+                #enabled: #hasValidSelection
+                #shortcutKeyCharacter: #Cut
             )
              #(#MenuItem
-                #'label:' 'Copy'
-                #'value:' #doCopy
-                #'activeHelpKey:' #editCopy
-                #'enabled:' #hasValidSelection
-                #'shortcutKeyCharacter:' #Copy
+                #label: 'Copy'
+                #value: #doCopy
+                #activeHelpKey: #editCopy
+                #enabled: #hasValidSelection
+                #shortcutKeyCharacter: #Copy
             )
              #(#MenuItem
-                #'label:' 'Paste'
-                #'value:' #doPaste
-                #'activeHelpKey:' #editPaste
-                #'enabled:' #hasAnySingleSelection
-                #'shortcutKeyCharacter:' #Paste
+                #label: 'Paste'
+                #value: #doPaste
+                #activeHelpKey: #editPaste
+                #enabled: #hasAnySingleSelection
+                #shortcutKeyCharacter: #Paste
             )
              #(#MenuItem
-                #'label:' '-'
+                #label: '-'
             )
              #(#MenuItem
-                #'label:' 'Move Up'
-                #'value:' #doStepUp
-                #'activeHelpKey:' #editMoveUp
-                #'enabled:' #valueOfEnableMovingUp
-                #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
+                #label: 'Move Up'
+                #value: #doStepUp
+                #activeHelpKey: #editMoveUp
+                #enabled: #valueOfEnableMovingUpOrDown
+                #labelImage: #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
             )
              #(#MenuItem
-                #'label:' 'Move Down'
-                #'value:' #doStepDown
-                #'activeHelpKey:' #editMoveDown
-                #'enabled:' #valueOfEnableMovingDown
-                #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
+                #label: 'Move Down'
+                #value: #doStepDown
+                #activeHelpKey: #editMoveDown
+                #enabled: #valueOfEnableMovingUpOrDown
+                #labelImage: #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
             )
              #(#MenuItem
-                #'label:' 'Move In'
-                #'value:' #doStepIn
-                #'activeHelpKey:' #editMoveIn
-                #'enabled:' #valueOfEnableMovingIn
-                #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In')
+                #label: 'Move In'
+                #value: #doStepIn
+                #activeHelpKey: #editMoveIn
+                #enabled: #valueOfEnableMovingIn
+                #labelImage: #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In')
             )
              #(#MenuItem
-                #'label:' 'Move Out'
-                #'value:' #doStepOut
-                #'activeHelpKey:' #editMoveOut
-                #'enabled:' #valueOfEnableMovingOut
-                #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out')
+                #label: 'Move Out'
+                #value: #doStepOut
+                #activeHelpKey: #editMoveOut
+                #enabled: #valueOfEnableMovingOut
+                #labelImage: #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out')
             )
           ) nil
           nil
@@ -1278,98 +1277,98 @@
           
            #(
              #(#MenuItem
-                #'label:' 'New'
-                #'isButton:' true
-                #'value:' #doNew
-                #'activeHelpKey:' #fileNew
-                #'labelImage:' #(#ResourceRetriever nil #newIcon)
+                #label: 'New'
+                #isButton: true
+                #value: #doNew
+                #activeHelpKey: #fileNew
+                #labelImage: #(#ResourceRetriever nil #newIcon)
             )
              #(#MenuItem
-                #'label:' 'Load'
-                #'isButton:' true
-                #'value:' #doLoad
-                #'activeHelpKey:' #fileLoad
-                #'labelImage:' #(#ResourceRetriever nil #loadIcon)
+                #label: 'Load'
+                #isButton: true
+                #value: #doLoad
+                #activeHelpKey: #fileLoad
+                #labelImage: #(#ResourceRetriever nil #loadIcon)
             )
              #(#MenuItem
-                #'label:' 'Save'
-                #'isButton:' true
-                #'value:' #doSave
-                #'activeHelpKey:' #fileSave
-                #'labelImage:' #(#ResourceRetriever nil #saveIcon)
+                #label: 'Save'
+                #isButton: true
+                #value: #doSave
+                #activeHelpKey: #fileSave
+                #labelImage: #(#ResourceRetriever nil #saveIcon)
             )
              #(#MenuItem
-                #'label:' ''
+                #label: ''
             )
              #(#MenuItem
-                #'label:' 'Add Item'
-                #'isButton:' true
-                #'value:' #doCreateItem
-                #'activeHelpKey:' #addMenuItem
-                #'enabled:' #hasAnySingleSelection
-                #'labelImage:' #(#ResourceRetriever nil #menuItemImage)
+                #label: 'Add Item'
+                #isButton: true
+                #value: #doCreateItem
+                #activeHelpKey: #addMenuItem
+                #enabled: #hasAnySingleSelection
+                #labelImage: #(#ResourceRetriever nil #menuItemImage)
             )
              #(#MenuItem
-                #'label:' 'Add Separator'
-                #'isButton:' true
-                #'value:' #doCreateSep
-                #'activeHelpKey:' #addMenuSeparator
-                #'enabled:' #hasAnySingleSelection
-                #'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage)
+                #label: 'Add Separator'
+                #isButton: true
+                #value: #doCreateSep
+                #activeHelpKey: #addMenuSeparator
+                #enabled: #hasAnySingleSelection
+                #labelImage: #(#ResourceRetriever nil #menuSeparatorImage)
             )
              #(#MenuItem
-                #'label:' ''
+                #label: ''
             )
              #(#MenuItem
-                #'label:' 'Add Submenu'
-                #'isButton:' true
-                #'value:' #doCreateMenu
-                #'activeHelpKey:' #addSubMenu
-                #'enabled:' #hasAnySingleSelection
-                #'labelImage:' #(#ResourceRetriever nil #submenuImage)
+                #label: 'Add Submenu'
+                #isButton: true
+                #value: #doCreateMenu
+                #activeHelpKey: #addSubMenu
+                #enabled: #hasAnySingleSelection
+                #labelImage: #(#ResourceRetriever nil #submenuImage)
             )
              #(#MenuItem
-                #'label:' 'Add Linked Submenu'
-                #'isButton:' true
-                #'value:' #doCreateLink
-                #'activeHelpKey:' #addSubMenuLink
-                #'enabled:' #hasAnySingleSelection
-                #'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage)
+                #label: 'Add Linked Submenu'
+                #isButton: true
+                #value: #doCreateLink
+                #activeHelpKey: #addSubMenuLink
+                #enabled: #hasAnySingleSelection
+                #labelImage: #(#ResourceRetriever nil #linkSubmenuImage)
             )
              #(#MenuItem
-                #'label:' ''
+                #label: ''
             )
              #(#MenuItem
-                #'label:' 'Move Up'
-                #'isButton:' true
-                #'value:' #doStepUp
-                #'activeHelpKey:' #editMoveUp
-                #'enabled:' #valueOfEnableMovingUp
-                #'labelImage:' #(#ResourceRetriever nil #upIcon)
+                #label: 'Move Up'
+                #isButton: true
+                #value: #doStepUp
+                #activeHelpKey: #editMoveUp
+                #enabled: #valueOfEnableMovingUpOrDown
+                #labelImage: #(#ResourceRetriever nil #upIcon)
             )
              #(#MenuItem
-                #'label:' 'Move Down'
-                #'isButton:' true
-                #'value:' #doStepDown
-                #'activeHelpKey:' #editMoveDown
-                #'enabled:' #valueOfEnableMovingDown
-                #'labelImage:' #(#ResourceRetriever nil #downIcon)
+                #label: 'Move Down'
+                #isButton: true
+                #value: #doStepDown
+                #activeHelpKey: #editMoveDown
+                #enabled: #valueOfEnableMovingUpOrDown
+                #labelImage: #(#ResourceRetriever nil #downIcon)
             )
              #(#MenuItem
-                #'label:' 'Move In'
-                #'isButton:' true
-                #'value:' #doStepIn
-                #'activeHelpKey:' #editMoveIn
-                #'enabled:' #valueOfEnableMovingIn
-                #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
+                #label: 'Move In'
+                #isButton: true
+                #value: #doStepIn
+                #activeHelpKey: #editMoveIn
+                #enabled: #valueOfEnableMovingIn
+                #labelImage: #(#ResourceRetriever nil #downRightIcon)
             )
              #(#MenuItem
-                #'label:' 'Move Out'
-                #'isButton:' true
-                #'value:' #doStepOut
-                #'activeHelpKey:' #editMoveOut
-                #'enabled:' #valueOfEnableMovingOut
-                #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
+                #label: 'Move Out'
+                #isButton: true
+                #value: #doStepOut
+                #activeHelpKey: #editMoveOut
+                #enabled: #valueOfEnableMovingOut
+                #labelImage: #(#ResourceRetriever nil #leftDownIcon)
             )
           ) nil
           nil