"

 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.

"

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

	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

"

! !

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

iconCreateItem

    ^ Painter imageItem

!

iconCreateLink

    ^ Painter imageMenuLink

!

iconCreateMenu

    ^ Painter imageMenu

    "Modified: 28.7.1997 / 10:02:21 / cg"

!

iconCreateSep

    ^ Painter imageSeparator

!

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

classAndMethodSpec

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

     MenuEditor new openInterface:#classAndMethodSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'ClassAndMethodSpec'

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

              #'label:' 'Painter'

              #'bounds:' #(#Rectangle 0 0 391 170)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'classLabel'

                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)

                    #'label:' 'class:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'selectorLabel'

                    #'layout:' #(#AlignmentOrigin 45 0.11 74 0 1 0.5)

                    #'label:' 'selector:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'methodNameField'

                    #'layout:' #(#LayoutFrame 47 0.11 64 0 0 1.0 86 0)

                    #'tabable:' true

                    #'model:' #methodNameChannel

                )

                 #(#LabelSpec

                    #'name:' 'boxLabel'

                    #'layout:' #(#Point 5 10)

                    #'label:' 'class & selector for code:'

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'classNameField'

                    #'layout:' #(#LayoutFrame 47 0.11 39 0 0 1.0 61 0)

                    #'tabable:' true

                    #'model:' #classNameChannel

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'commitPanel'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'button1'

                              #'label:' 'cancel'

                              #'tabable:' true

                              #'model:' #cancel

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

                          )

                           #(#ActionButtonSpec

                              #'name:' 'button2'

                              #'label:' 'ok'

                              #'tabable:' true

                              #'isDefault:' true

                              #'model:' #accept

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

                          )

                        )

                    )

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fit

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

    "Modified: 28.7.1997 / 15:40:15 / cg"

!

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

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

              #'label:' 'Painter'

              #'bounds:' #(#Rectangle 0 0 383 128)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'classLabel'

                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)

                    #'label:' 'class:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'boxLabel'

                    #'layout:' #(#Point 5 10)

                    #'label:' 'class for code:'

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'classNameField'

                    #'layout:' #(#LayoutFrame 47 0.11 39 0 0 1.0 61 0)

                    #'tabable:' true

                    #'model:' #classNameChannel

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'commitPanel'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'button1'

                              #'label:' 'cancel'

                              #'tabable:' true

                              #'model:' #cancel

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

                          )

                           #(#ActionButtonSpec

                              #'name:' 'button2'

                              #'label:' 'ok'

                              #'tabable:' true

                              #'isDefault:' true

                              #'model:' #accept

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

                          )

                        )

                    )

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fit

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

    "Modified: 28.7.1997 / 15:40:39 / cg"

!

menuButtons

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

     (Menu new fromLiteralArrayEncoding:(MenuEditor menuButtons)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'createMenu'

                #'value:' #doCreateMenu

                #'enabled:' #hasAnySingleSelection

                #'labelImage:' 

                 #(#ResourceRetriever

                    #MenuEditor #iconCreateMenu

                )

            )

             #(#MenuItem

                #'label:' 'createLink'

                #'value:' #doCreateLink

                #'enabled:' #hasAnySingleSelection

                #'labelImage:' 

                 #(#ResourceRetriever

                    #MenuEditor #iconCreateLink

                )

            )

             #(#MenuItem

                #'label:' 'createItem'

                #'value:' #doCreateItem

                #'enabled:' #hasAnySingleSelection

                #'labelImage:' 

                 #(#ResourceRetriever

                    #MenuEditor #iconCreateItem

                )

            )

             #(#MenuItem

                #'label:' 'createSeparator'

                #'value:' #doCreateSep

                #'enabled:' #hasAnySingleSelection

                #'labelImage:' 

                 #(#ResourceRetriever

                    #MenuEditor #iconCreateSep

                )

            )

             #(#MenuItem

                #'label:' ''

            )

             #(#MenuItem

                #'label:' 'stepUp'

                #'value:' #doStepUp

                #'enabled:' #enabledStepOver

                #'labelImage:' 

                 #(#ResourceRetriever

                    #UIPainter #iconStepUp

                )

            )

             #(#MenuItem

                #'label:' 'stepDown'

                #'value:' #doStepDown

                #'enabled:' #enabledStepOver

                #'labelImage:' 

                 #(#ResourceRetriever

                    #UIPainter #iconStepDown

                )

            )

             #(#MenuItem

                #'label:' 'stepIn'

                #'value:' #doStepIn

                #'enabled:' #enabledStepIn

                #'labelImage:' 

                 #(#ResourceRetriever

                    #UIPainter #iconStepIn

                )

            )

             #(#MenuItem

                #'label:' 'stepOut'

                #'value:' #doStepOut

                #'enabled:' #enabledStepOut

                #'labelImage:' 

                 #(#ResourceRetriever

                    #UIPainter #iconStepOut

                )

            )

          ) 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:' 'copy'

                #'value:' #doCopy

                #'enabled:' #hasValidSelection

                #'shortcutKeyCharacter:' #Copy

            )

             #(#MenuItem

                #'label:' 'cut'

                #'value:' #doCut

                #'enabled:' #hasValidSelection

                #'shortcutKeyCharacter:' #Cut

            )

             #(#MenuItem

                #'label:' 'paste'

                #'value:' #doPaste

                #'enabled:' #hasAnySingleSelection

                #'shortcutKeyCharacter:' #Paste

            )

             #(#MenuItem

                #'label:' '-'

            )

             #(#MenuItem

                #'label:' 'create'

                #'enabled:' #hasAnySingleSelection

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'submenu static'

                          #'value:' #doCreateMenu

                          #'labelImage:' 

                           #(#ResourceRetriever

                              #MenuEditor #iconCreateMenu

                              'submenu static'

                          )

                      )

                       #(#MenuItem

                          #'label:' 'submenu dynamic'

                          #'value:' #doCreateLink