"

 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

		accessCharaterPos retriever icon iconAndLabel submenuChannel

		argument translateLabel isButton'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuEditor

!

SelectionInTreeView subclass:#Painter

	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, Thomas Zwick

"

! !

!MenuEditor class methodsFor:'code generation'!

generateCodeFor:aClass menuSelector:aSelector

    |code category|

    category := self sourceCategory.

    code := Character excla asString 

            , aClass name , ' methodsFor:' , category storeString

            , Character excla asString , '\\'

            , aSelector , '\'

            , '    "this window spec was automatically generated by the UI Builder"\\'

            , '    ^ self class ', aSelector, '\\'

            , '\'

            , Character excla asString

            , ' '

            , Character excla asString

            , '\\'.

    ^ code

"

self generateCodeFor:MenuEditor menuSelector:#menu

"

!

sourceCategory

    "returns the catagory where to instal 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

'The index of the access character position

into the textual label (optional).'

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

#icon

'Selector which returns an image to be displayed.'

#iconAndLabel

'Boolean flag to specify that both image and textual label shall be shown.'

#indication

'This indication field specifies 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.'

#label

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

'The name of the selector under which the generated 

menu should be installed and is accessable.'

#nameKey

'An unique identifier of the item (optional)'

#retriever

'The name of the class, which implements the image selector. 

This selector is specified by ''selector''. If no class is given, 

the current application should implement the specified image selector.'

#seperatorList

'The list of valid separators'

#shortcutKey

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

#submenuChannel

'A value holder, which provides the submenu (Menu) to be opened

if the item is selected. Useful if the items submenu is to be 

changed dynamically.'

#value

'An action which can be 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:'icons'!

iconCreateItem

    ^ Painter menuItemImage

!

iconCreateLink

    ^ Painter linkSubmenuImage

!

iconCreateMenu

    ^ Painter closedSubmenuImage

!

iconCreateSep

    ^ Painter menuSeparatorImage

!

iconUnknown

    "returns an image used for picked items containing an image

    "

    <resource: #fileImage>

    ^ Image fromFile:'brokenImage.xpm'

    "Modified: / 29.10.1997 / 03:22:06 / cg"

! !

!MenuEditor class methodsFor:'interface specs'!

classDefineSpec

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

     MenuEditor new openInterface:#classDefineSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'MenuEditor'

              #'layout:' #(#LayoutFrame 197 0 172 0 443 0 265 0)

              #'label:' 'MenuEditor'

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

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 197 172 444 266)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'boxLabel'

                    #'layout:' #(#LayoutFrame 0 0.0 4 0 0 1.0 24 0)

                    #'label:' 'Class for menu spec:'

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'classNameField'

                    #'layout:' #(#LayoutFrame 0 0.0 27 0 0 1.0 49 0)

                    #'tabable:' true

                    #'model:' #classNameChannel

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'commitPanel'

                    #'layout:' #(#LayoutFrame 10 0.0 -29 1.0 -10 1.0 -5 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'button1'

                              #'label:' 'Cancel'

                              #'tabable:' true

                              #'model:' #cancel

                              #'extent:' #(#Point 109 24)

                          )

                           #(#ActionButtonSpec

                              #'name:' 'button2'

                              #'label:' 'OK'

                              #'tabable:' true

                              #'model:' #accept

                              #'isDefault:' true

                              #'extent:' #(#Point 109 24)

                          )

                        )

                    )

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fit

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

!

menu

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:MenuEditor andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'About'

                #'accessCharacterPosition:' 1

                #'labelImage:' #(#ResourceRetriever nil #icon)

                #'submenuChannel:' #menuAbout

            )

             #(#MenuItem

                #'label:' 'File'

                #'translateLabel:' true

                #'value:' #file

                #'accessCharacterPosition:' 1

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'New'

                          #'value:' #doNew

                      )

                       #(#MenuItem

                          #'label:' 'Load From Class...'

                          #'translateLabel:' true

                          #'value:' #doFromClass

                          #'enabled:' #isStandAlone

                      )

                       #(#MenuItem

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Save'

                          #'value:' #doInstallSpec

                      )

                       #(#MenuItem

                          #'label:' 'Save Help Spec'

                          #'value:' #doInstallHelp

                          #'enabled:' #isStandAlone

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Define Class...'

                          #'value:' #doDefineClass

                          #'enabled:' #isStandAlone

                      )

                       #(#MenuItem

                          #'value:' #doBrowseAppClass

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Exit'

                          #'translateLabel:' true

                          #'value:' #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Edit'

                #'submenuChannel:' #menuPainter

            )

             #(#MenuItem

                #'label:' 'Test'

                #'accessCharacterPosition:' 1

                #'submenuChannel:' #submenuTest

            )

             #(#MenuItem

                #'label:' 'History'

                #'accessCharacterPosition:' 1

                #'submenuChannel:' #menuHistory

            )

             #(#MenuItem

                #'label:' 'Help'

                #'accessCharacterPosition:' 1

                #'submenuChannel:' #menuHelp

            )

          ) nil

          nil

      )

!

menuDefaultLink

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:MenuEditor andSelector:#menuDefaultLink

     (Menu new fromLiteralArrayEncoding:(MenuEditor menuDefaultLink)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' '!! derives from application !!'

            )

          ) nil

          nil

      )

!

menuPainter

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

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

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:MenuEditor andSelector:#menuPainter

     (Menu new fromLiteralArrayEncoding:(MenuEditor menuPainter)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'Cut'

                #'value:' #doCut

                #'enabled:' #hasValidSelection

                #'shortcutKeyCharacter:' #Cut

            )

             #(#MenuItem

                #'label:' 'Copy'

                #'value:' #doCopy

                #'enabled:' #hasValidSelection

                #'shortcutKeyCharacter:' #Copy

            )

             #(#MenuItem

                #'label:' 'Paste'

                #'value:' #doPaste

                #'enabled:' #hasAnySingleSelection

                #'shortcutKeyCharacter:' #Paste

            )

             #(#MenuItem

                #'label:' '='

            )

             #(#MenuItem

                #'label:' 'Create Item'

                #'value:' #doCreateItem

                #'labelImage:' #(#ResourceRetriever #MenuEditor #iconCreateItem 'Create Item')

            )

             #(#MenuItem

                #'label:' 'Create Separator'