"

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

Model subclass:#TabItem

	instanceVariableNames:'view rawLabel label enabled argument canvas activeHelpText

		translateLabel shortcutKey majorKey minorKey miniScrollerVertical

		miniScrollerHorizontal hasVerticalScrollBar

		hasHorizontalScrollBar foregroundColor createNewBuilder

		autoHideScrollBars accessCharacterPosition activeHelpKey builder'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Support'

!

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

"

    describes one tab entry; could be used for tabs instead of a string. Whenever

    a value changed, a change notification is raised

    [see also:]

        TabItemEditor

        TabView

        NoteBookView

        UIPainter

    [author:]

        Claus Atzkern

"

!

examples

"

    labels derived from item

                                                                                [exBegin]                                      

    |top tab|

    top := StandardSystemView new label:'tabs at top'; extent:250@100.

    tab  := TabView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.

    tab direction:#top.

    tab list:(#( 'Foo' 'Bar' 'Baz' ) collect:[:l| TabItem label:l ]).

    tab action:[:aName|Transcript showCR:aName].

    top open.

                                                                                [exEnd]

    testing tab configuration and change notifications

                                                                                [exBegin]                                      

    |top tab list idx label|

    top := StandardSystemView new label:'tabs at top'; extent:250@100.

    tab  := TabView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.

    tab direction:#top.

    list := (#( 'Foo' 'Bar' 'Baz' ) collect:[:l| TabItem label:l ]).

    tab list:list.

    tab action:[:aName|Transcript showCR:aName].

    top openAndWait.

    [

        idx := 0.

        label := LabelAndIcon icon:(Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm' ))

                            string:'Test Tab'.

        [top shown] whileTrue:[

            |aTab lbl|

            (idx := idx + 1) > list size ifTrue:[idx := 1].

            aTab := list at:idx.

            lbl  := aTab label.

            Delay waitForSeconds:0.5. aTab label:label.

            Delay waitForSeconds:0.5. aTab enabled:false.

            Delay waitForSeconds:0.5. aTab enabled:true.

            Delay waitForSeconds:0.5. aTab foregroundColor:(Color red).

            Delay waitForSeconds:0.5. aTab foregroundColor:nil.

            aTab label:lbl.

        ]

    ] forkAt:1.

                                                                                [exEnd]

"

! !

!TabItem class methodsFor:'instance creation'!

label:aLabel

    ^ self new label:aLabel

! !

!TabItem class methodsFor:'tests'!

test

    |top tab list item|

    top := StandardSystemView new label:'tabs at top'; extent:400@400.

    tab  := NoteBookView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.

    tab direction:#top.

    list := #( 'Foo' 'Bar' 'Baz' ) collect:[:l| TabItem label:l ].

    item := list at:1.

    item majorKey:ClockView.

    item := list at:2.

    item majorKey:CodingExamples_GUI::GUIDemoNoteBook.

    item := list at:3.

    item majorKey:CodingExamples_GUI::GUIDemoMenu.

    tab list:list.

    top open.

! !

!TabItem methodsFor:'accessing'!

accessCharacterPosition

    "get the index of the access character in the label text or string, or 0 if none"

    ^ accessCharacterPosition ? 0

    "Modified: / 06-09-2006 / 14:57:08 / cg"

!

accessCharacterPosition:anIndex

    "set the index of the access character in the label"

    accessCharacterPosition := anIndex

    "Modified: / 06-09-2006 / 14:57:44 / cg"

!

argument

    "returns a user defined argument or nil

    "

    ^ argument

!

argument:anArgument

    "set a user defined argument

    "

    (anArgument isString and:[anArgument isEmpty]) ifTrue:[

        argument := nil

    ] ifFalse:[

        argument := anArgument

    ].

    argument := anArgument

!

createNewBuilder

    "returns true if a new builder is used to create the canvas;

     the default is true"

    ^ createNewBuilder ? true

    "Modified: / 06-09-2006 / 14:58:58 / cg"

!

createNewBuilder:aBool

    "set/clear the flag which controls if a new ui-builder is used to create the canvas;

     the default is true. This affects if the bindings will be shared or not between tabs."

    createNewBuilder := aBool

    "Modified: / 06-09-2006 / 15:00:04 / cg"

!

enabled

    "get the enabled state of the tab

    "

    ^ enabled ? true

!

enabled:aState

    "set the enabled state of the tab

    "

    |s|

    s := aState ? true.

    self enabled ~~ s ifTrue:[

        enabled := s.

        self changed:#enabled

    ]

!

foregroundColor

    "get the label color or nil"

    ^ foregroundColor

    "Modified: / 06-09-2006 / 15:14:46 / cg"

!

foregroundColor:aColor

    "set the label color or nil"

    foregroundColor ~= aColor ifTrue:[

        foregroundColor := aColor.

        self changed:#foregroundColor

    ].

    "Modified: / 06-09-2006 / 15:00:31 / cg"

!

label

    "get the label or selector to access a label/bitmap. To get the label to be shown

     use: #rawLabel

    "

    ^ label

!

label:aLabel

    "set the label or selector to access the label/bitmap"

    label := aLabel.

    (aLabel ~= rawLabel

    or:[aLabel isString 

        and:[rawLabel isString

        and:[(aLabel sameStringAndEmphasisAs:rawLabel) not]]])

    ifTrue:[

        rawLabel := aLabel.

        self changed

    ]

    "Modified: / 06-09-2006 / 15:54:13 / cg"

!

labelForegroundColor

    "get the label color or nil

    "

    ^ self foregroundColor

!

labelForegroundColor:aColor

    "set the label color or nil

    "

    self foregroundColor:aColor

!

shortcutKey

    "get the key to press to select the tab item from the keyboard; a symbol or nil"

    ^ shortcutKey

    "Modified: / 06-09-2006 / 15:09:18 / cg"

!

shortcutKey:aKeyOrNil

    "set the key to press to select the tab item from the keyboard; a symbol or nil"

    |key|

    aKeyOrNil size ~~ 0 ifTrue:[

        key := aKeyOrNil asSymbol

    ].

    shortcutKey := key

    "Modified: / 06-09-2006 / 15:09:31 / cg"

!

view:aView

    aView isNil ifTrue:[

        view := aView.

        ^ self.

    ].

    view notNil ifTrue:[

        aView ~~ view ifTrue:[

            self error:'TabItems cannot be reused'.

        ].

    ].

    view := aView.

    self setAttributesWithBuilder:view application builder.

    "Modified: / 06-09-2006 / 17:58:58 / cg"

! !

!TabItem methodsFor:'accessing-canvas'!

canvas

    "returns the application or nil

    "

    |view cls wsel classNameKey oldBuilder usedBuilder appl|

    canvas notNil ifTrue:[

        ^ canvas

    ].

    (classNameKey := majorKey) notNil ifTrue:[

        oldBuilder := builder.

        (oldBuilder notNil

        and:[(appl := oldBuilder application) notNil]) ifTrue:[

            canvas := appl subApplicationFor:majorKey.

            canvas isNil ifTrue:[

                cls := appl resolveName:classNameKey.

            ]

        ] ifFalse:[

            "/ cls := Smalltalk resolveName:classNameKey inClass:self class.

            cls := Smalltalk classNamed:classNameKey.

        ].

        canvas isNil ifTrue:[

            cls isNil ifTrue:[

                self error:('no canvas for majorKey: ' , classNameKey) mayProceed:true.

                "/ self majorKey:nil.

                ^ nil

            ].

            canvas := cls new.

        ].

        self isCanvasApplicationModel ifTrue:[

            view := ApplicationSubView new.

            wsel := minorKey ? #windowSpec.

            (usedBuilder := canvas builder) isNil ifTrue:[

                (usedBuilder := oldBuilder) isNil ifTrue:[

                    usedBuilder := canvas createBuilder.

                ] ifFalse:[

                    canvas builder:usedBuilder.

                ].

            ].

            (appl notNil and:[canvas masterApplication isNil]) ifTrue:[

                canvas masterApplication:appl

            ].

            self createNewBuilder ifTrue:[

                usedBuilder application:canvas

            ].

            view client:canvas spec:wsel builder:usedBuilder.

            canvas window:(self setupCanvasView:view).

        ] ifFalse:[

            canvas := self setupCanvasView:canvas

        ]

    ].

    ^ canvas

    "Modified: / 06-09-2006 / 15:07:55 / cg"

!

canvasView

    "returns the view the canvas is running in or nil if no canvas

     specified or not yet created

    "

    |canvas|

    (canvas := self canvas) notNil ifTrue:[

        ^ canvas perform:#window ifNotUnderstood:[canvas]

    ].

    ^ nil

!

destroyCanvas

    canvas notNil ifTrue:[

        self isCanvasApplicationModel ifTrue:[

            canvas releaseAsSubCanvas.

        ].

        canvas := nil

    ].

!

majorKey

    ^ majorKey

    "Modified: / 06-09-2006 / 15:01:14 / cg"

!

majorKey:aMajorKey

    |key|

    aMajorKey notNil ifTrue:[

        aMajorKey isBehavior ifTrue:[

            key := aMajorKey name asSymbol

        ] ifFalse:[

            aMajorKey size ~~ 0 ifTrue:[

                key := aMajorKey asSymbol

            ]

        ]

    ].

    self majorKey ~~ key ifTrue:[

        self destroyCanvas

    ].

    majorKey := key.

    "Modified: / 06-09-2006 / 15:01:22 / cg"

!

minorKey

    ^ minorKey

    "Modified: / 06-09-2006 / 15:01:58 / cg"

!

minorKey:aMinorKey

    minorKey := aMinorKey.

    "Modified: / 06-09-2006 / 15:02:04 / cg"

!

setupCanvasView:aView

    |frame isV isH auto|

    isH := self hasHorizontalScrollBar.

    isV := self hasVerticalScrollBar.

    (isH or:[isV]) ifFalse:[

        frame := aView

    ] ifTrue:[

        frame := ScrollableView for:ViewScroller.

        frame horizontalScrollable:isH.

        frame verticalScrollable:isV.

        isH ifTrue:[frame horizontalMini:(self miniScrollerHorizontal)].

        isV ifTrue:[frame verticalMini:(self miniScrollerVertical)].

        (auto := self autoHideScrollBars) notNil ifTrue:[

            frame autoHideScrollBars:auto

        ].

        frame scrolledView scrolledView:aView.

    ].

    frame objectAttributeAt:#isTabItem put:true.

  ^ frame

! !

!TabItem methodsFor:'accessing-scrollbars'!

autoHideScrollBars

    ^ autoHideScrollBars

    "Modified: / 06-09-2006 / 14:58:38 / cg"

!

autoHideScrollBars:aBoolOrNil

    autoHideScrollBars := aBoolOrNil

    "Modified: / 06-09-2006 / 14:58:45 / cg"

!

hasHorizontalScrollBar

    ^ hasHorizontalScrollBar ? false

    "Modified: / 06-09-2006 / 15:00:39 / cg"

!

hasHorizontalScrollBar:aBool

    |flag|

    aBool == true ifTrue:[flag := true]

                 ifFalse:[self miniScrollerHorizontal:false].

    hasHorizontalScrollBar := flag

    "Modified: / 06-09-2006 / 15:00:58 / cg"

!

hasVerticalScrollBar

    ^ hasVerticalScrollBar ? false

    "Modified: / 06-09-2006 / 15:01:03 / cg"