#OTHER by exept
class: Tools::NewSystemBrowser
changed: #messagesMenuFor:withCurrentSelector:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:withCallersOfThisMethod:withMethodsCalledByThisMethod:selfSendsOnly:
class: Tools::NewSystemBrowser class
changed: #selectorMenuSearchSlice
--- 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 @@
<resource: #menu>
- ^
- #(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'!