"

 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.

"

ToolApplicationModel subclass:#TabItemEditor

	instanceVariableNames:'rebuildMode testView className selector aspects listOfTabs

		hasChanged selectedIndex'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

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

"

    create and modify or inspect a list of tabs

    [start with:]

        TabItemEditor open

    [see also:]

        TabItem

        TabView

        NoteBookView

        UIPainter

    [author:]

        Claus Atzkern, eXept Software AG

"

! !

!TabItemEditor class methodsFor:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:TabItemEditor    

    "

  ^ super helpSpec addPairsFrom:#(

#addTabItem

'Adds a new tab item.'

#fileNew

'Creates a new tab list.'

#fileReload

'Reload tab list from current class and selector.'

#fileSave

'Saves current tab list.'

)

! !

!TabItemEditor class methodsFor:'interface specs'!

nameAndSelectorSpec

    "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:TabItemEditor andSelector:#nameAndSelectorSpec

     TabItemEditor new openInterface:#nameAndSelectorSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Tab Item Editor'

              #'layout:' #(#LayoutFrame 141 0 424 0 456 0 551 0)

              #'label:' 'Tab Item Editor'

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

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

              #'bounds:' #(#Rectangle 141 424 457 552)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#FramedBoxSpec

                    #'name:' 'framedBox1'

                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -33 1.0)

                    #'label:' 'Define class and selector'

                    #'labelPosition:' #topLeft

                )

                 #(#LabelSpec

                    #'name:' 'ClassLabel'

                    #'layout:' #(#AlignmentOrigin 58 0.11 37 0 1 0.5)

                    #'label:' 'Class:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'ClassField'

                    #'layout:' #(#LayoutFrame 62 0.11 26 0 -18 1.0 48 0)

                    #'tabable:' true

                    #'model:' #className

                )

                 #(#LabelSpec

                    #'name:' 'SelectorLabel'

                    #'layout:' #(#AlignmentOrigin 58 0.11 62 0 1 0.5)

                    #'label:' 'Selector:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'SelectorField'

                    #'layout:' #(#LayoutFrame 62 0.11 51 0 -18 1.0 73 0)

                    #'tabable:' true

                    #'model:' #selector

                )

                 #(#UISubSpecification

                    #'name:' 'CommitPanel'

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

                    #'majorKey:' #ToolApplicationModel

                    #'minorKey:' #windowSpecForCommitWithoutChannels

                )

              )

          )

      )

!

tabSpec

    "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:TabItemEditor andSelector:#tabSpec

     TabItemEditor new openInterface:#tabSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Tab Basic'

              #'label:' 'Tab Basic'

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

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

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'Label'

                    #'label:' 'Label:'

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'LabelField'

                    #'activeHelpKey:' #label

                    #'model:' #label

                )

                 #(#CheckBoxSpec

                    #'name:' 'TranslateLabel'

                    #'activeHelpKey:' #translateLabel

                    #'model:' #translateLabel

                    #'label:' 'Label derives from Application'

                )

                 #(#ColorMenuSpec

                    #'name:' 'ForegroundColorMenu'

                    #'layout:' #(#LayoutFrame 75 0 124 0 -4 1.0 146 0)

                    #'activeHelpKey:' #foregroundColor

                    #'model:' #labelForegroundColor

                    #'labelsAreColored:' false

                )

                 #(#LabelSpec

                    #'name:' 'ForegroundLabel'

                    #'layout:' #(#AlignmentOrigin 73 0 136 0 1 0.5)

                    #'label:' 'Color:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#CheckBoxSpec

                    #'name:' 'CanSelect'

                    #'model:' #enabled

                    #'label:' 'Can Select'

                )

                 #(#LabelSpec

                    #'name:' 'ArgumentLabel'

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'ArgumentField'

                    #'activeHelpKey:' #label

                    #'model:' #editAgument

                )

              )

          )

      )

!

