"

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

View subclass:#NoteBookView

	instanceVariableNames:'list listHolder foregroundColor selection enabled action useIndex

		direction numberOfLines selectConditionBlock tabMenuActionBlock

		accessTabMenuAction expandSelection canvas canvasInset

		canvasFrameLevel canvasHolder halfLightColor halfShadowColor

		fitLastRow tabModus lastComputedExtent keepCanvas tabMargin

		activeForegroundColor drawLightColor edgeStyle tabBgColor

	classVariableNames:'DefaultForegroundColor DefaultActiveForegroundColor

		DefaultShadowColor DefaultHalfShadowColor DefaultLightColor

		DefaultHalfLightColor DefaultEdgeStyle DisabledForegroundColor'

	poolDictionaries:''

	category:'Views-Layout'

!

Object subclass:#Tab

	instanceVariableNames:'label model printableLabel disabledLabel lineNr layout extent

		accessCharacter'

	classVariableNames:''

	poolDictionaries:''

	privateIn:NoteBookView

!

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

"

    implements the noteBook.

    May also be used on its own (without a surrounding noteBook).

    [author:]

        Claus Atzkern

    [see also:]

        TabView

"

!

examples

"

    tabs at top ( default )

                                                                                [exBegin]                                      

    |top tab|

    top  := StandardSystemView extent:250@100.

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

    tab list:#( 'Foo' 'Bar' 'Baz' ).

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

    top open.

                                                                                [exEnd]

    tabs at bottom

                                                                                [exBegin]                                      

    |top tab|

    top  := StandardSystemView extent:250@100.

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

    tab direction:#bottom.

    tab list:#( 'Foo' 'Bar' 'Baz' ).

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

    top open.

                                                                                [exEnd]

    tabs at left

                                                                                [exBegin]                                      

    |top tab|

    top  := StandardSystemView extent:100@200.

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

    tab direction:#left.

    tab list:#( 'Foo' 'Bar' 'Baz' ).

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

    top open.

                                                                                [exEnd]

    tabs at right

                                                                                [exBegin]                                      

    |top tab|

    top  := StandardSystemView extent:100@200.

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

    tab direction:#right.

    tab list:#( 'Foo' 'Bar' 'Baz' ).

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

    top open.

                                                                                [exEnd]

"

! !

!NoteBookView class methodsFor:'defaults'!

defaultFont

    ^ MenuView defaultFont

!

updateStyleCache

"

self updateStyleCache

"

    DefaultForegroundColor := StyleSheet colorAt:#'noteBook.foregroundColor'.

    DefaultForegroundColor isNil ifTrue:[

        DefaultForegroundColor := StyleSheet colorAt:#'button.foregroundColor'.

    ].

    DefaultActiveForegroundColor := StyleSheet colorAt:#'noteBook.activeForegroundColor'.

    DefaultActiveForegroundColor isNil ifTrue:[

        DefaultActiveForegroundColor := StyleSheet colorAt:#'button.activeForegroundColor'

    ].

    DefaultLightColor := StyleSheet colorAt:#'noteBook.lightColor'.

    DefaultLightColor isNil ifTrue:[

        DefaultLightColor := StyleSheet colorAt:'button.lightColor'

    ].

    DefaultHalfLightColor := StyleSheet colorAt:#'noteBook.halfLightColor'.

    DefaultHalfLightColor isNil ifTrue:[

        DefaultHalfLightColor := StyleSheet colorAt:#'button.halfLightColor'

    ].    

    DefaultShadowColor := StyleSheet colorAt:#'noteBook.shadowColor'.

    DefaultShadowColor isNil ifTrue:[

        DefaultShadowColor := StyleSheet colorAt:'button.shadowColor'

    ].

    DefaultHalfShadowColor := StyleSheet colorAt:#'noteBook.halfShadowColor'.

    DefaultHalfShadowColor isNil ifTrue:[

        DefaultHalfShadowColor := StyleSheet colorAt:#'button.halfShadowColor'

    ].

    DefaultEdgeStyle := StyleSheet at:#'noteBook.edgeStyle'.

    DefaultEdgeStyle isNil ifTrue:[

        DefaultEdgeStyle := StyleSheet at:#'button.edgeStyle'

    ].

    DefaultEdgeStyle == #softWin95 ifFalse:[

        DefaultEdgeStyle := nil

    ].

! !

!NoteBookView methodsFor:'accepting - items'!

tabAtIndex:tabIndex put:newLabel

    |tab layout prefX prefY|

    "/ a single items label has changed

    tab := list at:tabIndex ifAbsent:nil.

    tab notNil ifTrue:[

        tab label:newLabel on:self.

        "/ no resizing, if the new string fits

        "/ and is not too small for current tab-layout

        layout := tab layout.

        (     (prefX := tab preferredExtentX) <= layout width

         and:[(prefY := tab preferredExtentY) <= layout height]

        ) ifTrue:[

            "/ the new string fits into current tab-layout

            numberOfLines == 1 ifTrue:[         "/ do not change the layout

                ^ self invalidateTab:tab

            ].

            "/ check whether the string is not too small for current tab-layout

            ((layout width <= (prefX * 1.5)) and:[layout height <= (prefY * 1.5)]) ifTrue:[

                ^ self invalidateTab:tab.      "/ do not change the layout

            ].

        ].

        self recomputeList.

        self invalidate.

        ^ self.

    ].

    "/ can this happen ?

    "Created: / 25.2.2000 / 14:13:59 / cg"

! !

!NoteBookView methodsFor:'accessing'!

canvas

    ^ canvas

!

