diff -r bf5d920267cc -r 5c7bb0559dc1 MenuEditor.st --- a/MenuEditor.st Tue Aug 27 00:47:58 2019 +0200 +++ b/MenuEditor.st Tue Aug 27 00:48:09 2019 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1997 by eXept Software AG All Rights Reserved @@ -496,7 +494,6 @@ uuid: '7d4bcc98-2067-11b2-b33d-3065ec8abe8a' tabable: true menu: toolbar - showSeparatingLines: true ) (VariableHorizontalPanelSpec name: 'mainPanel' @@ -1262,6 +1259,7 @@ "Do not manually edit this!! If it is corrupted, the MenuEditor may not be able to read the specification." + " MenuEditor new openOnClass:MenuEditor andSelector:#toolbar (Menu new fromLiteralArrayEncoding:(MenuEditor toolbar)) startUp @@ -1269,202 +1267,160 @@ - ^ - #(Menu - ( - (MenuItem - activeHelpKey: fileNew - label: 'New' - itemValue: doNew - translateLabel: true - isButton: true - labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon) - ) - (MenuItem - label: '-' - ) - (MenuItem - activeHelpKey: fileLoad - label: 'Load' - itemValue: doLoad - translateLabel: true - isButton: true - isVisible: isNotEditingSpecOnly - submenuChannel: menuHistory - labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) - keepLinkedMenu: true - ) - (MenuItem - activeHelpKey: fileSave - label: 'Save' - itemValue: doSave - translateLabel: true - isButton: true - isVisible: isNotEditingSpecOnly - labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) - ) - (MenuItem - activeHelpKey: fileSaveSpec - label: 'Save' - itemValue: doSave - translateLabel: true - isButton: true - isVisible: isEditingSpecOnly - labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon) - ) - (MenuItem - label: '-' - ) - (MenuItem - activeHelpKey: editCut - enabled: hasSelectionChannel - label: 'Cut' - itemValue: doCut - translateLabel: true - isButton: true - labelImage: (ResourceRetriever ToolbarIconLibrary cutMenuItemIcon) - ) - (MenuItem - activeHelpKey: editCopy - enabled: hasSelectionChannel - label: 'Copy' - itemValue: doCopy - translateLabel: true - isButton: true - labelImage: (ResourceRetriever ToolbarIconLibrary copyMenuItemIcon) - ) - (MenuItem - activeHelpKey: editPaste - enabled: canPasteHolder - label: 'Paste' - itemValue: doPaste - translateLabel: true - isButton: true - labelImage: (ResourceRetriever ToolbarIconLibrary pasteMenuItemIcon) - ) - (MenuItem - label: '-' - ) - (MenuItem - activeHelpKey: addMenuItem - enabled: hasSingleSelectionChannel - label: 'Add Item' - itemValue: doCreateItem - translateLabel: true - isButton: true - labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem) - ) - (MenuItem - activeHelpKey: addMenuSeparator - enabled: hasSingleSelectionChannel - label: 'Add Separator' - itemValue: doCreateSep - translateLabel: true - isButton: true - labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator) - ) - (MenuItem - activeHelpKey: addMenuSlice - enabled: hasSingleSelectionChannel - label: 'Menu Slice' - itemValue: doCreateMenuSliceItem - translateLabel: true - isButton: true - labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu) - ) - (MenuItem - activeHelpKey: addSubMenu - enabled: hasSingleSelectionChannel - label: 'Add Menu' - itemValue: doCreateMenu - translateLabel: true - isButton: true - submenuChannel: standardMenus - labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu) - keepLinkedMenu: true - ) - (MenuItem - activeHelpKey: addSubMenuLink - enabled: hasSingleSelectionChannel - label: 'Add Linked Menu' - itemValue: doCreateLinkedMenu - translateLabel: true - isButton: true - labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu) - ) - (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 - label: '' - ) - (MenuItem - activeHelpKey: editMoveUp - enabled: enableMovingUpOrDownHolder - label: 'Move Up' - itemValue: doMoveUp - translateLabel: true - isButton: true - startGroup: right - labelImage: (ResourceRetriever Icon upIcon) - ) - (MenuItem - activeHelpKey: editMoveDown - enabled: enableMovingUpOrDownHolder - label: 'Move Down' - itemValue: doMoveDown - translateLabel: true - isButton: true - labelImage: (ResourceRetriever Icon downIcon) - ) - (MenuItem - activeHelpKey: editMoveIn - enabled: enableMovingInHolder - label: 'Move Into Next' - itemValue: doMoveInNext - translateLabel: true - isButton: true - labelImage: (ResourceRetriever Icon downRightIcon) - ) - (MenuItem - activeHelpKey: editMoveInAbove - enabled: enableMovingInAboveHolder - label: 'Move Into Previous' - itemValue: doMoveInPrevious - translateLabel: true - isButton: true - labelImage: (ResourceRetriever Icon upRightIcon) - ) - (MenuItem - activeHelpKey: editMoveOut - enabled: enableMovingOutHolder - label: 'Move Out' - itemValue: doMoveOut - translateLabel: true - isButton: true - labelImage: (ResourceRetriever Icon leftDownIcon) - ) - ) - nil - nil - ) + ^ + #(Menu + (MenuItem + activeHelpKey: fileNew + label: 'New' + itemValue: doNew + labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon) isButton: true + ) + (MenuItem + label: '-' + ) + (MenuItem + activeHelpKey: fileLoad + label: 'Load' + itemValue: doLoad + isVisible: isNotEditingSpecOnly + submenuChannel: menuHistory + labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) keepLinkedMenu: true + isButton: true + ) + (MenuItem + activeHelpKey: fileSave + label: 'Save' + itemValue: doSave + isVisible: isNotEditingSpecOnly + labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) isButton: true + ) + (MenuItem + activeHelpKey: fileSaveSpec + label: 'Save' + itemValue: doSave + isVisible: isEditingSpecOnly + labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon) isButton: true + ) + (MenuItem + label: '-' + ) + (MenuItem + activeHelpKey: editCut + enabled: hasSelectionChannel + label: 'Cut' + itemValue: doCut + labelImage: (ResourceRetriever ToolbarIconLibrary cutMenuItemIcon) isButton: true + ) + (MenuItem + activeHelpKey: editCopy + enabled: hasSelectionChannel + label: 'Copy' + itemValue: doCopy + labelImage: (ResourceRetriever ToolbarIconLibrary copyMenuItemIcon) isButton: true + ) + (MenuItem + activeHelpKey: editPaste + enabled: canPasteHolder + label: 'Paste' + itemValue: doPaste + labelImage: (ResourceRetriever ToolbarIconLibrary pasteMenuItemIcon) isButton: true + ) + (MenuItem + label: '-' + ) + (MenuItem + activeHelpKey: addMenuItem + enabled: hasSingleSelectionChannel + label: 'Add Item' + itemValue: doCreateItem + labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem) isButton: true + ) + (MenuItem + activeHelpKey: addMenuSeparator + enabled: hasSingleSelectionChannel + label: 'Add Separator' + itemValue: doCreateSep + labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator) isButton: true + ) + (MenuItem + activeHelpKey: addMenuSlice + enabled: hasSingleSelectionChannel + label: 'Menu Slice' + itemValue: doCreateMenuSliceItem + labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu) isButton: true + ) + (MenuItem + activeHelpKey: addSubMenu + enabled: hasSingleSelectionChannel + label: 'Add Menu' + itemValue: doCreateMenu + submenuChannel: standardMenus + labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu) keepLinkedMenu: true + isButton: true + ) + (MenuItem + activeHelpKey: addSubMenuLink + enabled: hasSingleSelectionChannel + label: 'Add Linked Menu' + itemValue: doCreateLinkedMenu + labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu) isButton: true + ) + (MenuItem + activeHelpKey: addDelayedMenu + enabled: canCreateDelayedMenuChannel + label: 'Add Delayed Menu' + itemValue: doCreateDelayedMenu: + labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu) argument: menu + isButton: true + ) + (MenuItem + activeHelpKey: addDelayedSubMenuLink + enabled: canCreateDelayedMenuChannel + label: 'Add Delayed Linked Menu' + itemValue: doCreateDelayedMenu: + labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu) argument: linkedMenu + isButton: true + ) + (MenuItem + label: '' + ) + (MenuItem + activeHelpKey: editMoveUp + enabled: enableMovingUpOrDownHolder + label: 'Move Up' + itemValue: doMoveUp + startGroup: right + labelImage: (ResourceRetriever Icon upIcon) isButton: true + ) + (MenuItem + activeHelpKey: editMoveDown + enabled: enableMovingUpOrDownHolder + label: 'Move Down' + itemValue: doMoveDown + labelImage: (ResourceRetriever Icon downIcon) isButton: true + ) + (MenuItem + activeHelpKey: editMoveIn + enabled: enableMovingInHolder + label: 'Move Into Next' + itemValue: doMoveInNext + labelImage: (ResourceRetriever Icon downRightIcon) isButton: true + ) + (MenuItem + activeHelpKey: editMoveInAbove + enabled: enableMovingInAboveHolder + label: 'Move Into Previous' + itemValue: doMoveInPrevious + labelImage: (ResourceRetriever Icon upRightIcon) isButton: true + ) + (MenuItem + activeHelpKey: editMoveOut + enabled: enableMovingOutHolder + label: 'Move Out' + itemValue: doMoveOut + labelImage: (ResourceRetriever Icon leftDownIcon) isButton: true + ) + ) ! ! !MenuEditor class methodsFor:'menu specs-standard'!