"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              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.

"

ListSpecEditor subclass:#MenuEditor

	instanceVariableNames:'specCanvas helpCanvas slices'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#Item

	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey

		accessCharacterPos retriever icon iconAndLabel submenuChannel

		startGroup argument translateLabel isButton isVisible'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

!MenuEditor class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              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

    hierarchical menus of menu bars, popup menu, or tool bar menus.

    [start with:]

        MenuEditor open

        MenuEditor openOnClass:MenuEditor andSelector:#menu

    [see also:]

        UIPainter

    [author:]

        Claus Atzkern, eXept Software AG

        Thomas Zwick, eXept Software AG

"

! !

!MenuEditor class methodsFor:'instance creation'!

openModalOnClass:aClass andSelector:aSelector

    "Open modal a MenuEditor on aClass and aSelector"

    "self openModalOnClass:self andSelector:#menu"

    ^self new openModalOnClass:aClass andSelector:aSelector

!

openModalOnMenu: aMenu

    "Open a MenuEditor modal on aMenu"

    "self openModalOnMenu: (self perform: #menu) decodeAsLiteralArray"

    ^self new openModalOnMenu: aMenu

!

openOnClass:aClass andSelector:aSelector

    "Open a MenuEditor on aClass and aSelector"

    "self openOnClass:self andSelector:#menu"

    ^self new openOnClass:aClass andSelector:aSelector

! !

!MenuEditor class methodsFor:'accessing'!

resourceType

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

    ^#menu

! !

!MenuEditor class methodsFor:'aspects'!

aspects

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

    ^#(

        label

        accessCharacterPos

        argument

        submenuChannel

        enabled

        value

        nameKey

        indication

        translateLabel

        isButton

        shortcutKey

        startGroup

        retriever

        iconAndLabel

        icon

        isVisible

     )

! !

!MenuEditor class methodsFor:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:MenuEditor    

    "

  ^ super helpSpec addPairsFrom:#(

#addMenuItem

'Adds a new menu item.'

#addMenuSeparator

'Adds a new menu separator.'

#addSubMenu

'Adds a new sub menu.'

#addSubMenuLink

'Adds a new linked sub menu.'

#basicsAction

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

#basicsArgument

'An argument passed to above selector, if it is a 1 or a 2 argument selector.'

#basicsIndication

'A boolean value holder, a boolean evaluating block, or a boolean returning selector for specifying indication state.'

#basicsIsButton

'Turns on/off a button behavior.'

#basicsLabel

'Label of the item.'

#basicsMenu

'A value holder providing the sub menu to be opened if item is selected.'

#basicsMenuArgument

'An argument passes with 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

'Turns on/off translation behavior of the label via class resource file.'

#detailsAccelerator

'Key to be pressed to select the menu item from the keyboard (accelerator key).'

#detailsAccessCharaterPosition

'Index of the access character position of the textual label (optional).'

#detailsEnabled

'A boolean value holder providing en- or disabling of the menu item.'

#detailsVisibility

'A boolean value holder providing visibility of the menu item.'

#fileLoad

'Opens a dialog for selecting and loading a menu spec from a class.'

#fileNew

'Creates a new menu spec.'

#filePickAMenu

'Changes the cursor for moving it over another menu view to load its menu spec.'

#fileSave

'Saves current menu spec and if modified the help spec.'

#fileSaveAs

'Opens a dialog to save current menu spec and if modified the help spec.'

#imageImageAndLabel

'Turns on/off displaying both image and textual label.'

#imageImageEditor

'Opens an Image Editor on retriever and selector.'

#imageRetriever

'Class implementing the image resource method. If no class is given, the current application class will be taken.'

#imageSelector

'Selector returning an image.'

)

! !

!MenuEditor class methodsFor:'interface specs'!

basicsItemSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec

     MenuEditor new openInterface:#basicsItemSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Basics Item'

              #label: 'Basics Item'

              #min: #(#Point 10 10)

              #max: #(#Point 1160 870)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#LabelSpec

                    #name: 'nameKeyLabel'

                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)

                    #label: 'Name Key:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'nameKeyField'

                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)

                    #tabable: true

                    #model: #nameKey

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'labelLabel'

                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)

                    #label: 'Label:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'labelField'

                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)

                    #activeHelpKey: #basicsLabel

                    #tabable: true

                    #model: #label

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'valueLabel'

                    #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)

                    #label: 'Action:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'valueField'

                    #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)

                    #activeHelpKey: #basicsAction

                    #tabable: true

                    #model: #value

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'argumentLabel'

                    #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)

                    #label: 'Argument:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'argumentField'

                    #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)

                    #activeHelpKey: #basicsArgument

                    #tabable: true

                    #model: #argument

                    #type: #string

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'indicationLabel'

                    #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)

                    #label: 'Indication:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'indicationField'

                    #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)

                    #activeHelpKey: #basicsIndication

                    #tabable: true

                    #model: #indication

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#CheckBoxSpec

                    #name: 'translateLabelCheckBox'

                    #layout: #(#Point 20 190)

                    #activeHelpKey: #basicsTranslateLabel

                    #tabable: true

                    #model: #translateLabel

                    #label: 'Translate Label'

                )

                 #(#CheckBoxSpec

                    #name: 'isButtonCheckBox'

                    #layout: #(#Point 20 219)

                    #activeHelpKey: #basicsIsButton

                    #tabable: true

                    #model: #isButton

                    #label: 'Is Button'

                )

              )

          )

      )

!

basicsLinkSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec

     MenuEditor new openInterface:#basicsLinkSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Basics Link'

              #layout: #(#LayoutFrame 212 0 351 0 478 0 669 0)

              #label: 'Basics Link'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 212 351 479 670)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#LabelSpec

                    #name: 'nameKeyLabel'

                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)

                    #activeHelpKey: #nameKey

                    #label: 'Name Key:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'nameKeyField'

                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)

                    #activeHelpKey: #basicsNameKey

                    #tabable: true

                    #model: #nameKey

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'labelLabel'

                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)

                    #label: 'Label:'

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'labelField'

                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)

                    #activeHelpKey: #basicsLabel

                    #tabable: true

                    #model: #label