"

 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.

"

ResourceSpecEditor subclass:#TabListEditor

	instanceVariableNames:'rebuildMode testView listOfTabs selectedIndex'

	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

    )

! !

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

#argument

'An argument not explicitly used by the tab item.'

#canSelect

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

#color

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

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

#label

'Label of the tab item.'

#labelDerivesFromApplication

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

#testPreview

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

)

! !

!TabListEditor class methodsFor:'image specs'!

newTabItemIcon

    "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

    "

    <resource: #image>

    ^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:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G?<@G?<@G?<@G?<@G?<@???<???<???<???????<???<???<???<???????=???<???????<???????<???<???=') ; yourself); yourself]! !

!TabListEditor class methodsFor:'interface specs'!

tabSpec

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

     TabListEditor new openInterface:#tabSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Tab Basic'

              #layout: #(#LayoutFrame 463 0 289 0 825 0 514 0)

              #label: 'Tab Basic'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 463 289 826 515)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#LabelSpec

                    #name: 'Label'

                    #layout: #(#AlignmentOrigin 98 0 26 0 1 0.5)

                    #label: 'Label:'

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'LabelField'

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

                    #activeHelpKey: #label

                    #model: #label

                              #modifiedChannel: #modifiedChannel

                              #acceptChannel: #acceptChannel

                              #acceptOnLostFocus: true

                )

                 #(#CheckBoxSpec

                    #name: 'TranslateLabel'

                    #layout: #(#LayoutFrame 100 0 40 0 -5 1 66 0)

                    #activeHelpKey: #labelDerivesFromApplication

                    #model: #translateLabel

                    #label: 'Label derives from Application'

                )

                 #(#LabelSpec

                    #name: 'ArgumentLabel'

                    #layout: #(#AlignmentOrigin 98 0 81 0 1 0.5)

                    #label: 'Argument:'

                    #resizeForLabel: true

                )

                 #(#InputFieldSpec

                    #name: 'ArgumentField'

                    #layout: #(#LayoutFrame 100 0 70 0 -5 1.0 92 0)

                    #activeHelpKey: #argument

                    #model: #editAgument

                              #modifiedChannel: #modifiedChannel

                              #acceptChannel: #acceptChannel

                              #acceptOnLostFocus: true

                )

                 #(#LabelSpec

                    #name: 'ForegroundLabel'

                    #layout: #(#AlignmentOrigin 98 0 115 0 1 0.5)

                    #label: 'Color:'

                    #adjust: #right

                    #resizeForLabel: true

                )

                 #(#ColorMenuSpec

                    #name: 'ForegroundColorMenu'

                    #layout: #(#LayoutFrame 100 0 103 0 -5 1.0 125 0)

                    #activeHelpKey: #color

                    #model: #labelForegroundColor

                    #labelsAreColored: false

                )

                 #(#CheckBoxSpec

                    #name: 'CanSelect'

                    #layout: #(#LayoutFrame 100 0 135 0 -5 1 157 0)

                    #activeHelpKey: #canSelect

                    #model: #enabled

                    #label: 'Can Select'

                )

              )

          )

      )

!

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

          #window: 

           #(#WindowSpec

              #name: 'Tab List Editor'

              #layout: #(#LayoutFrame 117 0 340 0 586 0 669 0)

              #label: 'Tab List Editor'

              #min: #(#Point 440 280)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 117 340 587 670)

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

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#SequenceViewSpec

                              #name: 'ColumnView'

                              #model: #selectionHolder

                              #menu: #menuEdit

                              #hasHorizontalScrollBar: true

                              #hasVerticalScrollBar: true

                              #miniScrollerHorizontal: true

                              #useIndex: true

                              #sequenceList: #listOfLabels

                          )

                           #(#ViewSpec

                              #name: 'SpecView'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#ViewSpec

                                        #name: 'TestView'

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

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#TabViewSpec

                                                  #name: 'TestTabsView'

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

                                              )

                                            )

                                        )

                                    )

                                     #(#SubCanvasSpec

                                        #name: 'specCanvas'

                                        #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)

                                        #specHolder: #specChannel

                                    )

                                     #(#UISubSpecification

                                        #name: 'subSpec'

                                        #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1)

                                        #majorKey: #ToolApplicationModel

                                        #minorKey: #windowSpecForCommit

                                    )

                                  )

                              )

                              #level: -1

                          )

                        )

                    )

                    #handles: #(#Any 0.259875 1.0)

                )

                 #(#UISubSpecification

                    #name: 'infoBarSubSpec'

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

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForInfoBar

                )

              )

          )

      )

! !

!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

                #label: 'About'

                #activeHelpKey: #about

                #labelImage: #(#ResourceRetriever nil #menuIcon)

                #submenuChannel: #menuAbout

            )

             #(#MenuItem

                #label: 'File'

                #activeHelpKey: #file

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #value: #doNew

                          #activeHelpKey: #fileNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Load...'

                          #translateLabel: true

                          #value: #doLoad

                          #activeHelpKey: #fileLoad

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #value: #doSave

                          #activeHelpKey: #fileSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #value: #doSaveAs

                          #activeHelpKey: #fileSave

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Browse Class'

                          #value: #doBrowseClass

                          #activeHelpKey: #fileBrowseClass

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #value: #closeRequest

                          #activeHelpKey: #fileExit

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Edit'

                #activeHelpKey: #edit

                #submenuChannel: #menuEdit

            )

             #(#MenuItem

                #label: 'Add'

                #activeHelpKey: #add

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Tab Item'

                          #value: #doCreateTabItem

                          #activeHelpKey: #addTabItem

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

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Generate'

                #activeHelpKey: #add

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Aspect Method'

                          #value: #doGenerateAspectMethod

                          #activeHelpKey: #fileCreateAspectMethod

                          #enabled: #hasClassAndSelector

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Test'

                #activeHelpKey: #test

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Preview'

                          #activeHelpKey: #testPreview

                          #enabled: #canShowTestMode

                          #indication: #testMode

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'History'

                #activeHelpKey: #history

                #submenuChannel: #menuHistory

            )

             #(#MenuItem

                #label: 'Help'

                #startGroup: #right

                #activeHelpKey: #help

                #submenuChannel: #menuHelp

            )

          ) nil

          nil

      )

!