canvas:aCanvas

    "

    aCanvas == canvas ifFalse:[

        canvas notNil ifTrue:[

            (keepCanvas or:[(canvas objectAttributeAt:#isTabItem) == true]) ifTrue:[

                canvas unmap.

            ] ifFalse:[

                canvas destroy.

            ].

        ].

        (canvas := aCanvas) notNil ifTrue:[

            tabModus := false.

            self resizeCanvas.

            (subViews size == 0 or:[(subViews includesIdentical:canvas) not]) ifTrue:[

                self addSubView:canvas

            ].

            realized ifTrue:[

                (keepCanvas or:[(canvas objectAttributeAt:#isTabItem) == true]) ifTrue:[

                    canvas id isNil ifTrue:[

                        canvas realize

                    ] ifFalse:[

                        canvas map.

                    ]

                ] ifFalse:[

                    canvas realize.

                ].

            ].

        ]

    ].

!

canvasFrameLevel

    "inset of the canvas relative to my canvas boundery

    "

    ^ canvasFrameLevel

!

    "

        self recomputeList.

        self invalidate.

    ].

!

canvasInset

    "inset of the canvas relativr to my frame

    "

    ^ canvasInset

!

canvasInset:anInset

    "inset of the canvas relativr to my frame

    "

    anInset ~~ canvasInset ifTrue:[

        canvasInset := anInset.

        self recomputeList.

        self invalidate.

    ].

!

list

    "return the list of Tabs or Labels

    "

    ^ list collect:[:aTab| aTab label ]

!

list:aList

    "set the list

    "

    |size name newList|

    name    := self selection.

    newList := OrderedCollection new.

    aList size == 0 ifTrue:[

        list do:[:aTab| aTab removeDependent:self].

    ] ifFalse:[

        list do:[:aTab| |m|

            (     (m := aTab model) notNil

             and:[(aList includesIdentical:m)]

            ) ifFalse:[

                aTab removeDependent:self

            ]

        ].

        aList do:[:el| |i tab|

            (    el isNil

             or:[(tab := list detect:[:t| t model == el] ifNone:nil) isNil]

            ) ifTrue:[

                tab := Tab label:el on:self.

                tab addDependent:self.

            ].

            newList add:tab

        ]

    ].

    list            := newList.

    preferredExtent := nil.

    numberOfLines   := nil.

    selection notNil ifTrue:[

        useIndex ifTrue:[

            selection > list size ifTrue:[

                selection := nil.

                self selectionChanged.

            ]

        ] ifFalse:[

            selection := list findFirst:[:el| el label = name ].

            selection == 0 ifTrue:[

                selection := nil.

                self selectionChanged.

            ]

        ]

    ].

    self recomputeList.

    self invalidate.

!

listIndexOf:something

    "convert something to an index into list or nil.

    "

    |index|

    something isNil ifTrue:[^ nil ].

    something isNumber ifTrue:[

        index := something

    ] ifFalse:[

        index := list findFirst:[:aTab|aTab label = something].

        index == 0 ifTrue:[

            index := list findFirst:[:aTab|aTab printableLabel = something]

        ]

    ].

    ^ (index between:1 and:list size) ifTrue:[index] ifFalse:[nil]

!

useIndex

    "use index instead of name

    "

    ^ useIndex

!

useIndex:aBoolean

    "set/clear the useIndex flag. If set, both actionBlock and change-messages

     are passed the index(indices) of the selection as argument. 

     If clear, the value(s) (i.e. the selected string) is passed.

     Default is false."

    useIndex := aBoolean

! !

!NoteBookView methodsFor:'accessing-actions'!

accessTabMenuAction

    "callback to retrieve the menu for a specific tab.

     the argument to the block is the index of the tab

    "

    ^ accessTabMenuAction

!

accessTabMenuAction:aOneArgAction

    "callback to retrieve the menu for a specific tab.

     the argument to the block is the index of the tab

    "

    accessTabMenuAction := aOneArgAction.

!

action

    "get the action block to be performed on select; the argument to

     the block is the selected index or nil in case of no selection.

    "

    ^ action

!

action:oneArgBlock

    "set the action block to be performed on select; the argument to

     the block is the selected index or nil in case of no selection.

    "

    action := oneArgBlock.

! !

!NoteBookView methodsFor:'accessing-behavior'!

enabled

    "returns true if tabs are enabled

    "

    ^ enabled

!

enabled:aState

    "set enabled state

    "

    |state|

    state := aState ? true.

    enabled ~~ state ifTrue:[

        enabled := state.

        self invalidate.

    ]

!

keepCanvas:aBoolean

    "if false (the default), the previous canvas is destroyed, whenever

     a new canvas is set.

     if true, it is unmapped and kept.

     Set this flag, if the application changes the canvas but wants

     them to be kept for fast switching."

    keepCanvas := aBoolean.

!

selectConditionBlock

    "get the conditionBlock; this block is evaluated before a selection

     change is performed; the change will not be done, if the evaluation

     returns false. The argument to the block is the selection index

    "

    ^ selectConditionBlock

!

selectConditionBlock:aOneArgBlock

    "get the conditionBlock; this block is evaluated before a selection

     change is performed; the change will not be done, if the evaluation

     returns false. The argument to the block is the selection index

    "

    selectConditionBlock := aOneArgBlock

! !

!NoteBookView methodsFor:'accessing-channels/holders'!

canvasHolder

    "get the model, which keeps the canvas, a kind of SimpleView

    "

    ^ canvasHolder

!

canvasHolder:aValueHolder

    "set the model, which keeps the canvas, a kind of SimpleView

    "

    canvasHolder removeDependent:self. 

    (canvasHolder := aValueHolder) notNil ifTrue:[

        canvasHolder addDependent:self.