"

 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.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Smalltalk }"

ResourceSpecEditor subclass:#TabListEditor

	instanceVariableNames:'listOfTabs'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!TabListEditor 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 TabListEditor allows you to create, modify or just inspect

    tab lists for tab headers or note books.

    [start with:]

        TabItemEditor open

    [see also:]

        TabItem

        TabView

        NoteBookView

        UIPainter

    [author:]

        Claus Atzkern, eXept Software AG

        Thomas Zwick, eXept Software AG

"

! !

!TabListEditor class methodsFor:'instance creation'!

openModalOnTabList: aTabList

    "Open a TabListEditor modal on aTabList"

    "self openModalOnTabList: (Array with: (TabItem label: 'Tab Item 1'))"

    ^self new openModalOnTabList: aTabList

! !

!TabListEditor class methodsFor:'accessing'!

resourceType

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

    ^#tabList

! !

!TabListEditor class methodsFor:'aspects'!

aspects

    "get the aspects for the attributes of the tab list components"

    ^#(

        label

        translateLabel

        labelForegroundColor

        enabled

        editAgument

        accessCharacterPosition

        shortcutKey

        activeHelpKey

        majorKey

        minorKey

        createNewBuilder

        hasHorizontalScrollBar

        hasVerticalScrollBar

        miniScrollerHorizontal

        miniScrollerVertical

    )

! !

!TabListEditor 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:TabListEditor    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#addTabItem

'Adds a new tab item.'

#applicationProvidesLabel

'If on, the label''s string is a selector returning a string or bitmap image, which is used as logo in the tab item.'

#autoHideScrollBars

'ScrollBars should be made invisible dynamically, if there is nothing to scroll.'

#basicTab

'Define the basic attributes.'

#canSelect

'Turns on/off whether the tab item is selectable.'

#canvasTab

'Define an application, which is started if the tab is pressed the first time.'

#color

'Defines the foreground color of the label. The default color derives from the style sheet.'

#createNewBuilder

'Create a new builder for the application; the application use its own aspects.'

#detailTab

'Define the optional/specific attributes.'

#detailsAccelerator

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

#detailsAccessCharaterPosition

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

#detailsArgument

'An optional argument stored with the tab item.'

#fileCreateAspectMethod

'Creates the aspect method for the tab list.'

#fileLoad

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

#fileNew

'Creates a new tab list.'

#fileSave

'Saves current tab list.'

#horizontalMiniScroller

'Use a mini-scroller as horizontal scrollbar.'

#horizontalScroller

'Enable horizontal scrollability.'

#label

'Label of the tab item.'

#majorKey

'Name of the class to be started (application if empty); or app-selector returning application instance.'

#minorKey

'Message sent to the class which returns the window specification (default: #windowSpec).'

#testPreview

'Turns on/off preview of the tab list.'

#translateLabel

'If on, the label is translated using the applications language resources.'

#verticalMiniScroller

'Use a mini-scroller as vertical scrollbar.'

#verticalScroller

'Enable vertical scrollability.'

)

! !

!TabListEditor class methodsFor:'image specs'!

