hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:27eb0659e5f0
+:4aa95683c0fc
 The editor is typically opened by double-clicking on a menu-spec method in the browser.
 [Instance variables:]
-listOfItemsView         <HierarcicalListView>  the view which shows the list of items
+	listOfItemsView         <HierarcicalListView>  the view which shows the list of items
-listOfItems             <HierarchicalList>     hierarchical list of menu items
+	listOfItems             <HierarchicalList>     hierarchical list of menu items
-listOfTabs              <List>                 list of current shown tab-labels
+	listOfTabs              <List>                 list of current shown tab-labels
-selectionHolder         <ValueHolder>          collection of current selected items
+	selectionHolder         <ValueHolder>          collection of current selected items
-selectedSuperItems      <Collection>           collection of superItems derived from selection
+	selectedSuperItems      <Collection>           collection of superItems derived from selection
-tabHolder               <ValueHolder>          selected tab label holder
+	tabHolder               <ValueHolder>          selected tab label holder
-notifyDisabledCounter   <SmallInteger>         ~~ 0 than change notifications are discard
+	notifyDisabledCounter   <SmallInteger>         ~~ 0 than change notifications are discard
-wizards                 <IdentityDictionary>   keeps all created wizard dialogs
+	wizards                 <IdentityDictionary>   keeps all created wizard dialogs
-dropOverLine            <nil or SmallInteger>  nil: drop context not dropabel.
+	dropOverLine            <nil or SmallInteger>  nil: drop context not dropabel.
-= 0: drop context dropable but no item specified
+						       = 0: drop context dropable but no item specified
-~ 0: drop context dropable for item at lineNumber
+						       ~ 0: drop context dropable for item at lineNumber
-used t6o restore drop indication drawings
+						       used t6o restore drop indication drawings
 [Class variables:]
-ImageRetrieverClasses   <Collection>        sorted collection of image receivers
+	ImageRetrieverClasses   <Collection>        sorted collection of image receivers
 [start with:]
-MenuEditor open
+	MenuEditor open
-MenuEditor openOnClass:MenuEditor andSelector:#menu
+	MenuEditor openOnClass:MenuEditor andSelector:#menu
 [author:]
-Claus Atzkern, eXept Software AG
+	Claus Atzkern, eXept Software AG
-Thomas Zwick, eXept Software AG
+	Thomas Zwick, eXept Software AG
 "
 ! !
 !MenuEditor class methodsFor:'initialization'!
 #hideMenuOnActivated
 'If on, the menu hides itself after the item was activated (PopUp/PullDown-Menus only).'
 #horizontalLayout
-'If on, the submenu organizes its items horizontal insteat of vertical (default).'
+'If on, the submenu organizes its items horizontal instead of vertical (default).'
 #imageImageAndLabel
 'Toggle display of both image and textual label.'
 #imageImageEditor
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuSeparator
+	    activeHelpKey: addMenuSeparator
-label: 'Separator'
+	    label: 'Separator'
-itemValue: doCreateSep
+	    itemValue: doCreateSep
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator '')
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuItem
+	    activeHelpKey: addMenuItem
-label: 'Item'
+	    label: 'Item'
-itemValue: doCreateItem
+	    itemValue: doCreateItem
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem '')
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuSliceItem
+	    activeHelpKey: addMenuSliceItem
-label: 'Menu Slice'
+	    label: 'Menu Slice'
-itemValue: doCreateMenuSliceItem
+	    itemValue: doCreateMenuSliceItem
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu '')
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuItem
+	    activeHelpKey: addMenuItem
-label: 'Menu'
+	    label: 'Menu'
-itemValue: doCreateMenu
+	    itemValue: doCreateMenu
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu '')
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addSubMenuLink
+	    activeHelpKey: addSubMenuLink
-label: 'Linked Menu'
+	    label: 'Linked Menu'
-itemValue: doCreateLinkedMenu
+	    itemValue: doCreateLinkedMenu
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu '')
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addDelayedMenu
+	    activeHelpKey: addDelayedMenu
-enabled: canCreateDelayedMenuChannel
+	    enabled: canCreateDelayedMenuChannel
-label: 'Delayed Menu'
+	    label: 'Delayed Menu'
-itemValue: doCreateDelayedMenu:
+	    itemValue: doCreateDelayedMenu:
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu '')
-argument: menu
+	    argument: menu
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addDelayedSubMenuLink
+	    activeHelpKey: addDelayedSubMenuLink
-enabled: canCreateDelayedMenuChannel
+	    enabled: canCreateDelayedMenuChannel
-label: 'Delayed Linked Menu'
+	    label: 'Delayed Linked Menu'
-itemValue: doCreateDelayedMenu:
+	    itemValue: doCreateDelayedMenu:
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu '')
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu '')
-argument: linkedMenu
+	    argument: linkedMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Standard Menus'
+	    label: 'Standard Menus'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: standardMenus
+	    submenuChannel: standardMenus
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-)
+	 )
 "/        nil
 "/        nil
 )
 !
 (Menu new fromLiteralArrayEncoding:(MenuEditor editMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: editCut
+	    activeHelpKey: editCut
-enabled: hasSelectionChannel
+	    enabled: hasSelectionChannel
-label: 'Cut'
+	    label: 'Cut'
-itemValue: doCut
+	    itemValue: doCut
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Cut
+	    shortcutKey: Cut
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editCopy
+	    activeHelpKey: editCopy
-enabled: hasSelectionChannel
+	    enabled: hasSelectionChannel
-label: 'Copy'
+	    label: 'Copy'
-itemValue: doCopy
+	    itemValue: doCopy
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Copy
+	    shortcutKey: Copy
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editPaste
+	    activeHelpKey: editPaste
-enabled: canPasteHolder
+	    enabled: canPasteHolder
-label: 'Paste'
+	    label: 'Paste'
-itemValue: doPaste
+	    itemValue: doPaste
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Paste
+	    shortcutKey: Paste
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editDelete
+	    activeHelpKey: editDelete
-enabled: hasSelectionChannel
+	    enabled: hasSelectionChannel
-label: 'Delete'
+	    label: 'Delete'
-itemValue: doDelete
+	    itemValue: doDelete
-translateLabel: true
+	    translateLabel: true
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveUp
+	    activeHelpKey: editMoveUp
-enabled: enableMovingUpOrDownHolder
+	    enabled: enableMovingUpOrDownHolder
-label: 'Move Up'
+	    label: 'Move Up'
-itemValue: doMoveUpOrDown:
+	    itemValue: doMoveUpOrDown:
-translateLabel: true
+	    translateLabel: true
-startGroup: right
+	    startGroup: right
-shortcutKey: CtrlCursorUp
+	    shortcutKey: CtrlCursorUp
-labelImage: (ResourceRetriever Icon upIcon 'Move Up')
+	    labelImage: (ResourceRetriever Icon upIcon 'Move Up')
-argument: up
+	    argument: up
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveDown
+	    activeHelpKey: editMoveDown
-enabled: enableMovingUpOrDownHolder
+	    enabled: enableMovingUpOrDownHolder
-label: 'Move Down'
+	    label: 'Move Down'
-itemValue: doMoveUpOrDown:
+	    itemValue: doMoveUpOrDown:
-translateLabel: true
+	    translateLabel: true
-shortcutKey: CtrlCursorDown
+	    shortcutKey: CtrlCursorDown
-labelImage: (ResourceRetriever Icon downIcon 'Move Down')
+	    labelImage: (ResourceRetriever Icon downIcon 'Move Down')
-argument: down
+	    argument: down
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveIn
+	    activeHelpKey: editMoveIn
-enabled: enableMovingInHolder
+	    enabled: enableMovingInHolder
-label: 'Move Into Next'
+	    label: 'Move Into Next'
-itemValue: doMoveIn:
+	    itemValue: doMoveIn:
-translateLabel: true
+	    translateLabel: true
-shortcutKey: CtrlCursorRight
+	    shortcutKey: CtrlCursorRight
-labelImage: (ResourceRetriever Icon downRightIcon 'Move Into Next')
+	    labelImage: (ResourceRetriever Icon downRightIcon 'Move Into Next')
-argument: inNext
+	    argument: inNext
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveInAbove
+	    activeHelpKey: editMoveInAbove
-enabled: enableMovingInAboveHolder
+	    enabled: enableMovingInAboveHolder
-label: 'Move Into Previous'
+	    label: 'Move Into Previous'
-itemValue: doMoveIn:
+	    itemValue: doMoveIn:
-translateLabel: true
+	    translateLabel: true
-labelImage: (ResourceRetriever Icon upRightIcon 'Move Into Previous' )
+	    labelImage: (ResourceRetriever Icon upRightIcon 'Move Into Previous' )
-argument: inPrev
+	    argument: inPrev
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveOut
+	    activeHelpKey: editMoveOut
-enabled: enableMovingOutHolder
+	    enabled: enableMovingOutHolder
-label: 'Move Out'
+	    label: 'Move Out'
-itemValue: doMoveOut
+	    itemValue: doMoveOut
-translateLabel: true
+	    translateLabel: true
-shortcutKey: CtrlCursorLeft
+	    shortcutKey: CtrlCursorLeft
-labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out' )
+	    labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out' )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 editMenuForMainMenuWithoutAccelerators
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(MenuEditor fileMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
+	    isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
-activeHelpKey: fileNew
+	    activeHelpKey: fileNew
-label: 'New'
+	    label: 'New'
-itemValue: doNew
+	    itemValue: doNew
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
+	    isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
+	    isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
-activeHelpKey: fileLoad
+	    activeHelpKey: fileLoad
-label: 'Load...'
+	    label: 'Load...'
-itemValue: doLoad
+	    itemValue: doLoad
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
+	    isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isEditingSpecOnly
+	    isVisible: isEditingSpecOnly
-activeHelpKey: fileSaveSpec
+	    activeHelpKey: fileSaveSpec
-label: 'Save'
+	    label: 'Save'
-itemValue: doSave
+	    itemValue: doSave
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnly
+	    isVisible: isNotEditingSpecOnly
-activeHelpKey: fileSave
+	    activeHelpKey: fileSave
-label: 'Save'
+	    label: 'Save'
-itemValue: doSave
+	    itemValue: doSave
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
+	    isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser
-activeHelpKey: fileSaveAs
+	    activeHelpKey: fileSaveAs
-label: 'Save As...'
+	    label: 'Save As...'
-itemValue: doSaveAs
+	    itemValue: doSaveAs
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: filePickAMenu
+	    activeHelpKey: filePickAMenu
-label: 'Pick a Menu...'
+	    label: 'Pick a Menu...'
-itemValue: doPickAMenu
+	    itemValue: doPickAMenu
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileChooseAMenu
+	    activeHelpKey: fileChooseAMenu
-label: 'Choose a Menu...'
+	    label: 'Choose a Menu...'
-itemValue: doChooseAMenu
+	    itemValue: doChooseAMenu
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileBrowseClass
+	    activeHelpKey: fileBrowseClass
-enabled: hasValidSpecClass
+	    enabled: hasValidSpecClass
-label: 'Browse Class'
+	    label: 'Browse Class'
-itemValue: doBrowseClass
+	    itemValue: doBrowseClass
-translateLabel: true
+	    translateLabel: true
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileShowMenuSpec
+	    activeHelpKey: fileShowMenuSpec
-label: 'Show Menu Spec'
+	    label: 'Show Menu Spec'
-itemValue: doShowMenuSpec
+	    itemValue: doShowMenuSpec
-translateLabel: true
+	    translateLabel: true
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileExit
+	    activeHelpKey: fileExit
-label: 'Exit'
+	    label: 'Exit'
-itemValue: closeRequest
+	    itemValue: closeRequest
-translateLabel: true
+	    translateLabel: true
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 generateMenu
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: '&File'
+	    label: '&File'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: fileMenu
+	    submenuChannel: fileMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '&Edit'
+	    label: '&Edit'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: editMenuForMainMenuWithoutAccelerators
+	    submenuChannel: editMenuForMainMenuWithoutAccelerators
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Item'
+	    label: 'Item'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: addMenu
+	    submenuChannel: addMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-isVisible: isNotEditingSpecOnly
+	    isVisible: isNotEditingSpecOnly
-label: 'Generate'
+	    label: 'Generate'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: generateMenu
+	    submenuChannel: generateMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Test'
+	    label: 'Test'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: submenuTest
+	    submenuChannel: submenuTest
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Settings'
+	    label: 'Settings'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: settingsMenu
+	    submenuChannel: settingsMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'History'
+	    label: 'History'
-translateLabel: true
+	    translateLabel: true
-isVisible: isStandAlone
+	    isVisible: isStandAlone
-submenuChannel: menuHistory
+	    submenuChannel: menuHistory
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'MENU_Help'
+	    label: 'MENU_Help'
-translateLabel: true
+	    translateLabel: true
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-submenuChannel: helpMenu
+	    submenuChannel: helpMenu
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-ignoreMnemonicKeys: true
+	    ignoreMnemonicKeys: true
-ignoreShortcutKeys: true
+	    ignoreShortcutKeys: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 settingsMenu
 "This resource specification was automatically generated
 <resource: #menu>
 ^
 #(#Menu
-#(
+	#(
-#(#MenuItem
+	 #(#MenuItem
-isVisible: isNotEditingSpecOnly
+	    isVisible: isNotEditingSpecOnly
-#activeHelpKey: #settingsRedefineAspectMethods
+	    #activeHelpKey: #settingsRedefineAspectMethods
-#enabled: #hasValidSpecClass
+	    #enabled: #hasValidSpecClass
-#label: 'Redefine Aspect Methods'
+	    #label: 'Redefine Aspect Methods'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #redefineAspectMethodsChannel
+	    #indication: #redefineAspectMethodsChannel
-)
+	  )
-#(#MenuItem
+	 #(#MenuItem
-#activeHelpKey: #settingsRedefineAspectMethods
+	    #activeHelpKey: #settingsRedefineAspectMethods
-#label: 'AutoAccept on Selection-Change'
+	    #label: 'AutoAccept on Selection-Change'
-#translateLabel: true
+	    #translateLabel: true
-#hideMenuOnActivated: false
+	    #hideMenuOnActivated: false
-#indication: #autoAcceptOnSelectionChange
+	    #indication: #autoAcceptOnSelectionChange
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 standardMenus
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(MenuEditor toolbar)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileNew
+	    activeHelpKey: fileNew
-label: 'New'
+	    label: 'New'
-itemValue: doNew
+	    itemValue: doNew
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileLoad
+	    activeHelpKey: fileLoad
-label: 'Load'
+	    label: 'Load'
-itemValue: doLoad
+	    itemValue: doLoad
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: isNotEditingSpecOnly
+	    isVisible: isNotEditingSpecOnly
-submenuChannel: menuHistory
+	    submenuChannel: menuHistory
-labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileSave
+	    activeHelpKey: fileSave
-label: 'Save'
+	    label: 'Save'
-itemValue: doSave
+	    itemValue: doSave
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: isNotEditingSpecOnly
+	    isVisible: isNotEditingSpecOnly
-labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: fileSaveSpec
+	    activeHelpKey: fileSaveSpec
-label: 'Save'
+	    label: 'Save'
-itemValue: doSave
+	    itemValue: doSave
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-isVisible: isEditingSpecOnly
+	    isVisible: isEditingSpecOnly
-labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
+	    labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editCut
+	    activeHelpKey: editCut
-enabled: hasSelectionChannel
+	    enabled: hasSelectionChannel
-label: 'Cut'
+	    label: 'Cut'
-itemValue: doCut
+	    itemValue: doCut
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary cutMenuItemIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary cutMenuItemIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editCopy
+	    activeHelpKey: editCopy
-enabled: hasSelectionChannel
+	    enabled: hasSelectionChannel
-label: 'Copy'
+	    label: 'Copy'
-itemValue: doCopy
+	    itemValue: doCopy
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary copyMenuItemIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary copyMenuItemIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editPaste
+	    activeHelpKey: editPaste
-enabled: canPasteHolder
+	    enabled: canPasteHolder
-label: 'Paste'
+	    label: 'Paste'
-itemValue: doPaste
+	    itemValue: doPaste
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary pasteMenuItemIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary pasteMenuItemIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuItem
+	    activeHelpKey: addMenuItem
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Add Item'
+	    label: 'Add Item'
-itemValue: doCreateItem
+	    itemValue: doCreateItem
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuSeparator
+	    activeHelpKey: addMenuSeparator
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Add Separator'
+	    label: 'Add Separator'
-itemValue: doCreateSep
+	    itemValue: doCreateSep
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addMenuSlice
+	    activeHelpKey: addMenuSlice
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Menu Slice'
+	    label: 'Menu Slice'
-itemValue: doCreateMenuSliceItem
+	    itemValue: doCreateMenuSliceItem
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconSliceMenu)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addSubMenu
+	    activeHelpKey: addSubMenu
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Add Menu'
+	    label: 'Add Menu'
-itemValue: doCreateMenu
+	    itemValue: doCreateMenu
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-submenuChannel: standardMenus
+	    submenuChannel: standardMenus
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu)
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addSubMenuLink
+	    activeHelpKey: addSubMenuLink
-enabled: hasSingleSelectionChannel
+	    enabled: hasSingleSelectionChannel
-label: 'Add Linked Menu'
+	    label: 'Add Linked Menu'
-itemValue: doCreateLinkedMenu
+	    itemValue: doCreateLinkedMenu
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addDelayedMenu
+	    activeHelpKey: addDelayedMenu
-enabled: canCreateDelayedMenuChannel
+	    enabled: canCreateDelayedMenuChannel
-label: 'Add Delayed Menu'
+	    label: 'Add Delayed Menu'
-itemValue: doCreateDelayedMenu:
+	    itemValue: doCreateDelayedMenu:
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu)
-argument: menu
+	    argument: menu
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: addDelayedSubMenuLink
+	    activeHelpKey: addDelayedSubMenuLink
-enabled: canCreateDelayedMenuChannel
+	    enabled: canCreateDelayedMenuChannel
-label: 'Add Delayed Linked Menu'
+	    label: 'Add Delayed Linked Menu'
-itemValue: doCreateDelayedMenu:
+	    itemValue: doCreateDelayedMenu:
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu)
+	    labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu)
-argument: linkedMenu
+	    argument: linkedMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveUp
+	    activeHelpKey: editMoveUp
-enabled: enableMovingUpOrDownHolder
+	    enabled: enableMovingUpOrDownHolder
-label: 'Move Up'
+	    label: 'Move Up'
-itemValue: doMoveUp
+	    itemValue: doMoveUp
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-startGroup: right
+	    startGroup: right
-labelImage: (ResourceRetriever Icon upIcon)
+	    labelImage: (ResourceRetriever Icon upIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveDown
+	    activeHelpKey: editMoveDown
-enabled: enableMovingUpOrDownHolder
+	    enabled: enableMovingUpOrDownHolder
-label: 'Move Down'
+	    label: 'Move Down'
-itemValue: doMoveDown
+	    itemValue: doMoveDown
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever Icon downIcon)
+	    labelImage: (ResourceRetriever Icon downIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveIn
+	    activeHelpKey: editMoveIn
-enabled: enableMovingInHolder
+	    enabled: enableMovingInHolder
-label: 'Move Into Next'
+	    label: 'Move Into Next'
-itemValue: doMoveInNext
+	    itemValue: doMoveInNext
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever Icon downRightIcon)
+	    labelImage: (ResourceRetriever Icon downRightIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveInAbove
+	    activeHelpKey: editMoveInAbove
-enabled: enableMovingInAboveHolder
+	    enabled: enableMovingInAboveHolder
-label: 'Move Into Previous'
+	    label: 'Move Into Previous'
-itemValue: doMoveInPrevious
+	    itemValue: doMoveInPrevious
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever Icon upRightIcon)
+	    labelImage: (ResourceRetriever Icon upRightIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: editMoveOut
+	    activeHelpKey: editMoveOut
-enabled: enableMovingOutHolder
+	    enabled: enableMovingOutHolder
-label: 'Move Out'
+	    label: 'Move Out'
-itemValue: doMoveOut
+	    itemValue: doMoveOut
-translateLabel: true
+	    translateLabel: true
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever Icon leftDownIcon)
+	    labelImage: (ResourceRetriever Icon leftDownIcon)
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 ! !
 !MenuEditor class methodsFor:'menu specs-standard'!
 !
 imageTool
 "get the image tool application"
 ^ wizards
-at:#image
+	at:#image
-ifAbsentPut:[
+	ifAbsentPut:[
-|tool|
+	    |tool|
-tool := ImageResourceEditor new createBuilder.
+	    tool := ImageResourceEditor new createBuilder.
-tool masterApplication:self.
+	    tool masterApplication:self.
-tool modifiedChannel: self enablingCommitButtonsHolder.
+	    tool modifiedChannel: self enablingCommitButtonsHolder.
-tool builder window:(ApplicationSubView new client:tool).
+	    tool builder window:(ApplicationSubView new client:tool).
-tool
+	    tool
-]
+	]
 "Modified: / 03-08-2011 / 10:03:08 / cg"
 !
 savedSpec
 |selectedItem rscRetrHolder helpKeyHolder helpTool imageTool acceptChannel|
 selectedItem := self selectedItem.
 selectedItem notNil ifTrue:[
-self withoutNotifyDo:[
+	self withoutNotifyDo:[
-rscRetrHolder := aspects at:#resourceRetriever.
+	    rscRetrHolder := aspects at:#resourceRetriever.
-helpKeyHolder := aspects at:#activeHelpKey.
+	    helpKeyHolder := aspects at:#activeHelpKey.
-imageTool     := self imageTool.
+	    imageTool     := self imageTool.
-helpTool      := self helpTool.
+	    helpTool      := self helpTool.
-acceptChannel := self acceptChannel.
+	    acceptChannel := self acceptChannel.
-acceptChannel triggerValue:true.
+	    acceptChannel triggerValue:true.
-acceptChannel setValue:false.
+	    acceptChannel setValue:false.
-ok ifTrue:[
+	    ok ifTrue:[
-helpTool accept.
+		helpTool accept.
-rscRetrHolder value:(imageTool resourceRetriever).
+		rscRetrHolder value:(imageTool resourceRetriever).
-helpKeyHolder value:(helpTool helpKey).
+		helpKeyHolder value:(helpTool helpKey).
-selectedItem  fromAspects:aspects.
+		selectedItem  fromAspects:aspects.
-self setModified.
+		self setModified.
-selectedItem isRootItem ifTrue:[
+		selectedItem isRootItem ifTrue:[
-"/ update specSelector
+		    "/ update specSelector
-specSelector := selectedItem rawLabel.
+		    specSelector := selectedItem rawLabel.
-].
+		].
-].
+	    ].
-selectedItem toAspects:aspects.
+	    selectedItem toAspects:aspects.
-helpTool     helpKey:(helpKeyHolder value).
+	    helpTool     helpKey:(helpKeyHolder value).
-imageTool    resourceRetriever:(rscRetrHolder value).
+	    imageTool    resourceRetriever:(rscRetrHolder value).
-]
+	]
 ].
 self updateChannels.
 "/    self clearModified.
 self clearModifiedFlag.
 "
 |item|
 item := listOfItems at:atLine ifAbsent:nil.
 item notNil ifTrue:[
-item toggleExpand.
+	item toggleExpand.
-self hasSelection ifFalse:[
+	self hasSelection ifFalse:[
-self selectedItem:item
+	    self selectedItem:item
-]
+	]
 ].
 "Modified: / 29-11-2011 / 11:28:20 / cg"
 ! !
 specClass := aClass.
 specSelector := aSelector.
 aSelector notNil ifTrue:[
-aClass notNil ifTrue:[
+	aClass notNil ifTrue:[
-cls := aClass isBehavior ifTrue:[ aClass ] ifFalse:[ self resolveName:aClass].
+	    cls := aClass isBehavior ifTrue:[ aClass ] ifFalse:[ self resolveName:aClass].
-(cls respondsTo:aSelector) ifTrue:[
+	    (cls respondsTo:aSelector) ifTrue:[
-menu := cls perform: aSelector.
+		menu := cls perform: aSelector.
-].
+	    ].
-].
+	].
 ].
 self loadFromMenu:menu selector:aSelector.
 !
 loadFromMenu:menuArg selector:selectorOrNil
 |menu|
 menu := menuArg.
 menu notNil ifTrue:[
-(menu isCollection) ifTrue:[
+	(menu isCollection) ifTrue:[
-menu := Menu decodeFromLiteralArray:menu
+	    menu := Menu decodeFromLiteralArray:menu
-].
+	].
 ].
 self buildFromMenu:menu selector:selectorOrNil.
 self clearModified.
 "Modified: / 27-03-2007 / 11:16:47 / cg"
 selection := selectionHolder value.
 size      := selection size.
 size <= 1 ifTrue:[
-selectedSuperItems := selection ? #().
+	selectedSuperItems := selection ? #().
 ^ selectedSuperItems
 ].
 root := listOfItems root.
 (selection includesIdentical:root) ifTrue:[
-selectedSuperItems := Array with:root.
+	selectedSuperItems := Array with:root.
 ^ selectedSuperItems
 ].
 selectedSuperItems := OrderedCollection new.
 selection do:[:anItem|
-anItem parentsDetect:[:el| selection includesIdentical:el ]
+	anItem parentsDetect:[:el| selection includesIdentical:el ]
-ifNone:[ selectedSuperItems add:anItem ].
+		      ifNone:[ selectedSuperItems add:anItem ].
 ].
 ^ selectedSuperItems
 "Modified: / 29-11-2011 / 11:28:23 / cg"
 !
 |tab selector item canvas wizardHolder|
 wizardHolder := self wizardHolder.
 item := self selectedItem.
 item isNil ifTrue:[
-wizardHolder value:nil.
+	wizardHolder value:nil.
-^ self
+	^ self
 ].
 tab := tabHolder value.
 tab notNil ifTrue:[
-tab := item slices detect:[:el| el first = tab ] ifNone:nil.
+	tab := item slices detect:[:el| el first = tab ] ifNone:nil.
 ].
 tab isNil ifTrue:[
-tabHolder value:( listOfTabs at:1 ifAbsent:nil ).
+	tabHolder value:( listOfTabs at:1 ifAbsent:nil ).
-^ self.
+	^ self.
 ].
 selector := tab last.
 selector == #help  ifTrue:[
-wizardHolder value:(self helpTool  window).
+	wizardHolder value:(self helpTool  window).
-^ self
+	^ self
 ].
 selector == #image ifTrue:[
-wizardHolder value:(self imageTool window).
+	wizardHolder value:(self imageTool window).
-^ self
+	^ self
 ].
 canvas := wizards
-at:(item class name, selector) asSymbol
+		at:(item class name, selector) asSymbol
-ifAbsentPut:[
+		ifAbsentPut:[
-SimpleView new
+		    SimpleView new
-client:self
+			client:self
-spec:(item class perform:selector)
+			spec:(item class perform:selector)
-builder:(self builder)
+			builder:(self builder)
-].
+		].
 wizardHolder value:canvas.
 !
 update:something with:aParameter from:changedObject
 selection := selectionHolder value.
 sizeOfSel := selection size.
 hasSelection := sizeOfSel ~~ 0.
 sizeOfSel == 1 ifTrue:[selectedItem := selection at:1]
-ifFalse:[selectedItem := nil].
+		  ifFalse:[selectedItem := nil].
 self hasSelectionChannel       value:hasSelection.
 self hasSingleSelectionChannel value:(selectedItem notNil).
 selectedItem isNil ifTrue:[
 "/        self enableMovingUpOrDownHolder  value:false.
-self enableMovingInHolder        value:false.
+	self enableMovingInHolder        value:false.
-self enableMovingOutHolder       value:false.
+	self enableMovingOutHolder       value:false.
-self enableMovingInAboveHolder   value:false.
+	self enableMovingInAboveHolder   value:false.
-self canCreateDelayedMenuChannel value:false.
+	self canCreateDelayedMenuChannel value:false.
 ] ifFalse:[
 "/        self enableMovingUpOrDownHolder  value:(selectedItem canMoveUpOrDown).
-self enableMovingInHolder        value:(selectedItem canMoveInNext).
+	self enableMovingInHolder        value:(selectedItem canMoveInNext).
-self enableMovingOutHolder       value:(selectedItem canMoveOut).
+	self enableMovingOutHolder       value:(selectedItem canMoveOut).
-self enableMovingInAboveHolder   value:(selectedItem canMoveInAbove).
+	self enableMovingInAboveHolder   value:(selectedItem canMoveInAbove).
-self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu).
+	self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu).
 ].
 self enableMovingUpOrDownHolder value:(selection conform:[:i | i canMoveUpOrDown]).
 "Modified (comment): / 18-01-2012 / 11:24:07 / cg"
 ! !
 lnNr := listOfItemsView yVisibleToLineNr:(aDropContext targetPoint y).
 item := nil.
 lnNr notNil ifTrue:[
-item := listOfItems at:lnNr ifAbsent:nil.
+	item := listOfItems at:lnNr ifAbsent:nil.
-item notNil ifTrue:[
+	item notNil ifTrue:[
-(item isAction and:[item hasDelayedMenu]) ifTrue:[
+	    (item isAction and:[item hasDelayedMenu]) ifTrue:[
-item := nil
+		item := nil
-]
+	    ]
-]
+	]
 ].
 item isNil ifTrue:[ lnNr := 0 ].   "/ not dropable for item
 "/ redraw drop indication
 self changeDropLineTo:lnNr in:aDropContext.
 processEvent:anEvent
 "filter keyboard edit-events typed into the listOfItemsView.
 Return true, if I have eaten the event"
 <resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste #CtrlCursorUp #CtrlCursorDown
