--- 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