#OTHER by exept draft
authorClaus Gittinger <cg@exept.de>
Tue, 27 Aug 2019 00:48:09 +0200
changeset 3751 5c7bb0559dc1
parent 3750 bf5d920267cc
child 3752 24695ab8fa75
#OTHER by exept class: Tools::NewSystemBrowser changed: #messagesMenuFor:withCurrentSelector:withSenderChain:withImplementorChain:withLocalSenders:withLocalImplementors:withCallersOfThisMethod:withMethodsCalledByThisMethod:selfSendsOnly: class: Tools::NewSystemBrowser class changed: #selectorMenuSearchSlice
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 @@
 
     <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'!