"

 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.

"

ResourceSpecEditor 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 choice

		choiceValue'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

SelectionInTreeView subclass:#TreeView

	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

    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'!

openModalOnMenu: aMenu

    "Open a MenuEditor modal on aMenu"

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

    ^self new openModalOnMenu: aMenu

! !

!MenuEditor class methodsFor:'accessing'!

iconUnknown

    "returns an image used for picked items containing an image

    "

    <resource: #fileImage>

    "/ ^ Image fromFile:'brokenImage.xpm'

    ^ Icon constantNamed:'brokenImage.xpm'

    "Modified: / 22.4.1998 / 22:15:11 / ca"

!

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

        choice

        choiceValue

        translateLabel

        isButton

        shortcutKey

        startGroup

        retriever

        iconAndLabel

        icon

        isVisible

     )

    "Modified: / 14.8.1998 / 14:46:36 / cg"

! !

!MenuEditor class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:MenuEditor    

    "

    <resource: #help>

    ^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 holder, a boolean block, or a boolean method, specifying the indication state.'

#basicsChoice

'A boolean holder, a boolean block, or a boolean method, specifying the choices state.'

#basicsChoiceValue

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

#basicsIsButton

'Turns on/off a button behavior.'

#basicsLabel

'Label of the item.'

#basicsKey

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

#basicsMenu

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

#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).'

#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

'Aspect or binding providing a boolean value holder for the enable-state of the menu item.'

#detailsStartGroup

'Specify start of a right-aligned item group.'

#detailsVisibility

'Aspect or binding providing a boolean value holder for the visibility-state of the menu item.'

#fileLoad

'Opens a dialog to select and load a menu spec from a class.'

#fileNew

'Creates a new menu spec.'

#filePickAMenu

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

#fileSave

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

#fileSaveAs

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

#historyMenuItem

'Edit this menu specification.'

#imageImageAndLabel

'Toggles display of both image and textual label.'

#imageImageEditor

'Opens an Image Editor on the resource method defined by 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 (sent to above or the application).'

#imageImageList

'Currently existing image resources.'

#test

'Displays the current menu (layout test).'

)

    "Modified: / 18.8.1998 / 16:19:13 / cg"

! !

!MenuEditor class methodsFor:'image specs'!

linkSubmenuImage

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#linkSubmenuImage

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuEditor linkSubmenuImage'

        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@ADQDQDQDQDQDQH@D"H"H"H"H"H"K0@RH"H"H"H"H"H/@A????????????<@D@@@@@@@@@@@C0@PL3L0DQDQDQD_@A@3L3LBH"H"H"<@DCL3L3@"H"H"K0@PL3L3L0??????@A@@@@L3L@@@@@<@DQDQDCL3@PLAG0@RH"H"@3L0@3@/@AH"H"H L3L3L0<@G?????<CL3L3L@@P@@@@@@@3L3LO@ADQDQDQDP@CLA<@D"H"H"H"H LBK0@RH"H"H"H"@BH/@B????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!

menuItemImage

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#menuItemImage

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuEditor menuItemImage'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUQUUUUUUUPUUUUUUU_UUUUUUUPUUUUUUUP@@@@@@@@EUUUUUVAF*****+HF:?+::;@F:.+*?;@F:.+::;@F:.+*:;@F:.+::;@F*****+DK??????A@@@@@@@@UUUUUUUPUUUUUUUXUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUX') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!

menuSeparatorImage

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#menuSeparatorImage

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuEditor menuSeparatorImage'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUURUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP@@@@@@@@EUUUUUV@F*****+DF*****+CF?????+@F0@@@@[@F%UUUU[HF*****+@F*****+@K??????N@@@@@@@HUUUUUUUPUUUUUUUPUUUUUUUWUUUUUUUXUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!

submenuImage

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#submenuImage

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuEditor submenuImage'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@EUUUUUV@F*****+@F*****+@G??????GD@@@@@C@EUUUUUWLF*****+@F*****+@G??????HD@@@@@C@EUUUUUW@F*****+@F*****+OG??????@D@@@@@C@EUUUUUW@F*****+@F*****+@K??????@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]! !

!MenuEditor class methodsFor:'interface specs'!

basicsItemSpec

    "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:#basicsItemSpec

     MenuEditor new openInterface:#basicsItemSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Basics Item'

              #layout: #(#LayoutFrame 216 0 173 0 482 0 491 0)

              #label: 'Basics Item'

              #min: #(#Point 10 10)

              #max: #(#Point 1160 870)

              #bounds: #(#Rectangle 216 173 483 492)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#LabelSpec

                    #name: 'nameKeyLabel'

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

                    #activeHelpKey: #basicsKey

                    #label: 'Name Key:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'nameKeyField'

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

                    #activeHelpKey: #basicsKey

                    #tabable: true

                    #model: #nameKey

                    #group: #inputGroup

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'labelLabel'

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

                    #activeHelpKey: #basicsLabel

                    #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

                    #group: #inputGroup

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'valueLabel'

                    #activeHelpKey: #basicsAction

                    #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

                    #group: #inputGroup

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'argumentLabel'

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

                    #activeHelpKey: #basicsArgument

                    #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

                    #group: #inputGroup

                    #type: #string

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#LabelSpec

                    #name: 'indicationLabel'

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

                    #activeHelpKey: #basicsIndication

                    #label: 'Indication:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'indicationField'

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

                    #activeHelpKey: #basicsIndication

                    #enableChannel: #indicationEnabled

                    #tabable: true

                    #model: #indication

                    #group: #inputGroup

                    #type: #symbolOrNil

                    #acceptOnReturn: false

                    #acceptOnTab: false

                )

                 #(#CheckBoxSpec

                    #name: 'translateLabelCheckBox'

                    #layout: #(#Point 20 230)

                    #activeHelpKey: #basicsTranslateLabel

                    #tabable: true

                    #model: #translateLabel

                    #label: 'Translate Label'

                )

                 #(#CheckBoxSpec

                    #name: 'isButtonCheckBox'

                    #layout: #(#Point 20 259)

                    #activeHelpKey: #basicsIsButton

                    #tabable: true

                    #model: #isButton

                    #label: 'Is Button'

                )

                 #(#LabelSpec

                    #name: 'choiceLabel'

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

                    #activeHelpKey: #basicsChoice

                    #label: 'Choice:'

                    #translateLabel: true

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'choiceField'