"

 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.

"

Object subclass:#TabWidget

	instanceVariableNames:'tabView label anchor extent lineNr'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Interactors'

!

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:TabWidget

!

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:TabWidget

!

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

"

    instances represent (& draw) the tabs of a tabWidget.

    [author:]

        Claus Atzkern

    [see also:]

        TabView

"

! !

!TabWidget class methodsFor:'instance creation'!

labels:aList for:aTabView

    "create tabs based on labels for a tabview

    "

    |list maxX maxY lftIns topIns level style|

    maxX   := 0.

    maxY   := 0.

    style  := aTabView style.

    lftIns := style at:#labelLeftInset.

    topIns := style at:#lableTopInset.

    level  := style at:#tabLevel.

    list := aList collect:[:aLabel||y x|

        (y := aLabel heightOn:aTabView) > maxY ifTrue:[maxY := y].

        (x := aLabel  widthOn:aTabView) > maxX ifTrue:[maxX := x].

        self new label:aLabel for:aTabView

    ].

    style at:#labelMaxX put:maxX.

    style at:#labelMaxY put:maxY.

    maxY  := maxY + topIns

                  + (style at:#labelBottomInset)

                  + (2 * level).

    maxX := maxX + lftIns + (style at:#labelRightInset).

    style at:#maxX put:maxX.

    style at:#maxY put:maxY.

    style at:#labelAnchor put:( lftIns @ (topIns +level) ).

    self validateDimensions:style.

    maxY := style at:#maxY.

    maxX := style at:#maxX.

 "/ caused by vertical layout for images

    maxX < maxY ifTrue:[style at:#maxX put:maxY].

  ^ list

!

validateDimensions:aStyle

    "validate dimensions for a style; could be redifined

    "

! !

!TabWidget class methodsFor:'accessing'!

tabStyleOn:aView

    "returns default tab style

    "

    |style selectedColor unselectedColor|

    style    := IdentityDictionary new.

    selectedColor   := Color gray:90.

    unselectedColor := Color gray:75.

    style at:#widget put:self.

    style at:#shadowColorSelected

         put:((selectedColor averageColorIn:(0@0 corner:7@7)) darkened  on:aView device).

    style at:#lightColorSelected

         put:((selectedColor averageColorIn:(0@0 corner:7@7)) lightened on:aView device).

    style at:#shadowColorUnselected

         put:((unselectedColor averageColorIn:(0@0 corner:7@7)) darkened  on:aView device).

    style at:#lightColorUnselected

         put:((unselectedColor averageColorIn:(0@0 corner:7@7)) lightened on:aView device).

    style at:#unselectedColor    put:unselectedColor.

    style at:#selectedColor      put:selectedColor.

    style at:#labelColor         put:(Color black).

    style at:#expandSelection    put:0@0.    "/ expand selection extent x y when raised

    style at:#tabLevel           put:0.      "/ level

    style at:#lableTopInset      put:4.      "/ additional top label inset

    style at:#labelBottomInset   put:4.      "/ additional bottom inset

    style at:#labelLeftInset     put:4.      "/ label left  inset

    style at:#labelRightInset    put:4.      "/ label right inset

    style at:#rightCovered       put:0.      "/ covers right tab for n pixels

  ^ style

!

widgetClass:aWidget

    |wdgt name|

    name := aWidget asString.

    wdgt := Smalltalk classNamed:( self name asString, '::', name ).

    wdgt notNil ifTrue:[

        ^ wdgt

    ].

    ^ Smalltalk classNamed:name

! !

!TabWidget methodsFor:'accessing'!

label

    ^ label

!

lineNr

    "returns line number

    "

    ^ lineNr

!

lineNr:aLineNr

    "change line number

    "

    lineNr := aLineNr

! !

!TabWidget methodsFor:'accessing dimensions'!

anchor

    "returns the tab origin

    "

    ^ anchor

!

anchor:anAnchor

    "change the tab anchor; no redraw

    "

    anchor := anAnchor

!

anchor:anAnchor extent:anExtent

    "change anchor and extent; no redraw

    "

    anchor := anAnchor.

    extent := anExtent.

!

extent

    "return the tab extent

    "

    ^ extent

!

extent:anExtent

    "change the tab extent; no redraw

    "

    extent := anExtent

!

preferredExtentX

    "returns my preferred extent x

    "

    ^    (tabView styleAt:#maxX)

       - (tabView styleAt:#labelMaxX)

       + (label  widthOn:tabView).

!

preferredExtentY

    "returns my preferred extent y

    "

    ^    (tabView styleAt:#maxY)

       - (tabView styleAt:#labelMaxY)

       + (label  heightOn:tabView).

! !

!TabWidget methodsFor:'basic drawing'!

redrawAtBottom:isSelected

    "redraw tab at bottom of view

    "

    ^ self subclassResponsibility

!

redrawAtLeft:isSelected

    "redraw tab at left of view

    "

    ^ self subclassResponsibility

!

redrawAtRight:isSelected

    "redraw tab at right of view

    "

    ^ self subclassResponsibility

!

redrawAtTop:isSelected

    "redraw tab at top of view

    "

    ^ self subclassResponsibility

! !

!TabWidget methodsFor:'drawing'!

redraw:isSelected

    "redraw tab

    "

    |direction origin anchor x y|

    direction := tabView direction.

    anchor    := tabView styleAt:#labelAnchor.

    origin    := self computeOrigin.

    (direction == #top or:[direction == #bottom]) ifTrue:[

        y := origin y.

        x := origin x + anchor x.

        direction == #top ifTrue:[

            self redrawAtTop:isSelected.

            y := y + anchor y.

        ] ifFalse:[

            self redrawAtBottom:isSelected.

            y := y - anchor y - (label heightOn:tabView).

        ].

        label isString ifTrue:[y := y + tabView font ascent].

        self setLabelColor.

    ] ifFalse:[

        direction == #right ifTrue:[

            self redrawAtRight:isSelected.

            x := origin x - anchor y - (label heightOn:tabView).

        ] ifFalse:[

            self redrawAtLeft:isSelected.

            x := origin x + anchor y.

        ].

        self setLabelColor.

        y := origin y + anchor x.

        label isString ifTrue:[

            x := x + tabView font descent.

            tabView displayString:label x:x y:y angle:90.

          ^ self.

        ].

    ].

    label displayOn:tabView x:x y:y.

    "Modified: 23.4.1997 / 17:28:49 / cg"

!

setLabelColor

    "set the label color dependant on the enabled state of the tabView

    "

    tabView isEnabled ifTrue:[

        tabView paintColor:#labelColor.

    ] ifFalse:[

        tabView paintColor:#shadowColorUnselected.

    ]

! !

!TabWidget methodsFor:'initialization'!

label:aLabel for:aTabView

    "initialize attributes

    "

    tabView := aTabView.

    label   := aLabel.

! !

!TabWidget methodsFor:'private'!

computeCorner

    "compute corner

    "

    |d c|

    c := anchor + extent.

    d := tabView direction.

    d == #top    ifTrue:[^ ( c x @ (tabView extent y) )].

    d == #left   ifTrue:[^ ( (tabView extent x) @ c y ) ].

    d == #right  ifTrue:[^ ( 0 @ c y )].

    d == #bottom ifTrue:[^ ( c x @ 0 )].

    self error.

!

computeOrigin

    "compute origin

    "

    |d|

    d := tabView direction.

    d == #top    ifTrue:[ ^ anchor x @ ((tabView extent y) - anchor y) ].

    d == #left   ifTrue:[ ^ ((tabView extent x) - anchor x) @ anchor y ].

    d == #right  ifTrue:[ ^ anchor ].

    d == #bottom ifTrue:[ ^ anchor ].

    self error

! !

!TabWidget methodsFor:'queries'!

containsPoint:aPoint

    "return true, if a point is contained in the tab

    "

    |d x y top bot origin|

    d := tabView direction.

    x := aPoint x.

    y := aPoint y.

    origin := self computeOrigin.

    (d == #top or:[d == #bottom]) ifTrue:[

        ((x >= origin x) and:[x <= (origin x + extent x)]) ifTrue:[

            d == #top ifTrue:[

                ^ ((y >=  origin y) and:[y <= (origin y + extent y)])

            ].

            ^ ((y <=  origin y) and:[y >= (origin y - extent y)])

        ]

    ] ifFalse:[

        ((y >= origin y) and:[y <= (origin y + extent y)]) ifTrue:[

            d == #right ifTrue:[

                ^ ((x <= origin x) and:[x >= (origin x - extent x)])

            ].

            ^ ((x >= origin x) and:[x <= (origin x + extent x)])

        ]

    ].

    ^ false

! !