"

 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.

"

ToolApplicationModel subclass:#MenuEditor

	instanceVariableNames:'isModified specClass specCanvas helpCanvas tabSelection aspects

		slices didInstall'

	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:'images'

	classVariableNames:'CopyBuffer Images'

	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

"

    create and modify or inspect popup and pullDown menus of the

    new style( derives from Menu).

    [start with:]

        MenuEditor open

        MenuEditor new openOnClass:MenuEditor andSelector:#menuPullDown

    [see also:]

        UIPainter

        UIHelpTool

        UISpecificationTool

        SelectionInTreeView

    [author:]

        Claus Atzkern, eXept Software AG

        Thomas Zwick, eXept Software AG

"

! !

!MenuEditor class methodsFor:'initialization'!

initialize

    super initialize.

    TreeView initialize

! !

!MenuEditor class methodsFor:'instance creation'!

openModalOnClass:aClass andSelector:aSelector

    ^ self new openModalOnClass:aClass andSelector:aSelector

!

openOnClass:aClass andSelector:aSelector

    ^ self new openOnClass:aClass andSelector:aSelector

! !

!MenuEditor class methodsFor:'code generation'!

sourceCategory

    "returns the category where to install the menu

    "

    ^ 'accessing menu'

! !

!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:#(

#accessCharaterPos

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

#addMenuItem

'Adds a new menu item.'

#addMenuSeparator

'Adds a new menu separator.'

#addSubMenu

'Adds a new submenu.'

#addSubMenuLink

'Adds a new linked submenu.'

#argument

'An argument passed to the value method, if the value selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'

#enbled

'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the respective field can be selected, a value of true, or not, a value of false.'

#fileLoad

'Opens a dialog for selecting a menu spec.'

#fileNew

'Creates a new menu spec.'

#fileSave

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

#icon

'Selector which returns an image to be displayed.'

#iconAndLabel

'Specifies that both image and textual label shall be shown.'

#indication

'Indication field specifying the name of the aspect (-method or binding) in your application, a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the shown indicator is switched on or off.'

#isVisible

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

#label

'Label of the item. If the ''retriever/selector'' is set, and returns an image, the image is used as the displayed label. Dependent on the state of the ''Image & Label'' flag, both the image and the label are shown.'

#menuSelector

'Name of the selector under which the generated menu should be installed and is accessable.'

#nameKey

'Unique identifier of the item (optional).'

#retriever

'Name of the class implementing the image selector. This selector is specified by ''selector''. If no class is given, the current application should implement the specified image selector.'

#seperatorList

'List of valid separators.'

#shortcutKey

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

#submenuChannel

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

#value

'An action being either a block or a selector. Depending on the number of arguments to the action, the action will be called with the respective arguments. There can either zero, one or two arguments. The first argument to the action is the argument derived from the argument field and the second argument the selected item.'

)

! !

!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:' 'unnamed canvas'

              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1160 870)

              #'bounds:' #(#Rectangle 219 193 486 512)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'nameKeyLabel'

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

                    #'label:' 'NameKey:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'nameKeyField'

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

                    #'activeHelpKey:' #nameKey

                    #'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:' #label

                    #'tabable:' true

                    #'model:' #label

                    #'acceptOnReturn:' false

                    #'acceptOnTab:' false

                )

                 #(#LabelSpec

                    #'name:' 'valueLabel'

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

                    #'label:' 'Value:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'valueField'

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

                    #'activeHelpKey:' #value

                    #'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:' #argument

                    #'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:' #indication

                    #'tabable:' true

                    #'model:' #indication

                    #'type:' #symbolOrNil

                    #'acceptOnReturn:' false

                    #'acceptOnTab:' false

                )

                 #(#CheckBoxSpec

                    #'name:' 'translateLabelCheckBox'

                    #'layout:' #(#Point 20 192)

                    #'activeHelpKey:' #translateLabel

                    #'tabable:' true

                    #'model:' #translateLabel

                    #'label:' 'Translate Label'

                )

                 #(#CheckBoxSpec

                    #'name:' 'isButtonCheckBox'

                    #'layout:' #(#Point 20 221)

                    #'activeHelpKey:' #translateLabel

                    #'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:' 'unnamed canvas'

              #'layout:' #(#LayoutFrame 374 0 432 0 640 0 750 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1280 1024)

              #'bounds:' #(#Rectangle 374 432 641 751)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'nameKeyLabel'

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

                    #'activeHelpKey:' #nameKey

                    #'label:' 'NameKey:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'nameKeyField'

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

                    #'activeHelpKey:' #nameKey

                    #'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:' #label

                    #'tabable:' true

                    #'model:' #label

                    #'acceptOnReturn:' false

                    #'acceptOnTab:' false

                )

                 #(#LabelSpec

                    #'name:' 'menuLabel'

                    #'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5)

                    #'label:' 'Menu:'

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'menuField'

                    #'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)

                    #'activeHelpKey:' #submenuChannel

                    #'tabable:' true

                    #'model:' #submenuChannel

                    #'type:' #symbolOrNil

                    #'acceptOnReturn:' false

                    #'acceptOnTab:' false

                )

                 #(#LabelSpec

                    #'name:' 'ArgumentLabel'

                    #'layout:' #(#AlignmentOrigin 107 0 100 0 1 0.5)

                    #'label:' 'Argument:'

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'argumentField'

                    #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)

                    #'activeHelpKey:' #submenuChannel

                    #'tabable:' true

                    #'model:' #argument

                    #'acceptOnReturn:' false

                    #'acceptOnTab:' false

                )

                 #(#CheckBoxSpec

                    #'name:' 'translateLabelCheckBox'

                    #'layout:' #(#Point 20 128)

                    #'activeHelpKey:' #translateLabel

                    #'tabable:' true

                    #'model:' #translateLabel

                    #'label:' 'Translate Label'

                )

              )

          )

      )

!

basicsMenuSpec

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

     MenuEditor new openInterface:#basicsMenuSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'unnamed canvas'

              #'layout:' #(#LayoutFrame 456 0 430 0 722 0 748 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1280 1024)

              #'bounds:' #(#Rectangle 456 430 723 749)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'nameKeyLabel'

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

                    #'label:' 'NameKey:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'nameKeyField'

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

                    #'activeHelpKey:' #nameKey

                    #'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:' #label

                    #'tabable:' true

                    #'model:' #label