newTabItemIcon

    <resource: #image>

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

    ^ Icon constantNamed:#'TabListEditor newTabItemIcon'

        ifAbsentPut:[

            (Depth2Image new)

                width:22;

                height:22;

                photometric:(#palette);

                bitsPerSample:(#( 2 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'U@@@@EUPUEUUVEUPUF**+EUPUF**+EUPUF**+EUP@F**+@@@EV***UV@F*****+@F KNC*+NF(("H*+@F((BC +EF(("H*+@F(("C*+MF*****+@F"@ H*K@F"""(LK@F"" ("K@F"""(*K@F"" H*K@F*****+HK??????@@@@@@@@@');

                colorMapFromArray:#[ 0 0 0 255 255 255 170 170 170 127 127 127 ];

                mask:((ImageMask new)

                            width:22;

                            height:22;

                            bits:(ByteArray 

                                        fromPackedString:'G?<@G?<@G?<@G?<@G?<@???<???<???<???????<???<???<???<???????=???<???????<???????<???<???=');

                            yourself);

                yourself

        ]

! !

!TabListEditor class methodsFor:'interface specs'!

basicSpec

    "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:TabListEditor andSelector:#basicSpec

     TabListEditor new openInterface:#basicSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: basicSpec

        window: 

       (WindowSpec

          label: 'Basic'

          name: 'Basic'

          min: (Point 10 10)

          max: (Point 1280 1024)

          bounds: (Rectangle 0 0 429 240)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Label:'

              name: 'labelLabel'

              layout: (AlignmentOrigin 98 0 26 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'label'

              layout: (LayoutFrame 100 0 15 0 -5 1.0 37 0)

              activeHelpKey: label

              tabable: true

              model: label

              group: inputGroup

              immediateAccept: true

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnLostFocus: false

              acceptChannel: acceptChannel

              modifiedChannel: modifiedChannel

              acceptOnPointerLeave: false

            )

           (LabelSpec

              label: 'Accelerator:'

              name: 'shortcutKeyLabel'

              layout: (AlignmentOrigin 98 0 55 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'shortcutKey'

              layout: (LayoutFrame 100 0 44 0 -5 1.0 66 0)

              activeHelpKey: detailsAccelerator

              tabable: true

              model: shortcutKey

              group: inputGroup

              type: symbolOrNil

              immediateAccept: true

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnLostFocus: false

              acceptChannel: acceptChannel

              modifiedChannel: modifiedChannel

              acceptOnPointerLeave: false

            )

           (LabelSpec

              label: 'Argument:'

              name: 'editAgumentLabel'

              layout: (AlignmentOrigin 98 0 84 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'editAgument'

              layout: (LayoutFrame 100 0 73 0 -5 1.0 95 0)

              activeHelpKey: detailsArgument

              tabable: true

              model: editAgument

              group: inputGroup

              immediateAccept: true

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnLostFocus: false

              acceptChannel: acceptChannel

              modifiedChannel: modifiedChannel

              acceptOnPointerLeave: false

            )

           (LabelSpec

              label: 'Access Character Position:'

              name: 'accessCharacterPositionLabel'

              layout: (AlignmentOrigin 275 0 113 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'accessCharacterPosition'

              layout: (LayoutFrame 278 0 103 0 -5 1.0 125 0)

              activeHelpKey: detailsAccessCharaterPosition

              tabable: true

              model: accessCharacterPosition

              group: inputGroup

              type: number

              immediateAccept: true

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnLostFocus: false

              acceptChannel: acceptChannel

              modifiedChannel: modifiedChannel

              acceptOnPointerLeave: false

            )

           (CheckBoxSpec

              label: 'Translate Label '

              name: 'translateLabel'

              layout: (LayoutFrame 96 0 135 0 308 0 161 0)

              activeHelpKey: translateLabel

              tabable: true

              model: translateLabel

              translateLabel: true

            )

           (CheckBoxSpec

              label: 'Application Provides Label '

              name: 'CheckBox1'

              layout: (LayoutFrame 96 0 161 0 308 0 187 0)

              activeHelpKey: applicationProvidesLabel

              tabable: true

              model: applicationProvidesLabel

              translateLabel: true

            )

           (LabelSpec

              label: 'Help Key:'

              name: 'activeHelp'

              layout: (AlignmentOrigin 98 0 203 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'activeHelpKey'

              layout: (LayoutFrame 100 0 192 0 -5 1.0 214 0)

              activeHelpKey: label

              tabable: true

              model: activeHelpKey

              group: inputGroup

              type: symbolOrNil

              immediateAccept: true

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnLostFocus: false

              acceptChannel: acceptChannel

              modifiedChannel: modifiedChannel

              acceptOnPointerLeave: false

            )

           )

        )

      )

!

canvasSpec

    "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:TabListEditor andSelector:#canvasSpec

     TabListEditor new openInterface:#canvasSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: canvasSpec

       uuid: '8a7c55d6-761b-11e9-98ea-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'Canvas'

         name: 'Canvas'

         uuid: '8a7c5964-761b-11e9-98ea-b8f6b1108e05'

         min: (Point 10 10)

         max: (Point 1280 1024)

         bounds: (Rectangle 0 0 383 220)

       )

       component: 

      (SpecCollection

         collection: (

          (LabelSpec

             label: 'Class / Major Key:'

             name: 'majorKeyLabel'

             layout: (AlignmentOrigin 160 0 26 0 1 0.5)

             activeHelpKey: majorKey

             uuid: '8a7cc2f0-761b-11e9-98ea-b8f6b1108e05'

             translateLabel: true

             resizeForLabel: true

           )

          (InputFieldSpec

             name: 'majorKeyField'

             layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)

             activeHelpKey: majorKey

             uuid: '8a7cc82c-761b-11e9-98ea-b8f6b1108e05'

             tabable: true

             model: majorKey

             group: inputGroup

             type: symbolOrNil

             immediateAccept: true

             acceptOnReturn: false

             acceptOnTab: false

             acceptOnLostFocus: false

             modifiedChannel: modifiedChannel

             acceptOnPointerLeave: false

           )

          (LabelSpec

             label: 'Selector / Minor Key:'

             name: 'minorKeyLabel'

             layout: (AlignmentOrigin 160 0 55 0 1 0.5)

             uuid: '8a7ccda4-761b-11e9-98ea-b8f6b1108e05'

             translateLabel: true

             resizeForLabel: true

           )

          (InputFieldSpec

             name: 'minorKeyField'

             layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)

             activeHelpKey: majorKey

             uuid: '8a7ccf7a-761b-11e9-98ea-b8f6b1108e05'

             tabable: true

             model: minorKey

             group: inputGroup

             type: symbolOrNil

             immediateAccept: true

             acceptOnReturn: false

             acceptOnTab: false

             acceptOnLostFocus: false

             modifiedChannel: modifiedChannel

             acceptOnPointerLeave: false

           )

          (FramedBoxSpec

             label: 'Scroll Bars'

             name: 'FramedBox'

             layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0)

             uuid: '8a7cd1be-761b-11e9-98ea-b8f6b1108e05'

             labelPosition: topLeft

             translateLabel: true

             component: 

            (SpecCollection

               collection: (

                (HorizontalPanelViewSpec

                   name: 'HorizontalPanel1'

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

                   uuid: '8a7cd42a-761b-11e9-98ea-b8f6b1108e05'

                   horizontalLayout: fitSpace

                   verticalLayout: fitSpace

                   horizontalSpace: 3

                   verticalSpace: 3

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'Box1'

                         uuid: '8a7cd768-761b-11e9-98ea-b8f6b1108e05'

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Vertical'

                               name: 'verticalScrollBarCheckBox'

                               layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)

                               activeHelpKey: verticalScroller

                               uuid: '8a7cd8ee-761b-11e9-98ea-b8f6b1108e05'

                               tabable: true

                               model: hasVerticalScrollBar

                               translateLabel: true

                             )

                            (CheckBoxSpec

                               label: 'Mini'

                               name: 'miniScrollerVerticalCheckBox'

                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)

                               activeHelpKey: verticalMiniScroller

                               uuid: '8a7cdb82-761b-11e9-98ea-b8f6b1108e05'

                               tabable: true

                               model: miniScrollerVertical

                               translateLabel: true

                             )

                            )

                         )

                         useDefaultExtent: true

                       )

                      (ViewSpec

                         name: 'Box2'

                         uuid: '8a7cdda8-761b-11e9-98ea-b8f6b1108e05'

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Horizontal'

                               name: 'horizontalScrollBarCheckBox'

                               layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)

                               activeHelpKey: horizontalScroller

                               uuid: '8a7cdede-761b-11e9-98ea-b8f6b1108e05'

                               tabable: true

                               model: hasHorizontalScrollBar

                               translateLabel: true

                             )

                            (CheckBoxSpec

                               label: 'Mini'

                               name: 'miniScrollerHorizontalCheckBox'

                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)

                               activeHelpKey: horizontalMiniScroller

                               uuid: '8a7ce064-761b-11e9-98ea-b8f6b1108e05'

                               tabable: true

                               model: miniScrollerHorizontal

                               translateLabel: true

                             )

                            )

                         )

                         extent: (Point 111 53)

                       )

                      (ViewSpec

                         name: 'Box3'

                         uuid: '8a7ce1fe-761b-11e9-98ea-b8f6b1108e05'

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'Auto Hide:'

                               name: 'Label1'

                               layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)

                               uuid: '8a7ce334-761b-11e9-98ea-b8f6b1108e05'

                               translateLabel: true

                               resizeForLabel: true

                               adjust: left

                             )

                            (PopUpListSpec

                               label: 'Default'

                               name: 'PopUpList1'

                               layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)

                               activeHelpKey: autoHideScrollBars

                               uuid: '8a7ce4e2-761b-11e9-98ea-b8f6b1108e05'

                               translateLabel: true

                               tabable: true

                               model: autoHideScrollBars

                               menu: 

                              (ImmutableArray

                                 Default On

                                 Off

                               )

                               useIndex: true

                             )

                            )

                         )

                         extent: (Point 112 53)

                       )

                      )

                   )

                 )

                )

             )

           )

          (CheckBoxSpec

             label: 'Create New Builder'

             name: 'createNewBuilder'

             layout: (Point 161 75)

             activeHelpKey: createNewBuilder

             uuid: '8a7ce8de-761b-11e9-98ea-b8f6b1108e05'

             model: createNewBuilder

             translateLabel: true

           )

          )

       )

     )

