"{ Encoding: utf8 }"

"

 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

        window: 

       (WindowSpec

          label: 'Canvas'

          name: 'Canvas'

          min: (Point 10 10)

          max: (Point 1280 1024)

          bounds: (Rectangle 0 0 383 220)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Class Name / Major Key:'

              name: 'majorKeyLabel'

              layout: (AlignmentOrigin 160 0 26 0 1 0.5)

              activeHelpKey: majorKey

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'majorKeyField'

              layout: (LayoutFrame 161 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: 'Selector / Minor Key:'

              name: 'minorKeyLabel'

              layout: (AlignmentOrigin 160 0 55 0 1 0.5)

              translateLabel: true

              resizeForLabel: true

            )

           (InputFieldSpec

              name: 'minorKeyField'

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

              activeHelpKey: majorKey

              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)

              labelPosition: topLeft

              translateLabel: true

              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: