"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Smalltalk }"

ResourceSpecEditor subclass:#MenuEditor

	instanceVariableNames:'selectionHolder tabHolder listOfItems listOfTabs

		selectedSuperItems notifyDisabledCounter wizards listOfItemsView

		dropOverLine savedSpec'

	classVariableNames:'ImageRetrieverClasses'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

HierarchicalItem subclass:#Item

	instanceVariableNames:'menuItem'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

ApplicationModel subclass:#ImageResourceEditor

	instanceVariableNames:'selectorHolder iconAndLabelHolder retrieverHolder imageHolder

		imageList selectorFilterHolder imageListView'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

HierarchicalItem subclass:#ImageResourceEditorItem

	instanceVariableNames:'selector icon'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor::ImageResourceEditor

!

MenuEditor::Item subclass:#ActionItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

MenuEditor::Item subclass:#LinkedMenuItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

MenuEditor::Item subclass:#MenuSliceItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

MenuEditor::Item subclass:#RegularMenuItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

MenuEditor::RegularMenuItem subclass:#RootItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

MenuEditor::Item subclass:#SeparatorItem

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

!MenuEditor class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    The MenuEditor allows you to create, modify or just inspect

    menu specifications. Such specifications are returned by menu-spec methods

    of the application class. These methods are typically tagged with a menu-resource.

    The menu editor is able to retrieve such specifications and generate new menu-spec

    methods.

    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

	listOfItems             <HierarchicalList>     hierarchical list of menu items

	listOfTabs              <List>                 list of current shown tab-labels

	selectionHolder         <ValueHolder>          collection of current selected items

	selectedSuperItems      <Collection>           collection of superItems derived from selection

	tabHolder               <ValueHolder>          selected tab label holder

	notifyDisabledCounter   <SmallInteger>         ~~ 0 than change notifications are discard

	wizards                 <IdentityDictionary>   keeps all created wizard dialogs

	dropOverLine            <nil or SmallInteger>  nil: drop context not dropabel.

						       = 0: drop context dropable but no item specified

						       ~ 0: drop context dropable for item at lineNumber

						       used t6o restore drop indication drawings

    [Class variables:]

	ImageRetrieverClasses   <Collection>        sorted collection of image receivers

    [start with:]

	MenuEditor open

	MenuEditor openOnClass:MenuEditor andSelector:#menu

    [author:]

	Claus Atzkern, eXept Software AG

	Thomas Zwick, eXept Software AG

"

! !

!MenuEditor class methodsFor:'initialization'!

initialize

    ImageRetrieverClasses := #(

				Icon

				SystemBrowser

				ToolbarIconLibrary

			      ).

    "

     self initialize

    "

! !

!MenuEditor class methodsFor:'instance creation'!

openModalOnMenu: aMenu

    "Open a MenuEditor modal on aMenu

     self openModalOnMenu: (self perform: #menu) decodeAsLiteralArray

    "

    ^self new openModalOnMenu:aMenu

! !

!MenuEditor class methodsFor:'accessing image retriever'!

addNewImageRetriever:aSymbolOrClass

    "add a class to the imageRetriever list"

    |key|

    aSymbolOrClass isBehavior ifTrue:[

	key := aSymbolOrClass nameWithNameSpacePrefix

    ] ifFalse:[

	key := aSymbolOrClass

    ].

    key size ~~ 0 ifTrue:[

	key := key asSymbol.

	(ImageRetrieverClasses includes:key) ifFalse:[

	    ImageRetrieverClasses := ImageRetrieverClasses asOrderedCollection.

	    ImageRetrieverClasses add:key.

	    ImageRetrieverClasses sort.

	]

    ].

!

imageRetrieverClasses

    "returns a collection of image retrievers

    "

    ^ ImageRetrieverClasses

! !

!MenuEditor class methodsFor:'aspects'!

aspects

    "get the aspects for the attributes of the menu components"

    ^#(

        rawLabel

        accessCharacterPosition

        showBusyCursorWhilePerforming

        horizontalLayout

        triggerOnDown

        font

        argument

        submenuChannel

        keepLinkedMenu

        enabled

        itemValue

        nameKey

        indication

        choice

        choiceValue

        translateLabel

        isButton

        shortcutKeyCharacter

        startGroup

        isVisible

        hideMenuOnActivated

        auxValue

        activeHelpKey

        resourceRetriever

        sendToOriginator

        ignoreMnemonicKeys

        ignoreShortcutKeys

        isMenuSlice

        hasMenuIndicator

     )

    "Modified: / 09-08-2018 / 17:03:56 / Claus Gittinger"

! !

!MenuEditor class methodsFor:'defaults'!

resourceType

    "get the type of the resource of the method generated by the MenuEditor

    "

    ^ #menu

! !

!MenuEditor class methodsFor:'help specs'!

helpSpec

    ^super helpSpec addPairsFrom: #(

#editCut

'Cut Item'

#editCopy

'Copy Item'

#editPaste

'Paste Item'

#fileSaveSpec

'Save Menuspec'

#addMenuSlice

'Add Menuslice'

#addDelayedMenu

'Add a new delayed menu to item.'

#addDelayedSubMenuLink

'Add a new linked delayed menu to item.'

#addMenuItem

'Add a new menu item.'

#addMenuSeparator

'Add a new menu separator.'

#addMenuSliceItem

'Add a new menu slice.'

#addSubMenu

'Add a new sub menu.'

#addSubMenuLink

'Add a new linked sub menu.'

#basicsAction

'An action selector with 0, 1 (the argument field), or 2 (the selected item) arguments.'

#browseMethod

'Open a browser on this method in the application. Create the method, if it does not exist.'

#basicsArgument

'An optional arg passed with above selector, if it is a 1 or 2 arg selector (enter a Smalltalk literal).'

#basicsChoice

'Aspect for a boolean holder, block or method, specifying the choices state (RadioButton behavior).'

#basicsChoiceValue

'That choices value (typically number or symbol).'

#basicsIndication

'Aspect for boolean holder, block, or method, specifying the indication state (CheckToggle behavior).'

#basicsIsButton

'Button-like look and behavior.'

#basicsKey

'Internal key of the item (optional, for programmed accesses).'

#basicsLabel

'Label of the item.'

#basicsMenu

'Aspect providing the sub menu to be opened if item is selected (provide spec or valueHolder).'

#basicsMenuArgument

'An argument passed with the menu selector.'

#basicsNameKey

'Unique identifier of the item (optional).'

#basicsSelector

'Selector under which the generated menu spec is saved.'

#basicsSeparatorType

'List of valid separators.'

#basicsTranslateLabel

'Translate the label via the classes resource file (internationalization).'

#browseResource

'Search for methods with image resource.'

#detailsAccelerator

'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'

#detailsAccessCharaterPosition

'Index of the access character position of the textual label (obsolete, VW compatibility).'

#detailsAuxValue

'Some additional value - for arbitrary use by the program.'

#detailsEnabled

'Aspect or binding providing a boolean value holder to enable/disable the menu item.'

#detailsIgnoreAcceleratorKeys

'Ignore accelerator keys in submenu(s).'

#detailsIgnoreMnemonicKeys

'Ignore mnemonic keys (access characters) in submenu(s).'

#detailsStartGroup

'Specify start of a specially aligned group.'

#detailsVisibility

'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.'

#fileLoad

'Load a menu spec from a class.'

#fileNew

'Create a new menu spec.'

#filePickAMenu

'Select a menu from an open view and read its specification'

#fileChooseAMenu

'Select a menu from an open view and edit its spec-method'

#fileSave

'Save the menu spec (and the help spec, if modified).'

#fileSaveAs

'Open a dialog to save the menu spec (and the help spec, if modified).'

#fileShowMenuSpec

'Opens a Workspace showing the current menu spec.'

#forceMenuIndicator

'Always show a menu indicator in horizontal menu (little down-arrow).'

#generateAspectMethods

'Generates aspect methods for defined aspect selectors of the menu.'

#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 instead of vertical (default).'

#imageImageAndLabel

'Toggle display of both image and textual label.'

#imageImageEditor

'Open an Image Editor on the resource method defined by retriever and selector.'

#imageBrowseImageClass

'Open a Browser on the resource retriever class.'

#imageImageList

'Currently existing image resources.'

#imageRetriever

'Class implementing the image resource method. If unspecified, the application instance / class are asked.'

#imageSelector

'Selector returning an image (sent to above or the application).'

#keepLinkedMenu

'Keep the linked menu after activation (do not destroy; if off, menu is rebuild for every activation).'

#sendToOriginator

'Send action-Message to widget (instead of application); only valid for PopUpMenus.'

#settingsRedefineAspectMethods

'Toggles the permission to overwrite existing aspect methods.'

#showBusyCursorWhilePerforming

'If on, a busy cursor is shown while the items action is performing.'

#triggerOnDown

'If on, the items action is performed on mouse-button press (default is: on button-release).'

#selectorFilter

'In the list below, only matching selectors are shown'

)

    "Modified: / 09-08-2018 / 17:09:02 / Claus Gittinger"

! !

!MenuEditor class methodsFor:'image specs'!

browseActionImage

    <resource: #programImage>

    ^ UIPainter browseActionImage

!

defaultIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary startMenuEditorIcon

!

iconUnknown

    "returns an image used for picked items containing an image

    "

    <resource: #programImage>

    ^ MenuPanelSpec icon

! !

!MenuEditor class methodsFor:'interface specs'!

windowSpec

    "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 andSelector:#windowSpec

     MenuEditor new openInterface:#windowSpec

     MenuEditor open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: '7d4bc1c6-2067-11b2-b33d-3065ec8abe8a'

       window: 

      (WindowSpec

         label: 'Menu Editor'

         name: 'Menu Editor'

         uuid: '7d4bc6f8-2067-11b2-b33d-3065ec8abe8a'

         min: (Point 550 385)

         bounds: (Rectangle 0 0 574 473)

         menu: menu

         icon: defaultIcon

         returnIsOKInDialog: false

         escapeIsCancelInDialog: false

       )

       component: 

      (SpecCollection