"

 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.

"

View subclass:#NoteBookView

	instanceVariableNames:'list listHolder foregroundColor selection enabled action useIndex

		direction numberOfLines selectConditionBlock expandSelection

		canvas canvasInset canvasFrameLevel canvasHolder halfLightColor

		halfShadowColor fitLastRow tabModus lastComputedExtent keepCanvas

		tabMargin activeForegroundColor drawLightColor edgeStyle

		tabBgColor activeTabBgColor disabledForegroundColor'

	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|

    "/ 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

        ((tab layout width >= tab preferredExtentX) 

        and:[tab layout height >= tab preferredExtentY]) ifTrue:[

            ((tab layout width <= (tab preferredExtentX * 1.5)) 

            and:[tab layout height <= (tab preferredExtentY * 1.5)]) ifTrue:[

                self invalidateTab:tab.

                ^ self

            ].

        ].

        self recomputeList.

        self invalidate.

        ^ self.

    ].

    "/ can this happen ?

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

! !

!NoteBookView methodsFor:'accessing'!

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.

!

canvas

    ^ canvas

!

canvas:aCanvas

    "change canvas; the containter view

    "

    aCanvas == canvas ifFalse:[

        canvas notNil ifTrue:[

                canvas unmap.

            ] ifFalse:[

                canvas destroy.

            ].

        ].

        (canvas := aCanvas) notNil ifTrue:[

            tabModus := false.

            self resizeCanvas.

            ].

            realized ifTrue:[

                canvas realize.

            ].

        ]

    ].

!

canvasFrameLevel

    "inset of the canvas relative to my canvas boundery

    "

    ^ canvasFrameLevel

!

canvasFrameLevel:aFrameLevel

    "inset of the canvas relative to my canvas boundery

    "

    canvasFrameLevel ~~ aFrameLevel ifTrue:[

        canvasFrameLevel := aFrameLevel.

        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|

    name := self selection.

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

    aList notNil ifTrue:[

        list := aList collect:[:el| Tab label:el on:self].

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

    ] ifFalse:[

        list := #()

    ].

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

        self canvas:(canvasHolder value)

    ]

!

listHolder

    "get the model, which keeps the list of Tabs or Labels

    "

    ^ listHolder

!

listHolder:aValueHolder

    "set the model, which keeps the list of Tabs or Labels

    "

    listHolder removeDependent:self. 

    (listHolder := aValueHolder) notNil ifTrue:[

        listHolder addDependent:self.

        self list:listHolder value.

    ].

!

model:aValueHolder

    "set the model, which keeps the selection

    "

    super model:aValueHolder.

    model notNil ifTrue:[

        self selection:(model value)

    ]

! !

!NoteBookView methodsFor:'accessing dimension'!

maxTabHeight

    |e y|

    e := self preferredExtent.

    y := self isHorizontal ifTrue:[e y] ifFalse:[e x].

  ^ y - (expandSelection y)

!

preferredExtent

    "compute max extent x/y based on one line

    "

    |x "{ Class:SmallInteger }"

     y "{ Class:SmallInteger }"

    |

    preferredExtent isNil ifTrue:[

        y := 0.

        x := 0.

        list notEmpty ifTrue:[

            list do:[:aTab|

                x := x + aTab preferredExtentX.

                y := y max:(aTab preferredExtentY).

            ]

        ].

        y := y + (expandSelection y).

        x := x + (expandSelection x).

        preferredExtent := self isHorizontal ifTrue:[x @ y] ifFalse:[y @ x]

    ].

    ^ preferredExtent

!

preferredSizeXorY

    "returns preferred size dependant on the current view layout and

     the direction of the tabs

    "

    |e y|