--- a/MenuEditor.st Tue Oct 07 23:18:17 2003 +0200
+++ b/MenuEditor.st Tue Oct 07 23:19:20 2003 +0200
@@ -1100,175 +1100,175 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #fileNew
- #label: 'New'
- #itemValue: #doNew
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newMenu24x24Icon)
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: fileNew
+ label: 'New'
+ itemValue: doNew
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary newMenu24x24Icon)
)
- #(#MenuItem
- #activeHelpKey: #fileLoad
- #label: 'Load'
- #itemValue: #doLoad
- #translateLabel: true
- #isButton: true
- #submenuChannel: #menuHistory
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
+ (MenuItem
+ activeHelpKey: fileLoad
+ label: 'Load'
+ itemValue: doLoad
+ translateLabel: true
+ isButton: true
+ submenuChannel: menuHistory
+ labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon)
)
- #(#MenuItem
- #activeHelpKey: #fileSave
- #label: 'Save'
- #itemValue: #doSave
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
+ (MenuItem
+ activeHelpKey: fileSave
+ label: 'Save'
+ itemValue: doSave
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #editCut
- #enabled: #hasSelectionChannel
- #label: 'Cut'
- #itemValue: #doCut
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
+ (MenuItem
+ activeHelpKey: editCut
+ enabled: hasSelectionChannel
+ label: 'Cut'
+ itemValue: doCut
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary cut22x22Icon)
)
- #(#MenuItem
- #activeHelpKey: #editCopy
- #enabled: #hasSelectionChannel
- #label: 'Copy'
- #itemValue: #doCopy
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #copy22x22Icon)
+ (MenuItem
+ activeHelpKey: editCopy
+ enabled: hasSelectionChannel
+ label: 'Copy'
+ itemValue: doCopy
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary copy22x22Icon)
)
- #(#MenuItem
- #activeHelpKey: #editPaste
- #enabled: #valueOfCanPaste
- #label: 'Paste'
- #itemValue: #doPaste
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #paste22x22Icon)
+ (MenuItem
+ activeHelpKey: editPaste
+ enabled: valueOfCanPaste
+ label: 'Paste'
+ itemValue: doPaste
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary paste22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #addMenuSeparator
- #enabled: #hasSingleSelectionChannel
- #label: 'Add Separator'
- #itemValue: #doCreateSep
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator)
+ (MenuItem
+ activeHelpKey: addMenuSeparator
+ enabled: hasSingleSelectionChannel
+ label: 'Add Separator'
+ itemValue: doCreateSep
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator)
)
- #(#MenuItem
- #activeHelpKey: #addMenuItem
- #enabled: #hasSingleSelectionChannel
- #label: 'Add Item'
- #itemValue: #doCreateItem
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem)
+ (MenuItem
+ activeHelpKey: addMenuItem
+ enabled: hasSingleSelectionChannel
+ label: 'Add Item'
+ itemValue: doCreateItem
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem)
)
- #(#MenuItem
- #activeHelpKey: #addSubMenu
- #enabled: #hasSingleSelectionChannel
- #label: 'Add Menu'
- #itemValue: #doCreateMenu
- #translateLabel: true
- #isButton: true
- #submenuChannel: #standardMenus
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu)
+ (MenuItem
+ activeHelpKey: addSubMenu
+ enabled: hasSingleSelectionChannel
+ label: 'Add Menu'
+ itemValue: doCreateMenu
+ translateLabel: true
+ isButton: true
+ submenuChannel: standardMenus
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu)
)
- #(#MenuItem
- #activeHelpKey: #addSubMenuLink
- #enabled: #hasSingleSelectionChannel
- #label: 'Add Linked Menu'
- #itemValue: #doCreateLinkedMenu
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu)
+ (MenuItem
+ activeHelpKey: addSubMenuLink
+ enabled: hasSingleSelectionChannel
+ label: 'Add Linked Menu'
+ itemValue: doCreateLinkedMenu
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #addDelayedMenu
- #enabled: #canCreateDelayedMenuChannel
- #label: 'Add Delayed Menu'
- #itemValue: #doCreateDelayedMenu:
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu)
- #argument: #menu
+ (MenuItem
+ activeHelpKey: addDelayedMenu
+ enabled: canCreateDelayedMenuChannel
+ label: 'Add Delayed Menu'
+ itemValue: doCreateDelayedMenu:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu)
+ argument: menu
)
- #(#MenuItem
- #activeHelpKey: #addDelayedSubMenuLink
- #enabled: #canCreateDelayedMenuChannel
- #label: 'Add Delayed Linked Menu'
- #itemValue: #doCreateDelayedMenu:
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu)
- #argument: #linkedMenu
+ (MenuItem
+ activeHelpKey: addDelayedSubMenuLink
+ enabled: canCreateDelayedMenuChannel
+ label: 'Add Delayed Linked Menu'
+ itemValue: doCreateDelayedMenu:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu)
+ argument: linkedMenu
)
- #(#MenuItem
- #activeHelpKey: #editMoveUp
- #enabled: #valueOfEnableMovingUpOrDown
- #label: 'Move Up'
- #itemValue: #doMoveUpOrDown:
- #translateLabel: true
- #isButton: true
- #startGroup: #right
- #labelImage: #(#ResourceRetriever #Icon #upIcon)
- #argument: #up
+ (MenuItem
+ activeHelpKey: editMoveUp
+ enabled: valueOfEnableMovingUpOrDown
+ label: 'Move Up'
+ itemValue: doMoveUpOrDown:
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ labelImage: (ResourceRetriever Icon upIcon)
+ argument: up
)
- #(#MenuItem
- #activeHelpKey: #editMoveDown
- #enabled: #valueOfEnableMovingUpOrDown
- #label: 'Move Down'
- #itemValue: #doMoveUpOrDown:
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #Icon #downIcon)
- #argument: #down
+ (MenuItem
+ activeHelpKey: editMoveDown
+ enabled: valueOfEnableMovingUpOrDown
+ label: 'Move Down'
+ itemValue: doMoveUpOrDown:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon downIcon)
+ argument: down
)
- #(#MenuItem
- #activeHelpKey: #editMoveIn
- #enabled: #valueOfEnableMovingIn
- #label: 'Move In'
- #itemValue: #doMoveIn:
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #Icon #downRightIcon)
- #argument: #inNext
+ (MenuItem
+ activeHelpKey: editMoveIn
+ enabled: valueOfEnableMovingIn
+ label: 'Move In'
+ itemValue: doMoveIn:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon downRightIcon)
+ argument: inNext
)
- #(#MenuItem
- #activeHelpKey: #editMoveInAbove
- #enabled: #valueOfEnableMovingInAbove
- #label: 'Move In Above'
- #itemValue: #doMoveIn:
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #Icon #upRightIcon)
- #argument: #inPrev
+ (MenuItem
+ activeHelpKey: editMoveInAbove
+ enabled: valueOfEnableMovingInAbove
+ label: 'Move In Above'
+ itemValue: doMoveIn:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon upRightIcon)
+ argument: inPrev
)
- #(#MenuItem
- #activeHelpKey: #editMoveOut
- #enabled: #valueOfEnableMovingOut
- #label: 'Move Out'
- #itemValue: #doMoveOut
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #Icon #leftDownIcon)
+ (MenuItem
+ activeHelpKey: editMoveOut
+ enabled: valueOfEnableMovingOut
+ label: 'Move Out'
+ itemValue: doMoveOut
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon leftDownIcon)
)
)
nil