!

detailSpec

    "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:TabListEditor andSelector:#detailSpec

     TabListEditor new openInterface:#detailSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: detailSpec

        window: 

       (WindowSpec

          label: 'Details'

          name: 'Details'

          min: (Point 10 10)

          max: (Point 1280 1024)

          bounds: (Rectangle 0 0 358 107)

        )

        component: 

       (SpecCollection

          collection: (

           (CheckBoxSpec

              label: 'Can Select'

              name: 'enabled'

              layout: (Point 46 14)

              activeHelpKey: canSelect

              tabable: true

              model: enabled

              translateLabel: true

            )

           (LabelSpec

              label: 'Color:'

              name: 'ForegroundLabel'

              layout: (AlignmentOrigin 46 0 62 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

              adjust: right

            )

           (ColorMenuSpec

              name: 'ForegroundColorMenu'

              layout: (LayoutFrame 48 0 50 0 -10 1.0 72 0)

              activeHelpKey: color

              model: labelForegroundColor

              labelsAreColored: false

            )

           )

        )

      )

!

windowSpec

    "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:TabListEditor andSelector:#windowSpec

     TabListEditor new openInterface:#windowSpec

     TabListEditor open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: 'b2e02714-761b-11e9-98ea-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'Tab List Editor'

         name: 'Tab List Editor'

         uuid: 'b2e02a02-761b-11e9-98ea-b8f6b1108e05'

         min: (Point 440 280)

         bounds: (Rectangle 0 0 536 369)

         menu: menu

       )

       component: 

      (SpecCollection

         collection: (

          (MenuPanelSpec

             name: 'menuToolbarView'

             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)

             uuid: 'b2e02c78-761b-11e9-98ea-b8f6b1108e05'

             menu: menuToolbar

             showSeparatingLines: true

           )

          (VariableHorizontalPanelSpec

             name: 'VariablePanel'

             layout: (LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0)

             uuid: 'b2e02f48-761b-11e9-98ea-b8f6b1108e05'

             component: 

            (SpecCollection

               collection: (

                (SelectionInListModelViewSpec

                   name: 'ListOfLabels'

                   uuid: 'b2e031fa-761b-11e9-98ea-b8f6b1108e05'

                   tabable: true

                   model: selectionHolder

                   menu: menuEdit

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   miniScrollerHorizontal: true

                   listModel: listOfTabs

                   highlightMode: line

                   selectConditionSelector: askForItemModification

                 )

                (ViewSpec

                   name: 'SpecView'

                   uuid: 'b2e034d4-761b-11e9-98ea-b8f6b1108e05'

                   level: -1

                   component: 

                  (SpecCollection

                     collection: (

                      (NoteBookViewSpec

                         name: 'NoteBook'

                         layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -32 1.0)

                         uuid: 'b2e03600-761b-11e9-98ea-b8f6b1108e05'

                         enableChannel: hasSelectionHolder

                         tabable: true

                         model: noteBookModel

                         menu: noteBookTabList

                         useIndex: true

                         translateLabel: true

                         keepCanvasAlive: true

                       )

                      (UISubSpecification

                         name: 'subSpec'

                         layout: (LayoutFrame 2 0.0 -32 1 -2 1.0 0 1)

                         uuid: 'b2e039ac-761b-11e9-98ea-b8f6b1108e05'

                         majorKey: ToolApplicationModel

                         minorKey: windowSpecForCommit

                       )

                      (NoteBookViewSpec

                         name: 'TestNoteBook'

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

                         uuid: 'b2e03b32-761b-11e9-98ea-b8f6b1108e05'

                         visibilityChannel: testMode

                         tabable: true

                         menu: testItemList

                         useIndex: true

                         translateLabel: true

                       )

                      )

                   )

                 )

                )

             )

             handles: (Any 0.23999999999999999 1.0)

           )

          (UISubSpecification

             name: 'infoBarSubSpec'

             layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

             uuid: 'b2e03d44-761b-11e9-98ea-b8f6b1108e05'

             majorKey: ToolApplicationModel

             minorKey: windowSpecForInfoBar

           )

          )

       )

     )

