"

 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' }"

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

#autoHideScrollBars

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

#canSelect

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

#createNewBuilder

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

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

#horizontalScroller

'Enable horizontal scrollability.'

#horizontalMiniScroller

'Use a mini-scroller as horizontal scrollbar.'

#majorKey

'Name of the class to be started; if empty, the application itself is used.'

#minorKey

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

#verticalScroller

'Enable vertical scrollability.'

#verticalMiniScroller

'Use a mini-scroller as vertical scrollbar.'

#canvasTab

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

#basicTab

'Define the basic attributes.'

#detailTab

'Define the optional/specific attributes.'

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

#detailsAccessCharaterPosition

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

#detailsAccelerator

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

#detailsArgument

'An optional argument stored with 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'!

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 803 137 1232 347)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#LabelSpec

              #label: 'Label:'

              #name: 'labelLabel'

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

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

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

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

              #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: 'Application provides translation '

              #name: 'translateLabel'

              #layout: #(#Point 96 135)

              #activeHelpKey: #labelDerivesFromApplication

              #tabable: true

              #model: #translateLabel

            )

           #(#LabelSpec

              #label: 'Help Key:'

              #name: 'activeHelp'

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

              #resizeForLabel: true

            )

           #(#InputFieldSpec

              #name: 'activeHelpKey'

              #layout: #(#LayoutFrame 100 0 179 0 -5 1.0 201 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

        #window: 

       #(#WindowSpec

          #label: 'Canvas'

          #name: 'Canvas'

          #min: #(#Point 10 10)

          #max: #(#Point 1280 1024)

          #bounds: #(#Rectangle 803 137 1186 357)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#LabelSpec

              #label: 'Class Name:'

              #name: 'majorKeyLabel'

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

              #resizeForLabel: true

            )

           #(#InputFieldSpec

              #name: 'majorKeyField'

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

              #activeHelpKey: #majorKey

              #tabable: true

              #model: #majorKey

              #group: #inputGroup

              #type: #symbolOrNil

              #immediateAccept: true

              #acceptOnReturn: false

              #acceptOnTab: false

              #acceptOnLostFocus: false

              #modifiedChannel: #modifiedChannel

              #acceptOnPointerLeave: false

            )

           #(#LabelSpec

              #label: 'Spec. Selector:'

              #name: 'minorKeyLabel'

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

              #resizeForLabel: true

            )

           #(#InputFieldSpec

              #name: 'minorKeyField'

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

              #activeHelpKey: #minorKey

              #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 214 0)

              #labelPosition: #topLeft

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanel1'

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

                    #horizontalLayout: #fitSpace

                    #verticalLayout: #fitSpace

                    #horizontalSpace: 3

                    #verticalSpace: 3

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#ViewSpec

                          #name: 'Box1'

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#CheckBoxSpec

                                #label: 'Vertical'

                                #name: 'verticalScrollBarCheckBox'

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

                                #activeHelpKey: #verticalScroller

                                #tabable: true

                                #model: #hasVerticalScrollBar

                              )

                             #(#CheckBoxSpec

                                #label: 'Mini'

                                #name: 'miniScrollerVerticalCheckBox'

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

                                #activeHelpKey: #verticalMiniScroller

                                #tabable: true

                                #model: #miniScrollerVertical

                              )

                             )

                          )

                          #useDefaultExtent: true

                        )

                       #(#ViewSpec

                          #name: 'Box2'

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#CheckBoxSpec

                                #label: 'Horizontal'

                                #name: 'horizontalScrollBarCheckBox'

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

                                #activeHelpKey: #horizontalScroller

                                #tabable: true