-#CtrlCursorLeft #CtrlCursorRight )>
+			  #CtrlCursorLeft #CtrlCursorRight )>
 |evView rawKey key|
 anEvent isKeyPressEvent ifFalse:[^ false].
 (    key == #Delete
 or:[key == #BackSpace
 or:[key == #Cut]]
 ) ifTrue:[
-self doCut.
+	self doCut.
-^ true.
+	^ true.
 ].
 key == #Copy  ifTrue:[ self doCopy.  ^ true ].
 key == #Paste ifTrue:[ self doPaste. ^ true ].
 (rawKey == #CtrlCursorUp) ifTrue:[
-self doMoveUp.
+	self doMoveUp.
-^ true.
+	^ true.
 ].
 (rawKey == #CtrlCursorDown) ifTrue:[
-self doMoveDown.
+	self doMoveDown.
-^ true.
+	^ true.
 ].
 (rawKey == #CtrlCursorLeft) ifTrue:[
-self doMoveOut.
+	self doMoveOut.
-^ true.
+	^ true.
 ].
 (rawKey == #CtrlCursorRight) ifTrue:[
-self doMoveInNext.
+	self doMoveInNext.
-^ true.
+	^ true.
 ].
 ^ false.
 ! !
 menu := listOfItems root submenu.
 menu isNil ifTrue:[^ nil ].
 menu allItemsDo:[:anItem|
-anItem ignoreShortcutKeys:true.
+	anItem ignoreShortcutKeys:true.
-anItem isVisible:true.
+	anItem isVisible:true.
-anItem enabled:true.
+	anItem enabled:true.
-anItem translateLabel:false.
+	anItem translateLabel:false.
-anItem itemValue notNil ifTrue:[
+	anItem itemValue notNil ifTrue:[
-anItem itemValue:[ Transcript showCR:(anItem label) ].
+	    anItem itemValue:[ Transcript showCR:(anItem label) ].
-].
+	].
-anItem indication notNil ifTrue:[
+	anItem indication notNil ifTrue:[
-indication isNil ifTrue:[ indication := true asValue ].
+	    indication isNil ifTrue:[ indication := true asValue ].
-anItem indication:indication
+	    anItem indication:indication
-].
+	].
-anItem choice notNil ifTrue:[
+	anItem choice notNil ifTrue:[
-choice isNil ifTrue:[ choice := anItem choiceValue asValue ].
+	    choice isNil ifTrue:[ choice := anItem choiceValue asValue ].
-anItem choice:choice
+	    anItem choice:choice
-].
+	].
-anItem isMenuSlice ifTrue:[
+	anItem isMenuSlice ifTrue:[
-anItem submenuChannel:nil.
+	    anItem submenuChannel:nil.
-anItem label:'... Slice Menu ...'.
+	    anItem label:'... Slice Menu ...'.
-].
+	].
-anItem submenuChannel notNil ifTrue:[
+	anItem submenuChannel notNil ifTrue:[
-anItem submenuChannel:nil.
+	    anItem submenuChannel:nil.
-anItem submenu isNil ifTrue:[
+	    anItem submenu isNil ifTrue:[
-submenu isNil ifTrue:[
+		submenu isNil ifTrue:[
-submenu := Menu new.
+		    submenu := Menu new.
-submenu addItem:(MenuItem labeled:'Linked Menu...').
+		    submenu addItem:(MenuItem labeled:'Linked Menu...').
-].
+		].
-anItem submenu:submenu.
+		anItem submenu:submenu.
-].
+	    ].
-].
+	].
-retriever := anItem resourceRetriever.
+	retriever := anItem resourceRetriever.
-retriever notNil ifTrue:[
+	retriever notNil ifTrue:[
-retriever labelText notNil ifTrue:[ retriever labelText:(anItem label) ]
+	    retriever labelText notNil ifTrue:[ retriever labelText:(anItem label) ]
-].
+	].
 ].
 menu findGuiResourcesIn:(self resolveName:specClass).
 ^ menu
 ! !
 self askForItemModification ifFalse:[ ^ nil ].
 index := 1.
 (intoItem canAddChildren and:[intoItem isExpanded]) ifFalse:[
-intoItem parent notNil ifTrue:[
+	intoItem parent notNil ifTrue:[
-[ intoItem parent canAddChildren ] whileFalse:[
+	    [ intoItem parent canAddChildren ] whileFalse:[
-intoItem := intoItem parent.
+		intoItem := intoItem parent.
-].
+	    ].
-index := intoItem parent identityIndexOf:intoItem.
+	    index := intoItem parent identityIndexOf:intoItem.
-index := index + 1.
+	    index := index + 1.
-intoItem := intoItem parent.
+	    intoItem := intoItem parent.
-].
+	].
 ].
 newItem := aBlockOrItem value.
 newItem notNil ifTrue:[
-selectionHolder setValue:nil.
+	selectionHolder setValue:nil.
-intoItem expand.
+	intoItem expand.
-newItem isCollection ifTrue:[
+	newItem isCollection ifTrue:[
-intoItem addAll:newItem beforeIndex:index.
+	    intoItem addAll:newItem beforeIndex:index.
-selectionHolder value:newItem.
+	    selectionHolder value:newItem.
-] ifFalse:[
+	] ifFalse:[
-intoItem add:newItem beforeIndex:index.
+	    intoItem add:newItem beforeIndex:index.
-selectionHolder value:(Array with:newItem).
+	    selectionHolder value:(Array with:newItem).
-].
+	].
-self setModified.
+	self setModified.
 ].
 ^ newItem
 "Modified: / 29-11-2011 / 11:28:06 / cg"
 !
 |selectors|
 selectors := IdentitySet new.
 listOfItems root recursiveDo:[:el|
-selectors addAll:(el aspectSelectors).
+	selectors addAll:(el aspectSelectors).
 ].
 ^ selectors asOrderedCollection
 !
 doBrowseActionMethod
 doBrowseApplicationMethodFor:aspect
 |selector cls category|
 specClass isNil ifTrue:[
-self warn:(resources string:'Please define the application class first.').
+	self warn:(resources string:'Please define the application class first.').
-^ self
+	^ self
 ].
 selector := (self aspectFor:aspect) value.
 selector isEmptyOrNil ifTrue:[
-Dialog information:(resources string:'Please enter an action method name.').
+	Dialog information:(resources string:'Please enter an action method name.').
-^ self
+	^ self
 ].
 (selector = 'true' or:[selector = 'false']) ifTrue:[^ self].
 (selector == true or:[selector == false]) ifTrue:[^ self].
 selector := selector asSymbol.
 cls := self resolveName:specClass.
 cls isNil ifTrue:[
-self warn:(resources string:'Class %1 does not exist!!' with:specClass asString).
+	self warn:(resources string:'Class %1 does not exist!!' with:specClass asString).
-^ self
+	^ self
 ].
 (cls includesSelector:selector) ifFalse:[
-category := UserPreferences current categoryForMenuActionsMethods.
+	category := UserPreferences current categoryForMenuActionsMethods.
-SmalltalkCodeGeneratorTool
+	SmalltalkCodeGeneratorTool
-createActionMethodFor:selector in:cls
+	    createActionMethodFor:selector in:cls
-category:category
+	    category:category
-redefine:(self redefineAspectMethodsChannel value).
+	    redefine:(self redefineAspectMethodsChannel value).
 ].
 UserPreferences current systemBrowserClass openInClass:cls selector:selector
 "Created: / 21-10-2010 / 14:07:32 / cg"
 "compile aspect and action methods"
 |cls redefineAspectMethods category|
 specClass isNil ifTrue:[
-self warn:'Define the class first !!'.
+	self warn:'Define the class first !!'.
-^ self
+	^ self
 ].
 redefineAspectMethods := self redefineAspectMethodsChannel value.
 cls := self resolveName:specClass.
 cls isNil ifTrue:[
-self warn:'Class ', specClass asString, ' does not exist!!'.
+	self warn:'Class ', specClass asString, ' does not exist!!'.
-^ self
+	^ self
 ].
 category := UserPreferences current categoryForMenuActionsMethods.
 self collectActionSelectors do:[:aSelector|
-SmalltalkCodeGeneratorTool
+	SmalltalkCodeGeneratorTool
-createActionMethodFor:aSelector in:cls
+	    createActionMethodFor:aSelector in:cls
-category:category
+	    category:category
-redefine:redefineAspectMethods.
+	    redefine:redefineAspectMethods.
 ].
 self collectAspectSelectors do:[:anAspect|
-SmalltalkCodeGeneratorTool
+	SmalltalkCodeGeneratorTool
-createAspectMethodFor:anAspect in:cls
+	    createAspectMethodFor:anAspect in:cls
-category:category
+	    category:category
-redefine:redefineAspectMethods
+	    redefine:redefineAspectMethods
 ].
 "Modified: / 31-01-2011 / 18:29:06 / cg"
 ! !
 "pick a menu and edit its spec method"
 |view subSpec app bldr spec menuSelector1 menuSelector2 info|
 self askForModification ifTrue:[
-view := Screen current viewFromUser.
+	view := Screen current viewFromUser.
-(view isNil or:[view == Screen current rootView]) ifTrue:[
+	(view isNil or:[view == Screen current rootView]) ifTrue:[
-^ self
+	    ^ self
-].
+	].
-view specClass == MenuPanelSpec ifTrue:[
+	view specClass == MenuPanelSpec ifTrue:[
-(app := view application) isNil ifTrue:[
+	    (app := view application) isNil ifTrue:[
-info := 'Could not figure out the application class.'
+		info := 'Could not figure out the application class.'
-] ifFalse:[
+	    ] ifFalse:[
-(bldr := app builder) isNil ifTrue:[
+		(bldr := app builder) isNil ifTrue:[
-info := 'Application has no builder.'
+		    info := 'Application has no builder.'
-] ifFalse:[
+		] ifFalse:[
-menuSelector1 := bldr namedComponents keyAtValue:view ifAbsent:nil.
+		    menuSelector1 := bldr namedComponents keyAtValue:view ifAbsent:nil.
-(spec := bldr spec) isNil ifTrue:[
+		    (spec := bldr spec) isNil ifTrue:[
-info := 'Cannot fetch spec from applications builder.'
+			info := 'Cannot fetch spec from applications builder.'
-] ifFalse:[
+		    ] ifFalse:[
-subSpec := spec findSpecForWhich:[:subSpec | subSpec name = view name].
+			subSpec := spec findSpecForWhich:[:subSpec | subSpec name = view name].
-subSpec isNil ifTrue:[
+			subSpec isNil ifTrue:[
-info := 'Cannot find view-spec for ',view name asString,'.'
+			    info := 'Cannot find view-spec for ',view name asString,'.'
-] ifFalse:[
+			] ifFalse:[
-menuSelector2 := subSpec menu.
+			    menuSelector2 := subSpec menu.
-]
+			]
-].
+		    ].
-(menuSelector1 isNil and:[ menuSelector2 isNil ]) ifTrue:[
+		    (menuSelector1 isNil and:[ menuSelector2 isNil ]) ifTrue:[
-info := 'menu is probably not provided by a menuSelector.'
+			info := 'menu is probably not provided by a menuSelector.'
-] ifFalse:[
+		    ] ifFalse:[
-(app class respondsTo:menuSelector1) ifTrue:[
+			(app class respondsTo:menuSelector1) ifTrue:[
-self loadFromClass:app class andSelector:menuSelector1.
+			    self loadFromClass:app class andSelector:menuSelector1.
-^ self.
+			    ^ self.
-].
+			].
-(app class respondsTo:menuSelector2) ifTrue:[
+			(app class respondsTo:menuSelector2) ifTrue:[
-self loadFromClass:app class andSelector:menuSelector2.
+			    self loadFromClass:app class andSelector:menuSelector2.
-^ self.
+			    ^ self.
-].
+			].
-info := 'menu is probably not provided by a menuSelector.'
+			info := 'menu is probably not provided by a menuSelector.'
-].
+		    ].
-]
+		]
-].
+	    ].
-info notNil ifTrue:[
+	    info notNil ifTrue:[
-app notNil ifTrue:[
+		app notNil ifTrue:[
-(Dialog confirm:(info,'\\Browse ?' withCRs)) ifTrue:[
+		    (Dialog confirm:(info,'\\Browse ?' withCRs)) ifTrue:[
-app browse.
+			app browse.
-].
+		    ].
-] ifFalse:[
+		] ifFalse:[
-Dialog information:info.
+		    Dialog information:info.
-].
+		].
-].
+	    ].
-^ self.
+	    ^ self.
-].
+	].
 ].
 !
 doNew
 "clear editing menu; start from scratch
 "let user pick a menu and create a new spec"
 |view|
 self askForModification ifTrue:[
-view := Screen current viewFromUser.
+	view := Screen current viewFromUser.
-(view isNil or:[view == Screen current rootView]) ifTrue:[
+	(view isNil or:[view == Screen current rootView]) ifTrue:[
-^ self
+	    ^ self
-].
+	].
-view specClass == MenuPanelSpec ifTrue:[
+	view specClass == MenuPanelSpec ifTrue:[
-specSelector := #pickedMenu.
+	    specSelector := #pickedMenu.
-self buildFromMenu:(view asMenu) selector:specSelector.
+	    self buildFromMenu:(view asMenu) selector:specSelector.
-].
+	].
 ].
 !
 doSave
 "save current editing menu to
-class: specClass
+	   class: specClass
-selector: specSelector
+	selector: specSelector
 "
 |cls specCode mthd category code excla s|
 self isEditingSpecOnly ifTrue:[
-savedSpec := self generateMenuSpec.
+	savedSpec := self generateMenuSpec.
-hasSaved := true.
+	hasSaved := true.
-self clearModified.
+	self clearModified.
-^ self
+	^ self
 ].
 super doSave ifFalse: [^nil].
 specCode := self generateMenuSpecString.
 specCode isNil ifTrue:[^ nil].
 "/ if that method already exists, do not overwrite the category
 category := 'menu specs'.
 (mthd := cls class compiledMethodAt:specSelector) notNil ifTrue:[
-category := mthd category.
+	category := mthd category.
 ].
 s := '' writeStream.
 s nextPutChunkSeparator;
 nextPutChunkSeparator;
 cr; cr;
 nextPutAll:specSelector;
 cr;
 nextPutAllAsChunk:(self class codeGenerationComment) withCRs;
 cr; cr;
 nextPutLine:'    "';
 nextPutLine:('     MenuEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector);
 nextPutLine:('     (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , specSelector , ')) startUp');
 nextPutLine:'    "';
 cr;
 cr.
 (ReadStream on:s contents) fileIn.
 self isStandAlone ifTrue:[
-self helpTool doSave
+	self helpTool doSave
 ].
 self updateHistory.
 hasSaved := true.
 self clearModified.
 |code|
 code := self generateMenuSpecString.
 code notNil ifTrue:[
-CodeView openWith:code title: 'Menu Spec'
+	CodeView openWith:code title: 'Menu Spec'
 ].
 "Modified: / 29-11-2011 / 11:28:12 / cg"
 !
 selectedItem canAddDelayedMenu      ifFalse:[ ^ self ].
 self askForItemModification ifFalse:[ ^ self ].
 what == #menu ifTrue:[ delayedItem := RegularMenuItem new ]
-ifFalse:[ delayedItem := LinkedMenuItem new ].
+		 ifFalse:[ delayedItem := LinkedMenuItem new ].
 delayedItem setExpanded:true.
 delayedItem := selectedItem add:delayedItem.
 delayedItem notNil ifTrue:[
-self selectedItem:delayedItem.
+	self selectedItem:delayedItem.
 ].
 "Modified: / 29-11-2011 / 11:28:09 / cg"
 !
 doCreateStandardEditMenu
 "create a standard edit menu
 "
 self addAndSelectValueOf:[
-RegularMenuItem menu:(self class standardEditMenu) labeled:'Edit' translateLabel:true
+	RegularMenuItem menu:(self class standardEditMenu) labeled:'Edit' translateLabel:true
 ].
 !
 doCreateStandardFileMenu
 "create a standard file menu
 "
 self addAndSelectValueOf:[
-RegularMenuItem menu:(self class standardFileMenu) labeled:'File' translateLabel:true
+	RegularMenuItem menu:(self class standardFileMenu) labeled:'File' translateLabel:true
 ].
 !
 doCreateStandardHelpMenu
 "create a standard help menu
 "
 |item|
 self addAndSelectValueOf:[
-item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true.
+	item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true.
-item aspectAt:#startGroup put:#conditionalRight.
+	item aspectAt:#startGroup put:#conditionalRight.
-item
+	item
 ].
 "Modified: / 16-10-2006 / 12:49:27 / cg"
 ! !
 (items conform:[:i | i canMoveUpOrDown]) ifFalse:[^ self].
 self askForItemModification ifFalse:[ ^ self ].
 self withoutNotifyDo:[
-itemsSortedByIndex := items copy.
+	itemsSortedByIndex := items copy.
-(items collect:[:i | listOfItems identityIndexOf:i])
+	(items collect:[:i | listOfItems identityIndexOf:i])
-sortWith:itemsSortedByIndex.
+	    sortWith:itemsSortedByIndex.
-aDirectionSymbol == #down ifTrue:[
+	aDirectionSymbol == #down ifTrue:[
-itemsSortedByIndex := itemsSortedByIndex reversed
+	    itemsSortedByIndex := itemsSortedByIndex reversed
-].
+	].
-itemsSortedByIndex do:[:item |
+	itemsSortedByIndex do:[:item |
-parent   := item parent.
+	    parent   := item parent.
-children := parent children.
+	    children := parent children.
-index    := children identityIndexOf:item.
+	    index    := children identityIndexOf:item.
-selectionHolder setValue:#().
+	    selectionHolder setValue:#().
-children removeIndex:index.
+	    children removeIndex:index.
-aDirectionSymbol == #up ifTrue:[
+	    aDirectionSymbol == #up ifTrue:[
-index == 1 ifTrue:[ children add:item ]
+		index == 1 ifTrue:[ children add:item ]
-ifFalse:[ children add:item beforeIndex:index - 1 ]
+			ifFalse:[ children add:item beforeIndex:index - 1 ]
-] ifFalse:[
+	    ] ifFalse:[
-index > children size ifTrue:[ children addFirst:item ]
+		index > children size ifTrue:[ children addFirst:item ]
-ifFalse:[ children add:item afterIndex:index ]
+				    ifFalse:[ children add:item afterIndex:index ]
-].
+	    ].
-parent childrenOrderChanged.
+	    parent childrenOrderChanged.
-]
+	]
 ].
 self selectedItems:items.
 self setModified.
 "Modified: / 18-01-2012 / 11:35:38 / cg"
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconDelayedLinkedMenu'
+	constantNamed:'MenuEditor::Item class iconDelayedLinkedMenu'
-ifAbsentPut:[(Depth4Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth4Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@DQDQDQDQDQDR@AH"H"H"H"H"H0@@@BH"H"@@@BL@QDPBH"H"@@H#@DQDPBH@H"@"H0ADQDPBA@H"H"L@@@QDP@Q@@@@C@ADPQDQDQ@DQD:
 @RH QDQDQ@H"L@D"H QDQD@"H#@A@@@@@DP@@@@0@QDQDQA@DQDQL@D"H"H @"H"H#@BL3L3L3L3L3L0@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
 !
 iconDelayedMenu
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconDelayedMenu'
+	constantNamed:'MenuEditor::Item class iconDelayedMenu'
-ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUUVA*****,F***@B0Z***@+A****J,F*****0@@@@@@AUUUUUXF*****0Z****+A@@@@@LEUUUUU0Z****+B?????<@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
+	ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUUVA*****,F***@B0Z***@+A****J,F*****0@@@@@@AUUUUUXF*****0Z****+A@@@@@LEUUUUU0Z****+B?????<@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
 !
 iconItem
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconItem'
+	constantNamed:'MenuEditor::Item class iconItem'
-ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUUUUUUUP@@@@@@EUUUUU Z****+A.?/;+,F:::/>0[++>:;A...++,F::?..0Z****+B?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
+	ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUUUUUUUP@@@@@@EUUUUU Z****+A.?/;+,F:::/>0[++>:;A...++,F::?..0Z****+B?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
 !
 iconLinkedMenu
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconLinkedMenu'
+	constantNamed:'MenuEditor::Item class iconLinkedMenu'
-ifAbsentPut:[(Depth4Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth4Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@QDQDQDQDQDQA@DH"H"H"H"H"HPABH@@@H"H"H"D@PQ@3L0DQDQDQ@D@@L3L0@@@@@PADPCL3L0PCADD@P"@@@3L0@3@!!@DH"H"@3L3L3@P
 AADQDQ@3L3L3@@P@@@@@@3L3LA@DQDQDQD@@L0PPABH"H"H"HC@"D@P"H"H"H"@BH!!@BDQDQDQDQDQDP@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 0 0 255 255 255]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
 !
 iconMenu
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconMenu'
+	constantNamed:'MenuEditor::Item class iconMenu'
-ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@?????=C*****$N*****P5UUUUUC@@@@@DO?????P:****)C*****$MUUUUUP0@@@@AC?????4N*****P:****)BUUUUUT@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
+	ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@?????=C*****$N*****P5UUUUUC@@@@@DO?????P:****)C*****$MUUUUUP0@@@@AC?????4N*****P:****)BUUUUUT@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0???0') ; yourself); yourself]
 !
 iconSeparator
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconSeparator'
+	constantNamed:'MenuEditor::Item class iconSeparator'
-ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUUUUUUUP@@@@@@EUUUUU Z****+A*****,F????:0[@@@@[A)UUUU,F*****0Z****+B?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
+	ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUUUUUUUP@@@@@@EUUUUU Z****+A*****,F????:0[@@@@[A)UUUU,F*****0Z****+B?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
 !
 iconSliceMenu
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:'MenuEditor::Item class iconSliceMenu'
+	constantNamed:'MenuEditor::Item class iconSliceMenu'
-ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@O?????0:*****C/?6??XN:*[*) ;*).*&C.*&:*XN5U[UU :*****C*****(@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
+	ifAbsentPut:[(Depth2Image new) width: 20; height: 16; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@O?????0:*****C/?6??XN:*[*) ;*).*&C.*&:*XN5U[UU :*****C*****(@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 20; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@???0???0???0???0???0???0???0???0???0???0???0@@@@@@@@@@@@') ; yourself); yourself]
 ! !
 !MenuEditor::Item class methodsFor:'instance creation'!
 classFor:aMenuItem
 UIPainter new openOnClass:MenuEditor::Item andSelector:#detailsEditSpec
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: detailsEditSpec
+	name: detailsEditSpec
-window:
+	window:
 (WindowSpec
-label: 'Details Edit'
+	  label: 'Details Edit'
-name: 'Details Edit'
+	  name: 'Details Edit'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 407 291)
+	  bounds: (Rectangle 0 0 407 291)
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(LabelSpec
+	   (LabelSpec
-label: 'Accelerator:'
+	      label: 'Accelerator:'
-name: 'shortcutKeyLabel'
+	      name: 'shortcutKeyLabel'
-layout: (AlignmentOrigin 107 0 26 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 26 0 1 0.5)
-activeHelpKey: detailsAccelerator
+	      activeHelpKey: detailsAccelerator
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'shortcutKeyField'
+	      name: 'shortcutKeyField'
-layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
+	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
-activeHelpKey: detailsAccelerator
+	      activeHelpKey: detailsAccelerator
-tabable: true
+	      tabable: true
-model: shortcutKeyCharacter
+	      model: shortcutKeyCharacter
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Enabled:'
+	      label: 'Enabled:'
-name: 'enabledLabel'
+	      name: 'enabledLabel'
-layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-activeHelpKey: detailsEnabled
+	      activeHelpKey: detailsEnabled
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'enabledField'
+	      name: 'enabledField'
-layout: (LayoutFrame 110 0 40 0 -25 1.0 62 0)
+	      layout: (LayoutFrame 110 0 40 0 -25 1.0 62 0)
-activeHelpKey: detailsEnabled
+	      activeHelpKey: detailsEnabled
-tabable: true
+	      tabable: true
-model: enabled
+	      model: enabled
-group: inputGroup
+	      group: inputGroup
-type: symbolOrBooleanOrNil
+	      type: symbolOrBooleanOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(ActionButtonSpec
+	   (ActionButtonSpec
-label: 'browseActionImage'
+	      label: 'browseActionImage'
-name: 'Button1'
+	      name: 'Button1'
-layout: (LayoutFrame -25 1 40 0 -5 1 62 0)
+	      layout: (LayoutFrame -25 1 40 0 -5 1 62 0)
-activeHelpKey: browseMethod
+	      activeHelpKey: browseMethod
-hasCharacterOrientedLabel: false
+	      hasCharacterOrientedLabel: false
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-tabable: true
+	      tabable: true
-model: doBrowseEnabledMethod
+	      model: doBrowseEnabledMethod
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Visibility:'
+	      label: 'Visibility:'
-name: 'visibilityLabel'
+	      name: 'visibilityLabel'
-layout: (AlignmentOrigin 107 0 76 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 76 0 1 0.5)
-activeHelpKey: detailsVisibility
+	      activeHelpKey: detailsVisibility
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'isVisibleInputField'
+	      name: 'isVisibleInputField'
-layout: (LayoutFrame 110 0 65 0 -25 1.0 87 0)
+	      layout: (LayoutFrame 110 0 65 0 -25 1.0 87 0)
-activeHelpKey: detailsVisibility
+	      activeHelpKey: detailsVisibility
-tabable: true
+	      tabable: true
-model: isVisible
+	      model: isVisible
-group: inputGroup
+	      group: inputGroup
-type: symbolOrBooleanOrNil
+	      type: symbolOrBooleanOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(ActionButtonSpec
+	   (ActionButtonSpec
-label: 'browseActionImage'
+	      label: 'browseActionImage'
-name: 'Button2'
+	      name: 'Button2'
-layout: (LayoutFrame -25 1 65 0 -5 1 87 0)
+	      layout: (LayoutFrame -25 1 65 0 -5 1 87 0)
-activeHelpKey: browseMethod
+	      activeHelpKey: browseMethod
-hasCharacterOrientedLabel: false
+	      hasCharacterOrientedLabel: false
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-tabable: true
+	      tabable: true
-model: doBrowseVisibilityMethod
+	      model: doBrowseVisibilityMethod
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Aux Value'
+	      label: 'Aux Value'
-name: 'auxLabel'
+	      name: 'auxLabel'
-layout: (AlignmentOrigin 107 0 101 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 101 0 1 0.5)
-activeHelpKey: detailsAuxValue
+	      activeHelpKey: detailsAuxValue
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'auxInputField'
+	      name: 'auxInputField'
-layout: (LayoutFrame 110 0 90 0 -5 1.0 112 0)
+	      layout: (LayoutFrame 110 0 90 0 -5 1.0 112 0)
-activeHelpKey: detailsAuxValue
+	      activeHelpKey: detailsAuxValue
-tabable: true
+	      tabable: true
-model: auxValue
+	      model: auxValue
-group: inputGroup
+	      group: inputGroup
-type: smalltalkObjectOrNil
+	      type: smalltalkObjectOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Start Group:'
+	      label: 'Start Group:'
-name: 'StartGroupLabel'
+	      name: 'StartGroupLabel'
-layout: (AlignmentOrigin 107 0 139 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 139 0 1 0.5)
-activeHelpKey: detailsStartGroup
+	      activeHelpKey: detailsStartGroup
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(PopUpListSpec
+	   (PopUpListSpec
-label: 'left'
+	      label: 'left'
-name: 'StartGroupPopUp'
+	      name: 'StartGroupPopUp'
-layout: (LayoutFrame 110 0 128 0 -5 1.0 150 0)
+	      layout: (LayoutFrame 110 0 128 0 -5 1.0 150 0)
-activeHelpKey: detailsStartGroup
+	      activeHelpKey: detailsStartGroup
-tabable: true
+	      tabable: true
-model: startGroup
+	      model: startGroup
-menu:
+	      menu:
-(Array
+	     (Array
-left right
+		left right
-conditionalRight
+		conditionalRight
-)
+	      )
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Access Character Position:'
+	      label: 'Access Character Position:'
-name: 'accessCharLabel'
+	      name: 'accessCharLabel'
-layout: (AlignmentOrigin 217 0 170 0 1 0.5)
+	      layout: (AlignmentOrigin 217 0 170 0 1 0.5)
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'accessCharField'
+	      name: 'accessCharField'
-layout: (LayoutFrame 220 0 159 0 -5 1.0 181 0)
+	      layout: (LayoutFrame 220 0 159 0 -5 1.0 181 0)
-activeHelpKey: detailsAccessCharaterPosition
+	      activeHelpKey: detailsAccessCharaterPosition
-tabable: true
+	      tabable: true
-model: accessCharacterPosition
+	      model: accessCharacterPosition
-group: inputGroup
+	      group: inputGroup
-type: numberOrNil
+	      type: numberOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Ignore Accelerator (i.e. Display Only)'
+	      label: 'Ignore Accelerator (i.e. Display Only)'
-name: 'ignoreShortcutKeysInItem'
+	      name: 'ignoreShortcutKeysInItem'
-layout: (AlignmentOrigin 42 0 204 0 0 0.5)
+	      layout: (AlignmentOrigin 42 0 204 0 0 0.5)
-activeHelpKey: detailsIgnoreAcceleratorKeys
+	      activeHelpKey: detailsIgnoreAcceleratorKeys
-visibilityChannel: hasNoSubmenu
+	      visibilityChannel: hasNoSubmenu
-model: ignoreShortcutKeys
+	      model: ignoreShortcutKeys
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Ignore Accelerators in Submenu'
+	      label: 'Ignore Accelerators in Submenu'
-name: 'ignoreShortcutKeys'
+	      name: 'ignoreShortcutKeys'
-layout: (AlignmentOrigin 42 0 204 0 0 0.5)
+	      layout: (AlignmentOrigin 42 0 204 0 0 0.5)
-activeHelpKey: detailsIgnoreAcceleratorKeys
+	      activeHelpKey: detailsIgnoreAcceleratorKeys
-visibilityChannel: hasSubmenu
+	      visibilityChannel: hasSubmenu
-model: ignoreShortcutKeys
+	      model: ignoreShortcutKeys
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Ignore Mnemonics in Submenu'
+	      label: 'Ignore Mnemonics in Submenu'
-name: 'ignoreMnemonicKeys'
+	      name: 'ignoreMnemonicKeys'
-layout: (AlignmentOrigin 42 0 232 0 0 0.5)
+	      layout: (AlignmentOrigin 42 0 232 0 0 0.5)
-activeHelpKey: detailsIgnoreMnemonicKeys
+	      activeHelpKey: detailsIgnoreMnemonicKeys
-visibilityChannel: hasSubmenu
+	      visibilityChannel: hasSubmenu
-model: ignoreMnemonicKeys
+	      model: ignoreMnemonicKeys
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Font:'
+	      label: 'Font:'
-name: 'fontLabel'
+	      name: 'fontLabel'
-layout: (AlignmentOrigin 107 0 271 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 271 0 1 0.5)
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(FontMenuSpec
+	   (FontMenuSpec
-name: 'fontMenu'
+	      name: 'fontMenu'
-layout: (LayoutFrame 110 0 260 0 -5 1.0 282 0)
+	      layout: (LayoutFrame 110 0 260 0 -5 1.0 282 0)
-activeHelpKey: fontMenu
+	      activeHelpKey: fontMenu
-model: font
+	      model: font
-allowSymbolicFonts: true
+	      allowSymbolicFonts: true
-)
+	    )
-)
+	   )
-)
+	)
 )
 "Modified: / 21-10-2010 / 14:15:09 / cg"
 ! !
 fromAspects:aspects
 "read values from aspects
 "
 MenuEditor aspects do:[:aKey|
-self aspectAt:aKey put:((aspects at:aKey) value).
+	self aspectAt:aKey put:((aspects at:aKey) value).
 ].
 self validateMenuItem.
 self changed.
 !
 "validate the menuItem for correctness"
 menuItem isNil ifTrue:[^ self].
 menuItem choice isEmptyOrNil ifTrue:[
-menuItem choice:nil.
+	menuItem choice:nil.
-menuItem choiceValue:nil.
+	menuItem choiceValue:nil.
 ].
 ! !
 !MenuEditor::Item methodsFor:'displaying'!
 |aspects|
 aspects := OrderedCollection new.
 #( indication choice enabled isVisible ) do:[:aKey| |sel|
-sel := menuItem perform:aKey.
+	sel := menuItem perform:aKey.
-sel isSymbol ifTrue:[ aspects add:sel ]
+	sel isSymbol ifTrue:[ aspects add:sel ]
 ].
 ^ aspects
 ! !
 !MenuEditor::Item methodsFor:'queries-operation'!
 MenuEditor::ImageResourceEditor open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: windowSpec
+	name: windowSpec
-window:
+	window:
 (WindowSpec
-label: 'Image Item'
+	  label: 'Image Item'
-name: 'Image Item'
+	  name: 'Image Item'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 303 304)
+	  bounds: (Rectangle 0 0 303 304)
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(LabelSpec
+	   (LabelSpec
-label: 'Retriever:'
+	      label: 'Retriever:'
-name: 'retrieverLabel'
+	      name: 'retrieverLabel'
-layout: (AlignmentOrigin 107 0 26 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 26 0 1 0.5)
-activeHelpKey: imageRetriever
+	      activeHelpKey: imageRetriever
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(ComboBoxSpec
+	   (ComboBoxSpec
-name: 'retrieverHolder'
+	      name: 'retrieverHolder'
-layout: (LayoutFrame 110 0 15 0 -2 1.0 37 0)
+	      layout: (LayoutFrame 110 0 15 0 -2 1.0 37 0)
-activeHelpKey: imageRetriever
+	      activeHelpKey: imageRetriever
-tabable: true
+	      tabable: true
-model: retrieverHolder
+	      model: retrieverHolder
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: true
+	      immediateAccept: true
-acceptOnReturn: false
+	      acceptOnReturn: false
-acceptOnTab: false
+	      acceptOnTab: false
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-entryCompletionBlock: entryCompletionForRetriever
+	      entryCompletionBlock: entryCompletionForRetriever
-comboList: retrieverList
+	      comboList: retrieverList
-isFilenameBox: false
+	      isFilenameBox: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Selector:'
+	      label: 'Selector:'
-name: 'iconLabel'
+	      name: 'iconLabel'
-layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-activeHelpKey: imageSelector
+	      activeHelpKey: imageSelector
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'selectorHolder'
+	      name: 'selectorHolder'
-layout: (LayoutFrame 110 0 40 0 -24 1.0 62 0)
+	      layout: (LayoutFrame 110 0 40 0 -24 1.0 62 0)
-activeHelpKey: imageSelector
+	      activeHelpKey: imageSelector
-tabable: true
+	      tabable: true
-model: selectorHolder
+	      model: selectorHolder
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: true
+	      immediateAccept: true
-acceptOnReturn: false
+	      acceptOnReturn: false
-acceptOnTab: false
+	      acceptOnTab: false
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(ActionButtonSpec
+	   (ActionButtonSpec
-label: '...'
+	      label: '...'
-name: 'browseButton'
+	      name: 'browseButton'
-layout: (LayoutFrame -22 1 40 0 -2 1 62 0)
+	      layout: (LayoutFrame -22 1 40 0 -2 1 62 0)
-activeHelpKey: browseResource
+	      activeHelpKey: browseResource
-tabable: true
+	      tabable: true
-model: doBrowseForImageResource
+	      model: doBrowseForImageResource
-)
+	    )
-(DividerSpec
+	   (DividerSpec
-name: 'Separator1'
+	      name: 'Separator1'
-layout: (LayoutFrame 0 0.0 66 0 0 1.0 70 0)
+	      layout: (LayoutFrame 0 0.0 66 0 0 1.0 70 0)
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'SelectorFilterBox2'
+	      name: 'SelectorFilterBox2'
-layout: (LayoutFrame 0 0.0 74 0 0 1.0 96 0)
+	      layout: (LayoutFrame 0 0.0 74 0 0 1.0 96 0)
-activeHelpKey: selectorFilter
+	      activeHelpKey: selectorFilter
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(LabelSpec
+		 (LabelSpec
-label: 'Filter:'
+		    label: 'Filter:'
-name: 'Label1'
+		    name: 'Label1'
-layout: (AlignmentOrigin 107 0 11 0 1 0.5)
+		    layout: (AlignmentOrigin 107 0 11 0 1 0.5)
-activeHelpKey: selectorFilter
+		    activeHelpKey: selectorFilter
-translateLabel: true
+		    translateLabel: true
-resizeForLabel: true
+		    resizeForLabel: true
-adjust: right
+		    adjust: right
-)
+		  )
-(InputFieldSpec
+		 (InputFieldSpec
-name: 'EntryField1'
+		    name: 'EntryField1'
-layout: (LayoutFrame 110 0 0 0 -2 1 22 0)
+		    layout: (LayoutFrame 110 0 0 0 -2 1 22 0)
-model: selectorFilterHolder
+		    model: selectorFilterHolder
-immediateAccept: true
+		    immediateAccept: true
-acceptOnLeave: true
+		    acceptOnLeave: true
-acceptOnReturn: false
+		    acceptOnReturn: false
-acceptOnTab: false
+		    acceptOnTab: false
-acceptOnPointerLeave: false
+		    acceptOnPointerLeave: false
-activeHelpKey: selectorFilter
+		    activeHelpKey: selectorFilter
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-(HierarchicalListViewSpec
+	   (HierarchicalListViewSpec
-name: 'imageList'
+	      name: 'imageList'
-layout: (LayoutFrame 2 0.0 100 0 -2 1.0 -60 1.0)
+	      layout: (LayoutFrame 2 0.0 100 0 -2 1.0 -60 1.0)
-activeHelpKey: imageImageList
+	      activeHelpKey: imageImageList
-model: imageHolder
+	      model: imageHolder
-menu: menuEditImage
+	      menu: menuEditImage
-hasHorizontalScrollBar: true
+	      hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+	      hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+	      miniScrollerHorizontal: true
-listModel: imageList
+	      listModel: imageList
-useIndex: false
+	      useIndex: false
-highlightMode: label
+	      highlightMode: label
-postBuildCallback: postBuildImageViewer:
+	      postBuildCallback: postBuildImageViewer:
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'Box1'
+	      name: 'Box1'
-layout: (LayoutFrame 20 0.0 -60 1.0 -20 1.0 0 1.0)
+	      layout: (LayoutFrame 20 0.0 -60 1.0 -20 1.0 0 1.0)
-level: 0
+	      level: 0
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(CheckBoxSpec
+		 (CheckBoxSpec
-label: 'Image & Label'
+		    label: 'Image & Label'
-name: 'iconAndLabelCheckBox'
+		    name: 'iconAndLabelCheckBox'
-layout: (AlignmentOrigin 0 0 17 0 0 0.5)
+		    layout: (AlignmentOrigin 0 0 17 0 0 0.5)
-activeHelpKey: imageImageAndLabel
+		    activeHelpKey: imageImageAndLabel
-tabable: true
+		    tabable: true
-model: iconAndLabelHolder
+		    model: iconAndLabelHolder
-translateLabel: true
+		    translateLabel: true
-)
+		  )
-(ActionButtonSpec
+		 (ActionButtonSpec
-label: 'Image Editor'
+		    label: 'Image Editor'
-name: 'imageEditorButton'
+		    name: 'imageEditorButton'
-layout: (AlignmentOrigin -69 1.0 17 0 0 0.5)
+		    layout: (AlignmentOrigin -69 1.0 17 0 0 0.5)
-activeHelpKey: imageImageEditor
+		    activeHelpKey: imageImageEditor
-hasCharacterOrientedLabel: false
+		    hasCharacterOrientedLabel: false
-foregroundColor: (Color 0.0 0.0 66.9993133440146)
+		    foregroundColor: (Color 0.0 0.0 66.9993133440146)
-tabable: true
+		    tabable: true
-model: doEditImage
+		    model: doEditImage
-)
+		  )
-(ActionButtonSpec
+		 (ActionButtonSpec
-label: 'Browse'
+		    label: 'Browse'
-name: 'Button1'
+		    name: 'Button1'
-layout: (AlignmentOrigin -69 1.0 41 0 0 0.5)
+		    layout: (AlignmentOrigin -69 1.0 41 0 0 0.5)
-activeHelpKey: imageBrowseImageClass
+		    activeHelpKey: imageBrowseImageClass
-hasCharacterOrientedLabel: false
+		    hasCharacterOrientedLabel: false
-foregroundColor: (Color 0.0 0.0 66.9993133440146)
+		    foregroundColor: (Color 0.0 0.0 66.9993133440146)
-tabable: true
+		    tabable: true
-model: doBrowseImageClass
+		    model: doBrowseImageClass
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-)
+	   )
-)
+	)
 )
 "Modified: / 03-08-2011 / 10:16:13 / cg"
 ! !
 |rcv sel cls clsName|
 sel := selectorHolder value.
 sel size == 0 ifTrue:[ ^ nil ].
 cls := self retrieverClass.
 cls notNil ifTrue:[
-clsName := retrieverHolder value.
+	clsName := retrieverHolder value.
-clsName isEmptyOrNil ifTrue:[
+	clsName isEmptyOrNil ifTrue:[
-clsName := cls name.
+	    clsName := cls name.
-].
+	].
-clsName := clsName asSymbol.
+	clsName := clsName asSymbol.
 ].
 rcv := ResourceRetriever new.
 rcv className:clsName.
 rcv selector:sel.
 resourceRetriever:aResourceRetriever
 |className sel isOn|
 aResourceRetriever notNil ifTrue:[
-className := aResourceRetriever className.
+	className := aResourceRetriever className.
-className isBehavior ifTrue:[
+	className isBehavior ifTrue:[
-className := className name asSymbol
+	    className := className name asSymbol
-].
+	].
-sel  := aResourceRetriever selector.
+	sel  := aResourceRetriever selector.
-isOn := aResourceRetriever labelText notNil.
+	isOn := aResourceRetriever labelText notNil.
 ] ifFalse:[
-className := sel := nil.
+	className := sel := nil.
-isOn := false.
+	isOn := false.
 ].
 retrieverHolder value:className.
 selectorHolder  value:sel.
 iconAndLabelHolder value:isOn.
 retrieverClass
 |clsName cls|
 clsName  := retrieverHolder value.
 clsName notEmptyOrNil ifTrue:[
-cls := Smalltalk at:clsName ifAbsent:nil.
+	cls := Smalltalk at:clsName ifAbsent:nil.
-(cls isBehavior) ifTrue:[
+	(cls isBehavior) ifTrue:[
-^ cls
+	    ^ cls
-].
+	].
 ].
 ^ nil
 ! !
 !MenuEditor::ImageResourceEditor methodsFor:'actions'!
 doBrowseImageClass
 |cls sel image|
 (cls := retrieverHolder value) isNil ifTrue:[
-Dialog warn:'No resource retriever is defined.'.
+	Dialog warn:'No resource retriever is defined.'.
 ] ifFalse:[
-sel := selectorHolder value.
+	sel := selectorHolder value.
-cls := Smalltalk classNamed:cls.
+	cls := Smalltalk classNamed:cls.
-cls isNil ifTrue:[
+	cls isNil ifTrue:[
-Dialog warn:'No such resource retriever class.'.
+	    Dialog warn:'No such resource retriever class.'.
-] ifFalse:[
+	] ifFalse:[
-(cls respondsTo:#visualFor:) ifTrue:[
+	    (cls respondsTo:#visualFor:) ifTrue:[
-image := cls visualFor:sel.
+		image := cls visualFor:sel.
-image ~~ (cls perform:sel) ifTrue:[
+		image ~~ (cls perform:sel) ifTrue:[
-self warn:'The image is resolved via #visualFor: from some unknown class'.
+		    self warn:'The image is resolved via #visualFor: from some unknown class'.
-sel := #visualFor:.
+		    sel := #visualFor:.
-].
+		].
-].
+	    ].
-UserPreferences current systemBrowserClass openInClass:cls class selector:sel
+	    UserPreferences current systemBrowserClass openInClass:cls class selector:sel
-]
+	]
 ]
 "Created: / 20-09-2010 / 13:27:34 / cg"
 !
 doEditImage
 |sel cls item image|
 item := imageHolder value.
 item notNil ifTrue:[
-item doEdit.
+	item doEdit.
-^ self.
+	^ self.
 ].
 sel := selectorHolder value.
 sel isNil ifTrue:[
-Dialog warn:'No selector is defined.'.
+	Dialog warn:'No selector is defined.'.
-^ self.
+	^ self.
 ].
 cls := retrieverHolder value.
 cls isNil ifTrue:[
-Dialog warn:'No resource retriever is defined.'.
+	Dialog warn:'No resource retriever is defined.'.
-^ self.
+	^ self.
 ].
 cls := Smalltalk classNamed:cls.
 cls isNil ifTrue:[
-Dialog warn:'No such resource retriever class.'.
+	Dialog warn:'No such resource retriever class.'.
-^ self.
+	^ self.
 ].
 (cls respondsTo:#visualFor:) ifTrue:[
-image := cls visualFor:sel.
+	image := cls visualFor:sel.
-image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[
+	image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[
-self warn:'The image is resolved via #visualFor: from some unknown class'.
+	    self warn:'The image is resolved via #visualFor: from some unknown class'.
-image notNil ifTrue:[
+	    image notNil ifTrue:[
-ImageEditor openOnImage:image.
+		ImageEditor openOnImage:image.
-].
+	    ].
-^ self.
+	    ^ self.
-].
+	].
 ].
 ImageEditor openOnClass:cls andSelector:sel
 ! !
 retrieverList
 |list cls|
 list := builder bindingAt:#retrieverList.
 list isNil ifTrue:[
-list := MenuEditor imageRetrieverClasses asList.
+	list := MenuEditor imageRetrieverClasses asList.
-builder aspectAt:#retrieverList put:list.
+	builder aspectAt:#retrieverList put:list.
 ].
 (masterApplication notNil
 and:[(cls := masterApplication specClass) notNil]) ifTrue:[
-list := list copyWithFirst:cls.
+	list := list copyWithFirst:cls.
 ].
 ^ list
 !
 selectorFilterHolder
 self updateImageList.
 self updateSelectedImage.
 (retriever notNil and:[imageList size ~~ 0]) ifTrue:[
-list := self retrieverList.
+	list := self retrieverList.
-name := retriever name.
+	name := retriever name.
-(list includes:name) ifFalse:[
+	(list includes:name) ifFalse:[
-list add:(name asSymbol).
+	    list add:(name asSymbol).
-]
+	]
 ].
 "Modified: / 03-08-2011 / 10:56:58 / cg"
 !
 aModel == retrieverHolder ifTrue:[ self retrieverChanged. ^ self ].
 aModel == selectorHolder ifTrue:[ self selectorChanged. ^ self  ].
 aModel == selectorFilterHolder ifTrue:[ self selectorFilterChanged. ^ self  ].
 aModel == imageHolder ifTrue:[
-item := imageHolder value.
+	item := imageHolder value.
-item notNil ifTrue:[
+	item notNil ifTrue:[
-selectorHolder value:(item label)
+	    selectorHolder value:(item label)
-].
+	].
-^ self
+	^ self
 ].
 super update:what with:aPara from:aModel
 "Modified: / 29-11-2011 / 11:28:26 / cg"
 !
 retriever := self retrieverClass.
 filter := [:sel | true].
 (selectorFilterString := selectorFilterHolder value) notEmptyOrNil ifTrue:[
-selectorFilterString includesMatchCharacters ifTrue:[
+	selectorFilterString includesMatchCharacters ifTrue:[
-filter := [:sel | selectorFilterString match:sel ignoreCase:true].
+	    filter := [:sel | selectorFilterString match:sel ignoreCase:true].
-] ifFalse:[
+	] ifFalse:[
-filter := [:sel | sel includesString:selectorFilterString].
+	    filter := [:sel | sel includesString:selectorFilterString].
-].
+	].
 ].
 imageList root updateFromClass:retriever selectorFilter:filter.
 "Created: / 03-08-2011 / 10:56:41 / cg"
 |item selector line|
 imageList isEmpty ifTrue:[^ self].
 selector := selectorHolder value.
 selector isEmptyOrNil ifTrue:[
-imageHolder value:nil.
+	imageHolder value:nil.
-^ self
+	^ self
 ].
 item     := nil.
 selector := selector asSymbol.
 imageList do:[:anItem|
-|sel|
+	|sel|
-sel := anItem selector.
+	sel := anItem selector.
-selector == sel ifTrue:[
+	selector == sel ifTrue:[
-imageHolder value:anItem.
+	    imageHolder value:anItem.
-^ self
+	    ^ self
-].
+	].
-item isNil ifTrue:[
+	item isNil ifTrue:[
-(sel startsWith:selector) ifTrue:[ item := anItem ]
+	    (sel startsWith:selector) ifTrue:[ item := anItem ]
-]
+	]
 ].
 imageHolder value:nil.
 item notNil ifTrue:[
-line := imageList identityIndexOf:item.
+	line := imageList identityIndexOf:item.
-line ~~ 0 ifTrue:[
+	line ~~ 0 ifTrue:[
-"/ imageListView scrollToLine:line
+	    "/ imageListView scrollToLine:line
-imageListView makeLineVisible:line
+	    imageListView makeLineVisible:line
-]
+	]
 ].
 "Created: / 03-08-2011 / 10:55:45 / cg"
 ! !
 selector := aSelector asSymbol.
 selector numArgs == 0 ifFalse:[^ self].
 "do what the ResourceRetriever will do"
 (aClass respondsTo:#visualFor:) ifTrue:[
-iconOrSymbol := aClass visualFor:selector.
+	iconOrSymbol := aClass visualFor:selector.
 ].
 iconOrSymbol isNil ifTrue:[
-iconOrSymbol := aClass perform:selector.
+	iconOrSymbol := aClass perform:selector.
 ].
 iconOrSymbol isNil ifTrue:[^ self].
 iconOrSymbol isSymbol ifTrue:[
-icon := ToolbarIconLibrary perform:iconOrSymbol.
+	icon := ToolbarIconLibrary perform:iconOrSymbol.
 ] ifFalse:[
-icon := iconOrSymbol.
+	icon := iconOrSymbol.
 ].
 w := icon width.
 h := icon height.
 w > 32 ifTrue:[
-magnify := 32 / w.
+	magnify := 32 / w.
-h > 32 ifTrue:[ magnify := (32 / h) max:magnify ].
+	h > 32 ifTrue:[ magnify := (32 / h) max:magnify ].
 ] ifFalse:[
-h > 32 ifFalse:[^ self].
+	h > 32 ifFalse:[^ self].
-magnify := 32 / h.
+	magnify := 32 / h.
 ].
 icon := icon magnifiedBy: magnify.
 "Modified: / 13-04-2011 / 18:56:45 / cg"
 "Created: / 03-08-2011 / 10:47:16 / cg"
 updateFromClass:aClass selectorFilter:aFilterBlock
 |r item|
 (aClass notNil and:[aClass isBehavior]) ifFalse:[
-^ self collapse.
+	^ self collapse.
 ].
 "/    aClass == selector ifTrue:[
 "/        ^ self expand
 "/    ].
 self collapse.
 selector := aClass.
 children := OrderedCollection new.
 self application withWaitCursorDo:[
-aClass withAllSuperclassesDo:[:aClass|
+	aClass withAllSuperclassesDo:[:aClass|
-aClass class selectorsAndMethodsDo:[:sel :m|
+	    aClass class selectorsAndMethodsDo:[:sel :m|
-(aFilterBlock value:sel) ifTrue:[
+		(aFilterBlock value:sel) ifTrue:[
-m hasResource ifTrue:[
+		    m hasResource ifTrue:[
-r := m resources.
+			r := m resources.
-r notEmptyOrNil ifTrue:[
+			r notEmptyOrNil ifTrue:[
-((r includesKey:#image) or:[r includesKey:#programImage]) ifTrue:[
+			    ((r includesKey:#image) or:[r includesKey:#programImage]) ifTrue:[
-item := self class new forClass:aClass selector:sel.
+				item := self class new forClass:aClass selector:sel.
-item parent:self.
+				item parent:self.
-children add:item
+				children add:item
-]
+			    ]
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-children sort:[:a :b | a label < b label ].
+	children sort:[:a :b | a label < b label ].
-self expand
+	self expand
 ].
 "Created: / 03-08-2011 / 10:48:10 / cg"
 ! !
 |parent aClass image|
 parent := self parent.
 parent notNil ifTrue:[
-aClass := parent selector.
+	aClass := parent selector.
-(aClass respondsTo:#visualFor:) ifTrue:[
+	(aClass respondsTo:#visualFor:) ifTrue:[
-image := aClass visualFor:selector.
+	    image := aClass visualFor:selector.
-image ~~ (aClass perform:selector) ifTrue:[
+	    image ~~ (aClass perform:selector) ifTrue:[
-self warn:'The image is resolved via #visualFor: from some unknown class'.
+		self warn:'The image is resolved via #visualFor: from some unknown class'.
-ImageEditor openOnImage:image.
+		ImageEditor openOnImage:image.
-^ self.
+		^ self.
-].
+	    ].
-].
+	].
-ImageEditor openOnClass:aClass andSelector:selector.
+	ImageEditor openOnClass:aClass andSelector:selector.
 ].
 ! !
 !MenuEditor::ActionItem class methodsFor:'defaults'!
 UIPainter new openOnClass:MenuEditor::ActionItem andSelector:#basicsEditSpec
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: basicsEditSpec
+	name: basicsEditSpec
-window:
+	window:
 (WindowSpec
-label: 'basicsEditSpec'
+	  label: 'basicsEditSpec'
-name: 'basicsEditSpec'
+	  name: 'basicsEditSpec'
-min: (Point 10 10)
+	  min: (Point 10 10)
-bounds: (Rectangle 0 0 340 340)
+	  bounds: (Rectangle 0 0 340 340)
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(LabelSpec
+	   (LabelSpec
-label: 'Name Key:'
+	      label: 'Name Key:'
-name: 'nameKeyLabel'
+	      name: 'nameKeyLabel'
-layout: (AlignmentOrigin 107 0 25 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 25 0 1 0.5)
-activeHelpKey: basicsKey
+	      activeHelpKey: basicsKey
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'nameKeyField'
+	      name: 'nameKeyField'
-layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
+	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
-activeHelpKey: basicsKey
+	      activeHelpKey: basicsKey
-tabable: true
+	      tabable: true
-model: nameKey
+	      model: nameKey
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnLeave: false
+	      acceptOnLeave: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Label:'
+	      label: 'Label:'
-name: 'labelLabel'
+	      name: 'labelLabel'
-layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-activeHelpKey: basicsLabel
+	      activeHelpKey: basicsLabel
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'labelField'
+	      name: 'labelField'
-layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
+	      layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
-activeHelpKey: basicsLabel
+	      activeHelpKey: basicsLabel
-tabable: true
+	      tabable: true
-model: rawLabel
+	      model: rawLabel
-group: inputGroup
+	      group: inputGroup
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Action:'
+	      label: 'Action:'
-name: 'valueLabel'
+	      name: 'valueLabel'
-layout: (AlignmentOrigin 107 0 82 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 82 0 1 0.5)
-activeHelpKey: basicsAction
+	      activeHelpKey: basicsAction
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'valueField'
+	      name: 'valueField'
-layout: (LayoutFrame 110 0 71 0 -25 1.0 93 0)
+	      layout: (LayoutFrame 110 0 71 0 -25 1.0 93 0)
-activeHelpKey: basicsAction
+	      activeHelpKey: basicsAction
-tabable: true
+	      tabable: true
-model: itemValue
+	      model: itemValue
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnLeave: true
+	      acceptOnLeave: true
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptOnLostFocus: true
+	      acceptOnLostFocus: true
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: true
+	      acceptOnPointerLeave: true
-)
+	    )
-(ActionButtonSpec
+	   (ActionButtonSpec
-label: 'browseActionImage'
+	      label: 'browseActionImage'
-name: 'Button1'
+	      name: 'Button1'
-layout: (LayoutFrame -25 1 71 0 -5 1 93 0)
+	      layout: (LayoutFrame -25 1 71 0 -5 1 93 0)
-hasCharacterOrientedLabel: false
+	      hasCharacterOrientedLabel: false
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-tabable: true
+	      tabable: true
-model: doBrowseActionMethod
+	      model: doBrowseActionMethod
-activeHelpKey: browseMethod
+	      activeHelpKey: browseMethod
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Argument:'
+	      label: 'Argument:'
-name: 'argumentLabel'
+	      name: 'argumentLabel'
-layout: (AlignmentOrigin 107 0 107 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 107 0 1 0.5)
-activeHelpKey: basicsArgument
+	      activeHelpKey: basicsArgument
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'argumentField'
+	      name: 'argumentField'
-layout: (LayoutFrame 110 0 96 0 -5 1.0 118 0)
+	      layout: (LayoutFrame 110 0 96 0 -5 1.0 118 0)
-activeHelpKey: basicsArgument
+	      activeHelpKey: basicsArgument
-tabable: true
+	      tabable: true
-model: argument
+	      model: argument
-group: inputGroup
+	      group: inputGroup
-type: smalltalkObjectOrNil
+	      type: smalltalkObjectOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Indication:'
+	      label: 'Indication:'
-name: 'indicationLabel'
+	      name: 'indicationLabel'
-layout: (AlignmentOrigin 107 0 138 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 138 0 1 0.5)
-activeHelpKey: basicsIndication
+	      activeHelpKey: basicsIndication
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'indicationField'
+	      name: 'indicationField'
-layout: (LayoutFrame 110 0 127 0 -5 1.0 149 0)
+	      layout: (LayoutFrame 110 0 127 0 -5 1.0 149 0)
-activeHelpKey: basicsIndication
+	      activeHelpKey: basicsIndication
-enableChannel: indicationEnabled
+	      enableChannel: indicationEnabled
-tabable: true
+	      tabable: true
-model: indication
+	      model: indication
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: true
+	      immediateAccept: true
-acceptOnReturn: false
+	      acceptOnReturn: false
-acceptOnTab: false
+	      acceptOnTab: false
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Choice:'
+	      label: 'Choice:'
-name: 'choiceLabel'
+	      name: 'choiceLabel'
-layout: (AlignmentOrigin 107 0 163 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 163 0 1 0.5)
-activeHelpKey: basicsChoice
+	      activeHelpKey: basicsChoice
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'choiceField'
+	      name: 'choiceField'
-layout: (LayoutFrame 110 0 152 0 -5 1.0 174 0)
+	      layout: (LayoutFrame 110 0 152 0 -5 1.0 174 0)
-activeHelpKey: basicsChoice
+	      activeHelpKey: basicsChoice
-enableChannel: choiceEnabled
+	      enableChannel: choiceEnabled
-tabable: true
+	      tabable: true
-model: choice
+	      model: choice
-group: inputGroup
+	      group: inputGroup
-type: symbolOrNil
+	      type: symbolOrNil
-immediateAccept: true
+	      immediateAccept: true
-acceptOnReturn: false
+	      acceptOnReturn: false
-acceptOnTab: false
+	      acceptOnTab: false
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(LabelSpec
+	   (LabelSpec
-label: 'Value:'
+	      label: 'Value:'
-name: 'choiceValueLabel'
+	      name: 'choiceValueLabel'
-layout: (AlignmentOrigin 107 0 188 0 1 0.5)
+	      layout: (AlignmentOrigin 107 0 188 0 1 0.5)
-activeHelpKey: basicsChoiceValue
+	      activeHelpKey: basicsChoiceValue
-translateLabel: true
+	      translateLabel: true
-resizeForLabel: true
+	      resizeForLabel: true
-adjust: right
+	      adjust: right
-)
+	    )
-(InputFieldSpec
+	   (InputFieldSpec
-name: 'choiceValueField'
+	      name: 'choiceValueField'
-layout: (LayoutFrame 110 0 177 0 -5 1.0 199 0)
+	      layout: (LayoutFrame 110 0 177 0 -5 1.0 199 0)
-activeHelpKey: basicsChoiceValue
+	      activeHelpKey: basicsChoiceValue
-enableChannel: choiceValueEnabled
+	      enableChannel: choiceValueEnabled
-tabable: true
+	      tabable: true
-model: choiceValue
+	      model: choiceValue
-group: inputGroup
+	      group: inputGroup
-type: smalltalkObjectOrNil
+	      type: smalltalkObjectOrNil
-immediateAccept: false
+	      immediateAccept: false
-acceptOnLeave: false
+	      acceptOnLeave: false
-acceptOnReturn: true
+	      acceptOnReturn: true
-acceptOnTab: true
+	      acceptOnTab: true
-acceptOnLostFocus: false
+	      acceptOnLostFocus: false
-acceptChannel: acceptChannel
+	      acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
+	      modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
+	      acceptOnPointerLeave: false
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Translate Label'
+	      label: 'Translate Label'
-name: 'translateLabelCheckBox'
+	      name: 'translateLabelCheckBox'
-layout: (AlignmentOrigin 7 0 213 0 0 0)
+	      layout: (AlignmentOrigin 7 0 213 0 0 0)
-activeHelpKey: basicsTranslateLabel
+	      activeHelpKey: basicsTranslateLabel
-tabable: true
+	      tabable: true
-model: translateLabel
+	      model: translateLabel
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Is Button'
+	      label: 'Is Button'
-name: 'isButtonCheckBox'
+	      name: 'isButtonCheckBox'
-layout: (AlignmentOrigin 7 0 238 0 0 0)
+	      layout: (AlignmentOrigin 7 0 238 0 0 0)
-activeHelpKey: basicsIsButton
+	      activeHelpKey: basicsIsButton
-tabable: true
+	      tabable: true
-model: isButton
+	      model: isButton
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Hide Menu after Activation'
+	      label: 'Hide Menu after Activation'
-name: 'hideMenuOnActivated'
+	      name: 'hideMenuOnActivated'
-layout: (AlignmentOrigin 7 0 263 0 0 0)
+	      layout: (AlignmentOrigin 7 0 263 0 0 0)
-activeHelpKey: hideMenuOnActivated
+	      activeHelpKey: hideMenuOnActivated
-tabable: true
+	      tabable: true
-model: hideMenuOnActivated
+	      model: hideMenuOnActivated
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'BusyCursor while Active'
+	      label: 'BusyCursor while Active'
-name: 'showBusyCursorWhilePerforming'
+	      name: 'showBusyCursorWhilePerforming'
-layout: (AlignmentOrigin 7 0 288 0 0 0)
+	      layout: (AlignmentOrigin 7 0 288 0 0 0)
-activeHelpKey: showBusyCursorWhilePerforming
+	      activeHelpKey: showBusyCursorWhilePerforming
-tabable: true
+	      tabable: true
-model: showBusyCursorWhilePerforming
+	      model: showBusyCursorWhilePerforming
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Trigger On Down'
+	      label: 'Trigger On Down'
-name: 'triggerOnDown'
+	      name: 'triggerOnDown'
-layout: (AlignmentOrigin 25 0.5 238 0 0 0)
+	      layout: (AlignmentOrigin 25 0.5 238 0 0 0)
-activeHelpKey: triggerOnDown
+	      activeHelpKey: triggerOnDown
-enableChannel: hasNoDelayedMenuValue
+	      enableChannel: hasNoDelayedMenuValue
-tabable: true
+	      tabable: true
-model: triggerOnDown
+	      model: triggerOnDown
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-(CheckBoxSpec
+	   (CheckBoxSpec
-label: 'Send To Originating Widget'
+	      label: 'Send To Originating Widget'
-name: 'sendToOriginator'
+	      name: 'sendToOriginator'
-layout: (AlignmentOrigin 7 0 313 0 0 0)
+	      layout: (AlignmentOrigin 7 0 313 0 0 0)
-activeHelpKey: sendToOriginator
+	      activeHelpKey: sendToOriginator
-enableChannel: hasItemValue
+	      enableChannel: hasItemValue
-tabable: true
+	      tabable: true
-model: sendToOriginator
+	      model: sendToOriginator
-translateLabel: true
+	      translateLabel: true
-)
+	    )
-)
+	   )
-)
+	)
 )
 "Modified: / 21-10-2010 / 14:14:49 / cg"
 ! !
 !MenuEditor::ActionItem class methodsFor:'interface-editor'!
 addBindingsTo:aspects for:aMenuEditor
 "add additional bindings to the aspects
 "
 aspects
-at:#indicationEnabled
+	at:#indicationEnabled
-ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)].
+	ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)].
 aspects
-at:#choiceEnabled
+	at:#choiceEnabled
-ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)].
+	ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)].
 aspects
-at:#choiceValueEnabled
+	at:#choiceValueEnabled
-ifAbsentPut:[ BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)].
+	ifAbsentPut:[ BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)].
 aspects
-at:#hasNoDelayedMenuValue
+	at:#hasNoDelayedMenuValue
-ifAbsentPut:[true asValue].
+	ifAbsentPut:[true asValue].
 ! !
 !MenuEditor::ActionItem methodsFor:'accessing'!
 menuItem
 aspectAt:aKey put:aValue
 "set a specific aspect named aKey to the aValue"
 aKey == #argument ifTrue:[
-self hasDelayedMenu ifTrue:[
+	self hasDelayedMenu ifTrue:[
-children first argument:aValue
+	    children first argument:aValue
-].
+	].
-menuItem argument:aValue.
+	menuItem argument:aValue.
-^ self
+	^ self
 ].
 aKey == #triggerOnDown ifTrue:[
-|triggerOnDown|
+	|triggerOnDown|
-self hasDelayedMenu ifTrue:[
+	self hasDelayedMenu ifTrue:[
-triggerOnDown := false
+	    triggerOnDown := false
-] ifFalse:[
+	] ifFalse:[
-triggerOnDown := aValue
+	    triggerOnDown := aValue
-].
+	].
-menuItem triggerOnDown:triggerOnDown.
+	menuItem triggerOnDown:triggerOnDown.
-^ self.
+	^ self.
 ].
 super aspectAt:aKey put:aValue.
 "Modified: / 05-09-2006 / 17:47:24 / cg"
 !
 "Do not manually edit this!! If it is corrupted,
 the UIPainter may not be able to read the specification."
 "
 UIPainter new openOnClass:MenuEditor::LinkedMenuItem andSelector:#basicsEditSpec
-"
-<resource: #canvas>
-^
-#(FullSpec
-name: basicsEditSpec
-window:
-(WindowSpec
-label: 'basicsEditSpec'
-name: 'basicsEditSpec'
-min: (Point 10 10)
-bounds: (Rectangle 0 0 340 340)
-)
-component:
-(SpecCollection
-collection: (
-(LabelSpec
-label: 'Name Key:'
-name: 'nameKeyLabel'
-layout: (AlignmentOrigin 107 0 25 0 1 0.5)
-activeHelpKey: basicsKey
-visibilityChannel: notDelayedMenu
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'nameKeyField'
-layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
-activeHelpKey: basicsKey
-visibilityChannel: notDelayedMenu
-tabable: true
-model: nameKey
-group: inputGroup
-type: symbolOrNil
-immediateAccept: false
-acceptOnLeave: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Label:'
-name: 'labelLabel'
-layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-activeHelpKey: basicsLabel
-visibilityChannel: notDelayedMenu
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'labelField'
-layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
-activeHelpKey: basicsLabel
-visibilityChannel: notDelayedMenu
-tabable: true
-model: rawLabel
-group: inputGroup
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Menu:'
-name: 'menuLabel'
-layout: (AlignmentOrigin 107 0 90 0 1 0.5)
-activeHelpKey: basicsLabel
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'menuField'
-layout: (LayoutFrame 110 0 79 0 -5 1.0 101 0)
-activeHelpKey: basicsMenu
-tabable: true
-model: submenuChannel
-group: inputGroup
-type: symbolOrNil
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Argument:'
-name: 'argumentLabel'
-layout: (AlignmentOrigin 107 0 115 0 1 0.5)
-activeHelpKey: basicsLabel
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'argumentField'
-layout: (LayoutFrame 110 0 104 0 -5 1.0 126 0)
-activeHelpKey: basicsMenuArgument
-enableChannel: notDelayedMenu
-tabable: true
-model: argument
-group: inputGroup
-type: smalltalkObjectOrNil
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(CheckBoxSpec
-label: 'Translate Label'
-name: 'translateLabelCheckBox'
-layout: (Point 20 213)
-activeHelpKey: basicsTranslateLabel
-visibilityChannel: notDelayedMenu
-tabable: true
-model: translateLabel
-translateLabel: true
-)
-(CheckBoxSpec
-label: 'Is Button'
-name: 'isButtonCheckBox'
-layout: (Point 20 238)
-activeHelpKey: basicsIsButton
-visibilityChannel: notDelayedMenu
-tabable: true
-model: isButton
-translateLabel: true
-)
-(CheckBoxSpec
-label: 'Horizontal Layout'
-name: 'horizontalLayout'
-layout: (Point 20 263)
-activeHelpKey: horizontalLayout
-tabable: true
-model: horizontalLayout
-translateLabel: true
-)
-(CheckBoxSpec
-label: 'Do not Destroy Linked Menu'
-name: 'keepLinkedMenu'
-layout: (Point 20 288)
-activeHelpKey: keepLinkedMenu
-tabable: true
-model: keepLinkedMenu
-translateLabel: true
-)
-)
-)
-)
-! !
-!MenuEditor::LinkedMenuItem methodsFor:'accessing'!
-argument:aValue
-menuItem argument:aValue.
-!
-menuItem
-"returns self as a MenuItem
-"
-|item|
-item := super menuItem.
-item submenuChannel:(self submenuChannel).
-^ item
-!
-slices
-self isDelayedMenu ifTrue:[
-	^ #(
-		(Basics   basicsEditSpec )
-	   )
-].
-^ #(
-	    (Basics   basicsEditSpec )
-	    (Details  detailsEditSpec)
-	    (Image    image  )
-	    (Help     help)
-)
-!
-submenuChannel
-^ menuItem submenuChannel ? #unspecified
-!
-submenuChannel:aValue
-menuItem submenuChannel:aValue.
-! !
-!MenuEditor::LinkedMenuItem methodsFor:'aspects'!
-aspectAt:aKey put:aValue
-"set a specific aspect named aKey to the aValue"
-aKey == #submenuChannel ifTrue:[ ^ self submenuChannel:aValue ].
-super aspectAt:aKey put:aValue.
-"Modified: / 05-09-2006 / 17:47:39 / cg"
-!
-getDelayedAttributesFrom:anItem
-menuItem rawLabel:'Delayed'.
-menuItem   submenuChannel:(self validateValue:(anItem submenuChannel)).
-menuItem horizontalLayout:(self validateValue:(anItem horizontalLayout)).
-menuItem   keepLinkedMenu:(self validateValue:(anItem keepLinkedMenu)).
-!
-setDelayedAttributesTo:aMenuItem
-aMenuItem   submenuChannel:(self submenuChannel).
-aMenuItem horizontalLayout:(menuItem horizontalLayout).
-aMenuItem   keepLinkedMenu:(menuItem keepLinkedMenu).
-! !
-!MenuEditor::LinkedMenuItem methodsFor:'displaying'!
-displayLabel
-"returns the label dependent on is delayed or not
-"
-self isDelayedMenu ifTrue:[ ^ self submenuChannel ].
-^ menuItem rawLabel
-!
-icon
-self isDelayedMenu ifTrue:[ ^ self class iconDelayedLinkedMenu ].
-^ self class iconLinkedMenu
-! !
-!MenuEditor::LinkedMenuItem methodsFor:'initialization'!
-initialize
-"setup default values on the item
-"
-super initialize.
-"setting default values
-"
-"/ CG: Thu, 08 May 2008 11:16:54 GMT
-"/     I think having keepLinkedMenu true by default
-"/     will confuse newcomers (even me occasionally)
-"/     (will search, why the menu is not updated...)
-"/ menuItem keepLinkedMenu:true.
-menuItem keepLinkedMenu:false.
-! !
-!MenuEditor::LinkedMenuItem methodsFor:'queries'!
-isKindOfMenu
-^ true
-! !
-!MenuEditor::MenuSliceItem class methodsFor:'defaults'!
-defaultLabel
-^ 'Menu Slice'
-! !
-!MenuEditor::MenuSliceItem class methodsFor:'interface specs'!
-basicsEditSpec
-"This resource specification was automatically generated
-by the UIPainter of ST/X."
-"Do not manually edit this!! If it is corrupted,
-the UIPainter may not be able to read the specification."
-"
-UIPainter new openOnClass:MenuEditor::MenuSliceItem andSelector:#basicsEditSpec
-"
-<resource: #canvas>
-^
-#(FullSpec
-name: basicsEditSpec
-window:
-(WindowSpec
-label: 'basicsEditSpec'
-name: 'basicsEditSpec'
-min: (Point 10 10)
-bounds: (Rectangle 0 0 344 146)
-)
-component:
-(SpecCollection
-collection: (
-(LabelSpec
-label: 'Name Key:'
-name: 'nameKeyLabel'
-layout: (AlignmentOrigin 107 0 25 0 1 0.5)
-activeHelpKey: basicsKey
-visibilityChannel: notDelayedMenu
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'nameKeyField'
-layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
-activeHelpKey: basicsKey
-visibilityChannel: notDelayedMenu
-tabable: true
-model: nameKey
-group: inputGroup
-type: symbolOrNil
-immediateAccept: false
-acceptOnLeave: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Label:'
-name: 'labelLabel'
-layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-activeHelpKey: basicsLabel
-visibilityChannel: notDelayedMenu
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'labelField'
-layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
-activeHelpKey: basicsLabel
-visibilityChannel: notDelayedMenu
-tabable: true
-model: rawLabel
-group: inputGroup
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Menu:'
-name: 'menuLabel'
-layout: (AlignmentOrigin 107 0 90 0 1 0.5)
-activeHelpKey: basicsLabel
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'menuField'
-layout: (LayoutFrame 110 0 79 0 -5 1.0 101 0)
-activeHelpKey: basicsMenu
-tabable: true
-model: submenuChannel
-group: inputGroup
-type: symbolOrNil
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-(LabelSpec
-label: 'Argument:'
-name: 'argumentLabel'
-layout: (AlignmentOrigin 107 0 115 0 1 0.5)
-activeHelpKey: basicsLabel
-translateLabel: true
-resizeForLabel: true
-adjust: right
-)
-(InputFieldSpec
-name: 'argumentField'
-layout: (LayoutFrame 110 0 104 0 -5 1.0 126 0)
-activeHelpKey: basicsMenuArgument
-enableChannel: notDelayedMenu
-tabable: true
-model: argument
-group: inputGroup
-type: smalltalkObjectOrNil
-immediateAccept: false
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnLostFocus: false
-acceptChannel: acceptChannel
-modifiedChannel: modifiedChannel
-acceptOnPointerLeave: false
-)
-)
-)
-)
-! !
-!MenuEditor::MenuSliceItem methodsFor:'accessing'!
-icon
-^ self class iconSliceMenu
-!
-menuItem
-"returns self as a MenuItem
-"
-|item|
-item := super menuItem.
-item submenuChannel:(self submenuChannel).
-item isMenuSlice:true.
-^ item
-!
-slices
-^ #(
-	    (Basics   basicsEditSpec)
-)
-! !
-!MenuEditor::MenuSliceItem methodsFor:'aspects'!
-argument:aValue
-menuItem argument:aValue.
-!
-aspectAt:aKey put:aValue
-"set a specific aspect named aKey to the aValue"
-aKey == #submenuChannel ifTrue:[ ^ self submenuChannel:aValue ].
-aKey == #isSliceMenu    ifTrue:[ ^ self ].
-super aspectAt:aKey put:aValue.
-"Modified: / 05-09-2006 / 17:47:42 / cg"
-!
-submenuChannel
-^ menuItem submenuChannel ? #unspecified
-!
-submenuChannel:aValue
-menuItem submenuChannel:aValue.
-! !
-!MenuEditor::RegularMenuItem class methodsFor:'defaults'!
-defaultDelayedLabel
-^ 'delayed'
-!
-defaultLabel
-^ 'Menu'
-! !
-!MenuEditor::RegularMenuItem class methodsFor:'instance creation'!
-menu:aMenu labeled:aString
-|item|
-item := self new.
-item menu:aMenu labeled:aString.
-^ item
-!
-menu:aMenu labeled:aString translateLabel:translateLabel
-|item|
-item := self new.
-item menu:aMenu labeled:aString.
-item translateLabel:translateLabel.
-^ item
-! !
-!MenuEditor::RegularMenuItem class methodsFor:'interface specs'!
-basicsEditSpec
-"This resource specification was automatically generated
-by the UIPainter of ST/X."
-"Do not manually edit this!! If it is corrupted,
-the UIPainter may not be able to read the specification."
-"
-UIPainter new openOnClass:MenuEditor::RegularMenuItem andSelector:#basicsEditSpec
 "
 <resource: #canvas>
 ^
 	      acceptOnLostFocus: false
 	      acceptChannel: acceptChannel
 	      modifiedChannel: modifiedChannel
 	      acceptOnPointerLeave: false
 	    )
+	   (LabelSpec
+	      label: 'Menu:'
+	      name: 'menuLabel'
+	      layout: (AlignmentOrigin 107 0 90 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'menuField'
+	      layout: (LayoutFrame 110 0 79 0 -5 1.0 101 0)
+	      activeHelpKey: basicsMenu
+	      tabable: true
+	      model: submenuChannel
+	      group: inputGroup
+	      type: symbolOrNil
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (LabelSpec
+	      label: 'Argument:'
+	      name: 'argumentLabel'
+	      layout: (AlignmentOrigin 107 0 115 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'argumentField'
+	      layout: (LayoutFrame 110 0 104 0 -5 1.0 126 0)
+	      activeHelpKey: basicsMenuArgument
+	      enableChannel: notDelayedMenu
+	      tabable: true
+	      model: argument
+	      group: inputGroup
+	      type: smalltalkObjectOrNil
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
 	   (CheckBoxSpec
 	      label: 'Translate Label'
 	      name: 'translateLabelCheckBox'
 	      layout: (Point 20 213)
 	      activeHelpKey: basicsTranslateLabel
 	      activeHelpKey: horizontalLayout
 	      tabable: true
 	      model: horizontalLayout
 	      translateLabel: true
 	    )
+	   (CheckBoxSpec
+	      label: 'Do not Destroy Linked Menu'
+	      name: 'keepLinkedMenu'
+	      layout: (Point 20 288)
+	      activeHelpKey: keepLinkedMenu
+	      tabable: true
+	      model: keepLinkedMenu
+	      translateLabel: true
+	    )
 	   )
 	)
 )
 ! !
+!MenuEditor::LinkedMenuItem methodsFor:'accessing'!
+argument:aValue
+menuItem argument:aValue.
+!
+menuItem
+"returns self as a MenuItem
+"
+|item|
+item := super menuItem.
+item submenuChannel:(self submenuChannel).
+^ item
+!
+slices
+self isDelayedMenu ifTrue:[
+	^ #(
+		(Basics   basicsEditSpec )
+	   )
+].
+^ #(
+	    (Basics   basicsEditSpec )
+	    (Details  detailsEditSpec)
+	    (Image    image  )
+	    (Help     help)
+)
+!
+submenuChannel
+^ menuItem submenuChannel ? #unspecified
+!
+submenuChannel:aValue
+menuItem submenuChannel:aValue.
+! !
+!MenuEditor::LinkedMenuItem methodsFor:'aspects'!
+aspectAt:aKey put:aValue
+"set a specific aspect named aKey to the aValue"
+aKey == #submenuChannel ifTrue:[ ^ self submenuChannel:aValue ].
+super aspectAt:aKey put:aValue.
+"Modified: / 05-09-2006 / 17:47:39 / cg"
+!
+getDelayedAttributesFrom:anItem
+menuItem rawLabel:'Delayed'.
+menuItem   submenuChannel:(self validateValue:(anItem submenuChannel)).
+menuItem horizontalLayout:(self validateValue:(anItem horizontalLayout)).
+menuItem   keepLinkedMenu:(self validateValue:(anItem keepLinkedMenu)).
+!
+setDelayedAttributesTo:aMenuItem
+aMenuItem   submenuChannel:(self submenuChannel).
+aMenuItem horizontalLayout:(menuItem horizontalLayout).
+aMenuItem   keepLinkedMenu:(menuItem keepLinkedMenu).
+! !
+!MenuEditor::LinkedMenuItem methodsFor:'displaying'!
+displayLabel
+"returns the label dependent on is delayed or not
+"
+self isDelayedMenu ifTrue:[ ^ self submenuChannel ].
+^ menuItem rawLabel
+!
+icon
+self isDelayedMenu ifTrue:[ ^ self class iconDelayedLinkedMenu ].
+^ self class iconLinkedMenu
+! !
+!MenuEditor::LinkedMenuItem methodsFor:'initialization'!
+initialize
+"setup default values on the item
+"
+super initialize.
+"setting default values
+"
+"/ CG: Thu, 08 May 2008 11:16:54 GMT
+"/     I think having keepLinkedMenu true by default
+"/     will confuse newcomers (even me occasionally)
+"/     (will search, why the menu is not updated...)
+"/ menuItem keepLinkedMenu:true.
+menuItem keepLinkedMenu:false.
+! !
+!MenuEditor::LinkedMenuItem methodsFor:'queries'!
+isKindOfMenu
+^ true
+! !
+!MenuEditor::MenuSliceItem class methodsFor:'defaults'!
+defaultLabel
+^ 'Menu Slice'
+! !
+!MenuEditor::MenuSliceItem class methodsFor:'interface specs'!
+basicsEditSpec
+"This resource specification was automatically generated
+by the UIPainter of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the UIPainter may not be able to read the specification."
+"
+UIPainter new openOnClass:MenuEditor::MenuSliceItem andSelector:#basicsEditSpec
+"
+<resource: #canvas>
+^
+#(FullSpec
+	name: basicsEditSpec
+	window:
+(WindowSpec
+	  label: 'basicsEditSpec'
+	  name: 'basicsEditSpec'
+	  min: (Point 10 10)
+	  bounds: (Rectangle 0 0 344 146)
+	)
+	component:
+(SpecCollection
+	  collection: (
+	   (LabelSpec
+	      label: 'Name Key:'
+	      name: 'nameKeyLabel'
+	      layout: (AlignmentOrigin 107 0 25 0 1 0.5)
+	      activeHelpKey: basicsKey
+	      visibilityChannel: notDelayedMenu
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'nameKeyField'
+	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
+	      activeHelpKey: basicsKey
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: nameKey
+	      group: inputGroup
+	      type: symbolOrNil
+	      immediateAccept: false
+	      acceptOnLeave: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (LabelSpec
+	      label: 'Label:'
+	      name: 'labelLabel'
+	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      visibilityChannel: notDelayedMenu
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'labelField'
+	      layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
+	      activeHelpKey: basicsLabel
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: rawLabel
+	      group: inputGroup
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (LabelSpec
+	      label: 'Menu:'
+	      name: 'menuLabel'
+	      layout: (AlignmentOrigin 107 0 90 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'menuField'
+	      layout: (LayoutFrame 110 0 79 0 -5 1.0 101 0)
+	      activeHelpKey: basicsMenu
+	      tabable: true
+	      model: submenuChannel
+	      group: inputGroup
+	      type: symbolOrNil
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (LabelSpec
+	      label: 'Argument:'
+	      name: 'argumentLabel'
+	      layout: (AlignmentOrigin 107 0 115 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'argumentField'
+	      layout: (LayoutFrame 110 0 104 0 -5 1.0 126 0)
+	      activeHelpKey: basicsMenuArgument
+	      enableChannel: notDelayedMenu
+	      tabable: true
+	      model: argument
+	      group: inputGroup
+	      type: smalltalkObjectOrNil
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   )
+	)
+)
+! !
+!MenuEditor::MenuSliceItem methodsFor:'accessing'!
+icon
+^ self class iconSliceMenu
+!
+menuItem
+"returns self as a MenuItem
+"
+|item|
+item := super menuItem.
+item submenuChannel:(self submenuChannel).
+item isMenuSlice:true.
+^ item
+!
+slices
+^ #(
+	    (Basics   basicsEditSpec)
+)
+! !
+!MenuEditor::MenuSliceItem methodsFor:'aspects'!
+argument:aValue
+menuItem argument:aValue.
+!
+aspectAt:aKey put:aValue
+"set a specific aspect named aKey to the aValue"
+aKey == #submenuChannel ifTrue:[ ^ self submenuChannel:aValue ].
+aKey == #isSliceMenu    ifTrue:[ ^ self ].
+super aspectAt:aKey put:aValue.
+"Modified: / 05-09-2006 / 17:47:42 / cg"
+!
+submenuChannel
+^ menuItem submenuChannel ? #unspecified
+!
+submenuChannel:aValue
+menuItem submenuChannel:aValue.
+! !
+!MenuEditor::RegularMenuItem class methodsFor:'defaults'!
+defaultDelayedLabel
+^ 'delayed'
+!
+defaultLabel
+^ 'Menu'
+! !
+!MenuEditor::RegularMenuItem class methodsFor:'instance creation'!
+menu:aMenu labeled:aString
+|item|
+item := self new.
+item menu:aMenu labeled:aString.
+^ item
+!
+menu:aMenu labeled:aString translateLabel:translateLabel
+|item|
+item := self new.
+item menu:aMenu labeled:aString.
+item translateLabel:translateLabel.
+^ item
+! !
+!MenuEditor::RegularMenuItem class methodsFor:'interface specs'!
+basicsEditSpec
+"This resource specification was automatically generated
+by the UIPainter of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the UIPainter may not be able to read the specification."
+"
+UIPainter new openOnClass:MenuEditor::RegularMenuItem andSelector:#basicsEditSpec
+"
+<resource: #canvas>
+^
+#(FullSpec
+	name: basicsEditSpec
+	window:
+(WindowSpec
+	  label: 'basicsEditSpec'
+	  name: 'basicsEditSpec'
+	  min: (Point 10 10)
+	  bounds: (Rectangle 0 0 340 340)
+	)
+	component:
+(SpecCollection
+	  collection: (
+	   (LabelSpec
+	      label: 'Name Key:'
+	      name: 'nameKeyLabel'
+	      layout: (AlignmentOrigin 107 0 25 0 1 0.5)
+	      activeHelpKey: basicsKey
+	      visibilityChannel: notDelayedMenu
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'nameKeyField'
+	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
+	      activeHelpKey: basicsKey
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: nameKey
+	      group: inputGroup
+	      type: symbolOrNil
+	      immediateAccept: false
+	      acceptOnLeave: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (LabelSpec
+	      label: 'Label:'
+	      name: 'labelLabel'
+	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+	      activeHelpKey: basicsLabel
+	      visibilityChannel: notDelayedMenu
+	      translateLabel: true
+	      resizeForLabel: true
+	      adjust: right
+	    )
+	   (InputFieldSpec
+	      name: 'labelField'
+	      layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
+	      activeHelpKey: basicsLabel
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: rawLabel
+	      group: inputGroup
+	      immediateAccept: false
+	      acceptOnReturn: true
+	      acceptOnTab: true
+	      acceptOnLostFocus: false
+	      acceptChannel: acceptChannel
+	      modifiedChannel: modifiedChannel
+	      acceptOnPointerLeave: false
+	    )
+	   (CheckBoxSpec
+	      label: 'Translate Label'
+	      name: 'translateLabelCheckBox'
+	      layout: (Point 20 213)
+	      activeHelpKey: basicsTranslateLabel
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: translateLabel
+	      translateLabel: true
+	    )
+	   (CheckBoxSpec
+	      label: 'Is Button'
+	      name: 'isButtonCheckBox'
+	      layout: (Point 20 238)
+	      activeHelpKey: basicsIsButton
+	      visibilityChannel: notDelayedMenu
+	      tabable: true
+	      model: isButton
+	      translateLabel: true
+	    )
+	   (CheckBoxSpec
+	      label: 'Horizontal Layout'
+	      name: 'horizontalLayout'
+	      layout: (Point 20 263)
+	      activeHelpKey: horizontalLayout
+	      tabable: true
+	      model: horizontalLayout
+	      translateLabel: true
+	    )
+	   )
+	)
+)
+! !
 !MenuEditor::RegularMenuItem methodsFor:'accessing'!
 argument:aValue
 "/ ignorred.
 !
 menu:aMenu labeled:aString
 |expanded item menu|
 self criticalDo:[
-self isRootItem ifTrue:[ expanded := true ]
+	self isRootItem ifTrue:[ expanded := true ]
-ifFalse:[ expanded := isExpanded ].
+		       ifFalse:[ expanded := isExpanded ].
-self removeAll.
+	self removeAll.
-self rawLabel:aString.
+	self rawLabel:aString.
-menu := aMenu value.
+	menu := aMenu value.
-(menu isNil or:[menu isString]) ifTrue:[
+	(menu isNil or:[menu isString]) ifTrue:[
-menu := nil
+	    menu := nil
-] ifFalse:[
+	] ifFalse:[
-aMenu isCollection ifTrue:[ menu := Menu decodeFromLiteralArray:aMenu ]
+	    aMenu isCollection ifTrue:[ menu := Menu decodeFromLiteralArray:aMenu ]
-ifFalse:[ menu := aMenu ].
+			      ifFalse:[ menu := aMenu ].
-menu hasItems ifFalse:[
+	    menu hasItems ifFalse:[
-menu := nil
+		menu := nil
-].
+	    ].
-].
+	].
-menu notNil ifTrue:[
+	menu notNil ifTrue:[
-isExpanded := false.        "/ discard change notifications
+	    isExpanded := false.        "/ discard change notifications
-children   := OrderedCollection new.
+	    children   := OrderedCollection new.
-menu itemsDo:[:el|
+	    menu itemsDo:[:el|
-item := self class menuItem:el.
+		item := self class menuItem:el.
-item parent:self.
+		item parent:self.
-children add:item.
+		children add:item.
-].
+	    ].
-expanded ifTrue:[ self expand ].
+	    expanded ifTrue:[ self expand ].
-].
+	].
-isExpanded := expanded.
+	isExpanded := expanded.
 ].
 self changed
 "Modified: / 29-11-2011 / 11:28:33 / cg"
 !
 rawLabel:aValue
 |value|
 aValue isString ifTrue:[
-value := aValue withoutSeparators.
+	value := aValue withoutSeparators.
-(self class separatorTypeOf:value) notNil ifTrue:[
+	(self class separatorTypeOf:value) notNil ifTrue:[
-menuItem rawLabel:value
+	    menuItem rawLabel:value
-]
+	]
 ].
 "Modified: / 29-11-2011 / 11:28:39 / cg"
 !

changeset 3013	4aa95683c0fc
parent 2948	b11312ccf82d
child 3016	6aff65697c4f