! !

!TabListEditor class methodsFor:'list specs'!

noteBookTabList

    "This resource specification was automatically generated

     by the TabListEditor of ST/X."

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

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

    "

     TabListEditor new openOnClass:TabListEditor andSelector:#noteBookTabList

    "

    <resource: #tabList>

    ^     #(

       #(#TabItem

          #label: 'Basic'

          #activeHelpKey: #basicTab

          #minorKey: #basicSpec

        )

       #(#TabItem

          #label: 'Details'

          #activeHelpKey: #detailTab

          #minorKey: #detailSpec

        )

       #(#TabItem

          #label: 'Canvas'

          #activeHelpKey: #canvasTab

          #minorKey: #canvasSpec

        )

       )

      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]

! !

!TabListEditor class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:TabListEditor andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            activeHelpKey: file

            label: 'File'

            submenu: 

           (Menu

              (

               (MenuItem

                  activeHelpKey: fileNew

                  label: 'New'

                  itemValue: doNew

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  activeHelpKey: fileLoad

                  label: 'Load...'

                  itemValue: doLoad

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  activeHelpKey: fileSave

                  label: 'Save'

                  itemValue: doSave

                )

               (MenuItem

                  activeHelpKey: fileSave

                  label: 'Save As...'

                  itemValue: doSaveAs

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  activeHelpKey: fileBrowseClass

                  label: 'Browse Class'

                  itemValue: doBrowseClass

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  activeHelpKey: fileExit

                  label: 'Exit'

                  itemValue: closeRequest

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            activeHelpKey: edit

            label: 'Edit'

            submenuChannel: menuEdit

          )

         (MenuItem

            activeHelpKey: add

            label: 'Add'

            submenu: 

           (Menu

              (

               (MenuItem

                  activeHelpKey: addTabItem

                  label: 'Tab Item'

                  itemValue: doCreate

                  labelImage: (ResourceRetriever nil newTabItemIcon 'Tab Item')

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            activeHelpKey: add

            label: 'Generate'

            submenu: 

           (Menu

              (

               (MenuItem

                  activeHelpKey: fileCreateAspectMethod

                  enabled: hasClassAndSelector

                  label: 'Aspect Method'

                  itemValue: doGenerateAspectMethod

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            activeHelpKey: test

            label: 'Test'

            submenu: 

           (Menu

              (

               (MenuItem

                  activeHelpKey: testPreview

                  enabled: canToggleTestMode

                  label: 'Preview'

                  indication: testMode

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            activeHelpKey: history

            label: 'History'

            submenuChannel: menuHistory

          )

         (MenuItem

            activeHelpKey: help

            label: 'MENU_Help'

            startGroup: conditionalRight

            submenuChannel: menuHelp

          )

         )

        nil

        nil

      )

!

menuEdit

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "