"

 COPYRIGHT (c) 1997 by Claus Gittinger / 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' }"

Object subclass:#DataSetColumn

	instanceVariableNames:'columnNumber dataSet width description buttonExtent rendererType

		backgroundColor foregroundColor rowSeparatorSelector

		showColSeparator showRowSeparator columnAlignment label

		containsText columnAdaptor descWidth descMinWidth

		longStringCompression minValue maxValue'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-DataSet'

!

!DataSetColumn class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by Claus Gittinger / 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

"

    represent one single column description of a DataSetView

    [Instance variables:]

        columnNumber    <Integer>               sequence number (into list of columns)

        dataSet         <DSVColumnView>         the view it belongs to

        width           <Integer>               width of column

        description     <DataSetColumnSpec>     the column description (a spec)

        buttonExtent    <Point>                 extent of drawable form

        rendererType    <Type>                  renderer type (cached value from

                                                the column specification).

        backgroundColor <Color or nil>          background color of all cells or nil

                                                (nil: use default background color).

        foregroundColor <Color or nil>          foreground color of all cells or nil

                                                (nil: use default foreground color).

        columnAlignment <Symbol>                align text/icon #left #right or #center

                                                in row (on default: #left).

        label           <label/icon or nil>     label resolved by the builder shown

                                                in the column description field.

        readSelector    <Symbol>                cached readSelector (from the spec)

        columnAdaptor   <nil or any>            if non-nil, that one is asked (via

                                                read-writeSelectors to extract a column

                                                from a row object.

                                                If nil, the row object is used itself.

        showColSeparator <Boolean>              true: vertical separators are enabled;

                                                separator between columns

        showRowSeparator <Boolean>              true: horizontal separators are enabled;

                                                separator between rows

        rowSeparatorSelector <Selector or nil>  access specific showRowSeparator state

                                                for a cell

    [from description:]

        fgSelector      <Selector or nil>       access specific foreground color for

                                                a cell

        bgSelector      <Selector or nil>       access specific background color for

                                                a cell

        numberOfRowsProbedForColumnSize         the number of rows which are queries

                                <Integer>       in order to compute the columns width.

                                                (for scrollBar/col width computation)

                                                Notice, if its expensive to fetch rows

                                                (dataBase apps), this should be small.

                                                Default:15

    [author:]

        Claus Atzkern

    [see also:]

        DataSetColumnSpec

        DSVColumnView

        DataSetView

"

! !

!DataSetColumn class methodsFor:'utilities'!

shortenedStringFor:aString on:aGC maxWidth:maxWidth

    "common code to shorten a string; used in both the DSV label- and column Views,  

     if the string is too long for the column"

    |widthOf3Dots wRest shortenedLabel lUsed lMin lMax|

    aString isString ifFalse:[^ aString].

    (aString widthOn:aGC) > maxWidth ifFalse:[aString].

    widthOf3Dots := '...' widthOn:aGC.

    lMin := 1.

    lMax := aString size.

    [ 

        lUsed := (lMax + lMin) // 2.

        wRest := aString widthFrom:1 to:lUsed on:aGC.

        wRest > (maxWidth-widthOf3Dots) ifTrue:[

            lMax := lUsed - 1.

        ] ifFalse:[

            lMin := lUsed + 1.

        ].

        lMin < lMax

    ] whileTrue.

    shortenedLabel := aString copyFrom:1 to:lUsed.

    shortenedLabel isEmpty ifTrue:[

        ((aString first asString , '..') widthOn:aGC) < maxWidth ifTrue:[

            "/ only two dots and the first character

            ^ (aString first asString , '..')

        ]

    ].

    ^ (shortenedLabel , '...').

! !

!DataSetColumn methodsFor:'accessing'!

activeHelpText

    "get the active helpText or nil"

    |app key|

    ((key := description activeHelpKey) notNil 

    and:[(app := dataSet application) notNil]) ifTrue:[

        ^ app flyByHelpTextForKey:key.

    ].

    ^ nil

    "Created: / 26-03-2007 / 13:39:11 / cg"

    "Modified: / 26-03-2007 / 17:51:15 / cg"

!

at:aRowNr

    "get the value of the raw at an index, aRowNr

    "

    |row|

    row := dataSet at:aRowNr.

    ^ self extractColFromRow:row rowNr:aRowNr.

!

at:aRowNr put:something

    "set the value of the raw at an index, aRowNr

    "

    |row newRow|

    row := dataSet at:aRowNr.

    self storeCol:something inRow:row.

!

columnAdaptor

    ^ columnAdaptor

!

columnAdaptor:anAdapter

    columnAdaptor := anAdapter.

!

description

    "returns the column spec

    "

    ^ description

!

label

    "get the label assigned to the column

    "

    ^ label

!

longStringCompression:aBoolean

    ^ longStringCompression ? true

!

rendererType

    "returns my renderer type

    "

    ^ rendererType

! !

!DataSetColumn methodsFor:'accessing-colors'!

backgroundColor

    "returns the background color or nil

    "

    ^ backgroundColor == dataSet backgroundColor ifTrue:[nil] ifFalse:[backgroundColor]

!

backgroundColor: aColor

    backgroundColor := aColor

!

backgroundColorAt:aRowNr

    "returns the background color for a row at list index a rowNr

    "

    description backgroundSelector notNil ifTrue:[

        ^ self backgroundColorFor:(dataSet at:aRowNr) at:aRowNr

    ].

    ^ backgroundColor

!

backgroundColorFor:aRow at:aRowNr     

    "return the background color for a row at list index a rowNr"

    "/ backgroundColor has already been fetched from description/dataSet (see #initialize)

    ^ self

        colorFor:aRow at:aRowNr 

        descriptionSelector:(description backgroundSelector) 

        descriptionColor:backgroundColor 

        dataSetDefaultColor:nil

    "Modified: / 26-03-2007 / 13:27:19 / cg"

!

colorFor:aRow at:aRowNr descriptionSelector:descriptionSelector descriptionColor:descriptionColor dataSetDefaultColor:dataSetColor    

    "common code for returning a color for a row at list index a rowNr, asking both description and dataSet as fallBack"

    |clr|

    descriptionSelector notNil ifTrue:[

        columnAdaptor notNil ifTrue:[

            clr := columnAdaptor perform:descriptionSelector withOptionalArgument:aRow and:aRowNr and:columnNumber and:dataSet

        ] ifFalse:[

            clr := aRow perform:descriptionSelector withOptionalArgument:aRowNr and:columnNumber and:dataSet

        ].

        clr notNil ifTrue:[

            (clr isColor or:[clr isImageOrForm]) ifTrue:[

                ^ clr

            ].

            self error:'unexpected color (not a color or image)'.

        ]

    ].

    ^ descriptionColor ? dataSetColor

    "Created: / 26-03-2007 / 13:05:24 / cg"

!

foregroundColor

    "returns the foreground color or nil

    "

    ^ foregroundColor == dataSet foregroundColor ifTrue:[nil] ifFalse:[foregroundColor]

!

foregroundColor: aColor

    foregroundColor := aColor

!

foregroundColorFor:aRow at:aRowNr

    "returns the foreground color for a row at list index a rowNr

    "

    "/ foregroundColor has already been fetched from description/dataSet (see #initialize)

    ^ self

        colorFor:aRow at:aRowNr 

        descriptionSelector:(description foregroundSelector) 

        descriptionColor:foregroundColor 

        dataSetDefaultColor:nil

    "Modified: / 26-03-2007 / 13:27:39 / cg"

!

selectedBackgroundColorFor:aRow at:aRowNr     

    "returns the selected background color for a row at list index a rowNr"

    ^ self

        colorFor:aRow at:aRowNr 

        descriptionSelector:(description selectedBackgroundSelector) 

        descriptionColor:(description selectedBackgroundColor) 

        dataSetDefaultColor:(dataSet selectionBackgroundColor)

    "Modified: / 26-03-2007 / 13:06:06 / cg"

!

selectedForegroundColorFor:aRow at:aRowNr     

    "returns the selected foreground color for a row at list index a rowNr"

    ^ self

        colorFor:aRow at:aRowNr 

        descriptionSelector:(description selectedForegroundSelector) 

        descriptionColor:(description selectedForegroundColor) 

        dataSetDefaultColor:(dataSet selectionForegroundColor)

    "Modified: / 26-03-2007 / 13:05:31 / cg"

! !

!DataSetColumn methodsFor:'accessing-dimension'!

minWidth

    "get the minimum width required by the column

    "

    descMinWidth notNil ifTrue:[

        ^ descMinWidth

    ].

    width := nil.

  ^ self width

!

minimumRequiredWidth

    "returns the minimum required width

    "

    |minWidth|

    descMinWidth notNil ifTrue:[

        minWidth := DSVLabelView tabSpacing max:2.

      ^ minWidth // 2 + minWidth

    ].

    minWidth := dataSet separatorSize + (2 * dataSet horizontalSpacing).

  ^ minWidth + label preferredWidth.

!

setDescWidth:aWidth

    "set a fixed width

    "

    descMinWidth := 1.

    descMinWidth := width := descWidth := self minimumRequiredWidth max:aWidth.

!

width

    "returns the width in pixels

     Warning: 

        only the first numberOfRowsProbedForColumnSize are probed,

        in case the access is expensive (dataBase apps)

     If the descriptor defines a width, that is used, and the items

     are not probed at all."

    |max       "{ Class:SmallInteger }"

     listSize  "{ Class:SmallInteger }"|

    width notNil ifTrue:[^ width].              "/ already computed

    descMinWidth notNil ifTrue:[

        width := descMinWidth.

      ^ width

    ].

    (descWidth ~~ 0 and:[descWidth isLimitedPrecisionReal not]) ifTrue:[

        width := descMinWidth := descWidth.

      ^ width

    ].

    width := description minWidth max:(label preferredWidth).

    descWidth isLimitedPrecisionReal ifTrue:[

        width := width max:(descWidth * dataSet innerWidth) rounded.

      ^ width

    ].

    containsText ifTrue:[

        "/ take maximum numberOfRowsProbedForColumnSize entries to calculate the width;

        "/ can be resized later if neccessary

        listSize := dataSet size.

        max := listSize min:description numberOfRowsProbedForColumnSize.

        max ~~ 0 ifTrue:[

            1 to:max do:[:rowNr| |row|

                row := dataSet at:rowNr.

                width := width max:(self widthOfLabel:(self shownValueForRow:row rowNr:rowNr))

            ].

            width := width max:(self widthOfLabel:(self shownValueForRow:(dataSet at:listSize) rowNr:listSize))

        ].

        description editorType ~~ #None ifTrue:[

            width := width + (dataSet font widthOn:dataSet device)

        ].

    ] ifFalse:[

        max := 1

    ].

    width := width + buttonExtent x + dataSet separatorSize + (2 * dataSet horizontalSpacing).

    max ~~ 0 ifTrue:[

        descMinWidth := width.

        description usePreferredWidth ifTrue:[

            descWidth := width

        ]

    ].

  ^ width

    "Modified: / 25.2.2000 / 14:29:16 / cg"

! !

!DataSetColumn methodsFor:'drawing'!

drawLabel:aLabelToDraw atX:xLeft y:yTop

    "draw aLabelToDraw; handle columnAlignment"

    |drawnLabel x space prevClip mustUndoClip cashedWidth

     labelWidth leftPart leftShift indexOfFirstDigit indexOfFirstNonDigit|

    cashedWidth := self width.

    cashedWidth isNil ifTrue:[ ^ self ].

    space := dataSet horizontalSpacing.

    drawnLabel := aLabelToDraw.

    labelWidth := drawnLabel widthOn:dataSet.

    (longStringCompression ~~ false

    and:[ drawnLabel isString 

    and:[ labelWidth > cashedWidth]]) ifTrue:[

        drawnLabel := self class shortenedStringFor:drawnLabel on:dataSet maxWidth:cashedWidth-space.

        labelWidth := drawnLabel widthOn:dataSet.

    ].

    columnAlignment == #left ifTrue:[

        x  := xLeft + space.

    ] ifFalse:[

        columnAlignment == #decimal ifTrue:[

            drawnLabel := drawnLabel asString.

            (drawnLabel includes:$.) ifTrue:[

                leftPart := drawnLabel upTo:$..

            ] ifFalse:[

                leftPart := drawnLabel.

                indexOfFirstDigit := drawnLabel findFirst:[:char | char isDigit].

                indexOfFirstDigit ~~ 0 ifTrue:[

                    indexOfFirstNonDigit := drawnLabel findFirst:[:char | char isDigit not] startingAt:indexOfFirstDigit+1.

                    indexOfFirstNonDigit ~~ 0 ifTrue:[

                        leftPart := drawnLabel copyTo:indexOfFirstNonDigit-1.

                    ].

                ].

            ].

            leftShift := leftPart widthOn:dataSet.

            x := (cashedWidth // 2) - leftShift.

        ] ifFalse:[

            x := cashedWidth - labelWidth.

            columnAlignment == #right ifTrue:[x := x - space]

                                     ifFalse:[x := x // 2].

        ].

    "/ cg: old code (did not right-align if string is larger than width

    "/        x := xLeft + (x max:0).

        "/ new code: always right-align.

        x := xLeft + x.

        "/ must clip left, if string is too large

        x < xLeft ifTrue:[

            "/ must clip ...

            prevClip := dataSet clippingRectangleOrNil.

            mustUndoClip := true.

            dataSet clippingRectangle:(Rectangle 

                                left:xLeft top:yTop 

                                width:cashedWidth height:(drawnLabel heightOn:dataSet)).

        ].

    ].

"/    drawnLabel isImageOrForm ifTrue:[

"/        y := yTop.

"/    ] ifFalse:[

"/        y := (yTop + dataSet rowFontAscent)