windowSpec

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

     TabItemEditor new openInterface:#windowSpec

    "

    "TabItemEditor open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'TabItem Editor'

              #'label:' 'TabItem Editor'

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

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

              #'menu:' #menu

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#MenuPanelSpec

                    #'name:' 'menuToolbarView'

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

                    #'menu:' #menuToolbar

                    #'showSeparatingLines:' true

                )

                 #(#VariableHorizontalPanelSpec

                    #'name:' 'VariablePanel'

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#SequenceViewSpec

                              #'name:' 'columnView'

                              #'enableChannel:' #isNotModified

                              #'model:' #selectionHolder

                              #'menu:' #menuEdit

                              #'hasHorizontalScrollBar:' true

                              #'hasVerticalScrollBar:' true

                              #'miniScrollerHorizontal:' true

                              #'useIndex:' true

                              #'sequenceList:' #listOfLabels

                          )

                           #(#ViewSpec

                              #'name:' 'specView'

                              #'component:' 

                               #(#SpecCollection

                                  #'collection:' 

                                   #(

                                     #(#ViewSpec

                                        #'name:' 'TestView'

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#TabViewSpec

                                                  #'name:' 'TestTabsView'

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

                                              )

                                            )

                                        )

                                    )

                                     #(#SubCanvasSpec

                                        #'name:' 'specCanvas'

                                        #'specHolder:' #specChannel

                                    )

                                     #(#HorizontalPanelViewSpec

                                        #'name:' 'modifyPanel'

                                        #'component:' 

                                         #(#SpecCollection

                                            #'collection:' 

                                             #(

                                               #(#ActionButtonSpec

                                                  #'name:' 'cancelButton'

                                                  #'label:' 'Cancel'

                                                  #'model:' #cancel

                                                  #'enableChannel:' #modifiedChannel

                                              )

                                               #(#ActionButtonSpec

                                                  #'name:' 'acceptButton'

                                                  #'label:' 'OK'

                                                  #'model:' #accept

                                                  #'enableChannel:' #modifiedChannel

                                              )

                                            )

                                        )

                                        #'horizontalLayout:' #fitSpace

                                        #'verticalLayout:' #fitSpace

                                        #'horizontalSpace:' 3

                                        #'verticalSpace:' 3

                                    )

                                  )

                              )

                          )

                        )

                    )

                    #'handles:' #(#Any 0.259875 1.0)

                )

                    #'name:' 'infoBarSubSpec'

                    #'majorKey:' #ToolApplicationModel

                    #'minorKey:' #windowSpecForInfoBar

                )

              )

          )

      )

! !

!TabItemEditor class methodsFor:'menu specs'!

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:TabItemEditor andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(TabItemEditor menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'About'

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

                #'submenuChannel:' #menuAbout

            )

             #(#MenuItem

                #'label:' 'File'

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'New'

                          #'value:' #doNew

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Reload'

                          #'value:' #doReload

                          #'enabled:' #hasClassAndSelector

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Save'

                          #'value:' #doInstallSpec

                          #'enabled:' #isNotModified

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Define Class And Selector...'

                          #'value:' #doDefineClassAndSelector

                      )

                       #(#MenuItem

                          #'label:' 'Create Aspect Method'

                          #'value:' #doInstallAspect

                          #'enabled:' #hasClassAndSelector

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'Exit'

                          #'value:' #closeRequest

                          #'enabled:' #isNotModified

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'Edit'

                #'submenuChannel:' #menuEdit

            )

             #(#MenuItem

                #'label:' 'Add'

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'Tab Item'

                          #'value:' #doCreateTab

                          #'labelImage:' #(#ResourceRetriever nil #newTabItemIcon 'Tab Item')

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'History'

                #'submenuChannel:' #menuHistory

            )

             #(#MenuItem

                #'label:' 'Help'

                #'startGroup:' #right

                #'submenuChannel:' #menuHelp

            )

          ) nil

          nil

      )

!

menuEdit