"

 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.

"

Object subclass:#DataSetColumn

	instanceVariableNames:'columnNumber dataSet minWidth width description buttonExtent

	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

        minWidth        <Integer>               minimum required width by the column

        width           <Integer>               width of column

        description     <DataSetColumnSpec>     the column description

        buttonExtent    <Point>                 extent of drawable form

        drawableAction  <Action>                action to access the printable

                                                label of a cell

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

        fgSelector      <Selector or nil>       access specific foreground color for

                                                a cell

        bgSelector      <Selector or nil>       access specific background color for

                                                a cell

        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)

        numArgsToReadSelector <Integer>         number of arguments to the readSelector

        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

    [author:]

        Claus Atzkern

    [see also:]

        DataSetColumnSpec

        DSVColumnView

        DataSetView

"

! !

!DataSetColumn methodsFor:'accessing'!

at:aRowNr

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

    "

    ^ self extractColFromRow:(dataSet at:aRowNr).

!

at:aRowNr put:something

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

    "

    |row newRow|

    row := dataSet at:aRowNr.

    newRow := self storeCol:something inRow:row.

    newRow ~~ row ifTrue:[

        dataSet dataSetView listAt:aRowNr put:newRow.

    ]

    "Modified: / 7.8.1998 / 22:17:27 / cg"

!

backgroundColor

    "returns the background color or nil

    "

    ^ backgroundColor == dataSet backgroundColor ifTrue:[nil]

                                                ifFalse:[backgroundColor]

!

backgroundColorFor:aRowNr

    |bg|

    bgSelector notNil ifTrue:[

        (bg := (dataSet at:aRowNr) perform:bgSelector) notNil ifTrue:[

            ^ bg

        ]

    ].

    ^ backgroundColor

!

description

    "returns the column description

    "

    ^ description

!

foregroundColor

    "returns the foreground color or nil

    "

    ^ foregroundColor == dataSet foregroundColor ifTrue:[nil]

                                                ifFalse:[foregroundColor]

!

label

    "get the label assigned to the column

    "

    ^ label

!

rendererType

    "returns my renderer type

    "

    ^ rendererType

!

width

    "returns the width in pixels

    "

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

    (    (width := description width)    ~~ 0                   "/ fixed size

     or:[(width := description minWidth) ~~ 0]                  "/ start size

    ) ifFalse:[

        self containsText ifTrue:[

            "/ take maximum 10 entries to calculate the width;

            "/ can be resized later if neccessary

            ].

            description editorType ~~ #None ifTrue:[

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

            ].

        ].

        width := width + buttonExtent x.

    ].

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

!

width:aWidth

    "set the width

    "

    |w|

    (w := description width) ~~ 0 ifTrue:[             "/ fixed size

        width := minWidth := w

    ] ifFalse:[

        width := aWidth max:minWidth

    ].

! !

!DataSetColumn methodsFor:'drawing'!

drawLabelsAtX:xLeft y:yTop h:h from:start to:stop

    "redraw labels from start to stop

    "

    |fg bg label row isSel

     y       "{ Class:SmallInteger }"

     yT      "{ Class:SmallInteger }"

     x       "{ Class:SmallInteger }"

     hspace  "{ Class:SmallInteger }"

     ascent  "{ Class:SmallInteger }"

    |

    yT := yTop.

    ascent := dataSet rowFontAscent.

    hspace := dataSet horizontalSpacing.

    start to:stop do:[:anIndex|

        row := dataSet at:anIndex.

        y := yT.

        x := xLeft.

     "/ GET BACKGROUND AND FOREGROUND-COLOR

     "/ ===================================

        isSel := dataSet isSelected:anIndex inColumn:columnNumber.

        isSel ifTrue:[

            (      description editorType ~~ #None

              and:[dataSet selectedColIndex == columnNumber]

            ) ifTrue:[

                isSel := false

            ]

        ].

        (isSel and:[description showSelectionHighLighted]) ifTrue:[

            "/ SHOW SELECTED( MUST REDRAW BACKGROUND )

            "/ =======================================

            fg := dataSet hgLgFgColor.

            bg := dataSet hgLgBgColor.

            dataSet paint:bg.

            dataSet fillRectangleX:x y:y width:width height:h.

        ] ifFalse:[

            bgSelector notNil ifTrue:[

                "/ MUST REDRAW BACKGROUND

                "/ ======================

                (bg := row perform:bgSelector) notNil ifTrue:[

                    bg := dataSet colorOnDevice:bg

                ] ifFalse:[

                    bg := backgroundColor

                ].

                dataSet paint:bg.

                dataSet fillRectangleX:x y:y width:width height:h.

            ] ifFalse:[

                bg := backgroundColor

            ].

            (fgSelector notNil and:[(fg := row perform:fgSelector) notNil]) ifTrue:[

                fg := dataSet colorOnDevice:fg

            ] ifFalse:[

                fg := foregroundColor

            ]

        ].

     "/ GET AND DRAW LABEL

     "/ ==================

        rendererType == #rowSelector ifTrue:[

            isSel ifTrue:[

                label := dataSet rowSelectorForm.

                x  := x + hspace.

            ] ifFalse:[

                label := nil

            ]

        ] ifFalse:[

            ]

        ].

        label notNil ifTrue:[

        ].

        yT := yT + h

    ]

!

drawSeparatorsAtX:xLeft y:yTop h:h from:start to:stop

    "redraw separators for cells between start and stop

    "

    |is3D

     xL    "{ Class:SmallInteger }"

     xR    "{ Class:SmallInteger }"

     yB    "{ Class:SmallInteger }"

     yT    "{ Class:SmallInteger }"

     times "{ Class:SmallInteger }"

    |

    (showColSeparator or:[showRowSeparator]) ifFalse:[

        ^ self

    ].

    is3D := dataSet has3Dseparators.

    is3D ifTrue:[dataSet paint:(dataSet separatorDarkColor)]

        ifFalse:[dataSet paint:(dataSet foregroundColor)].

    times := stop - start + 1.

    xL    := xLeft.

    xR    := xL - 1 + width.

    showRowSeparator ifTrue:[

     "/ DRAW SEPARATORS AT BOTTOM( DARK COLOR )

     "/ =======================================

        yB := yTop - 1 + h.

        rowSeparatorSelector isNil ifTrue:[

            times timesRepeat:[

                dataSet displayLineFromX:xL y:yB toX:xR y:yB.

                yB := yB + h.

            ]

        ] ifFalse:[

            start to:stop do:[:idx|

                ((dataSet at:idx) perform:rowSeparatorSelector) ~~ false ifTrue:[

                    dataSet displayLineFromX:xL y:yB toX:xR y:yB

                ].

                yB := yB + h.

            ]

        ]

    ].

    showColSeparator ifTrue:[

     "/ DRAW SEPARATORS AT RIGHT( DARK COLOR )

     "/ ======================================

        yT := yTop.

        times timesRepeat:[

            dataSet displayLineFromX:xR y:yT toX:xR y:(yT - 1 + h).

            yT := yT + h.

        ]

    ].

    is3D ifFalse:[

        ^ self

    ].

    dataSet paint:(dataSet separatorLightColor).

    (     columnNumber == 1

      or:[(dataSet columnAt:(columnNumber - 1)) showColSeparator]

    ) ifTrue:[

     "/ DRAW SEPARATORS AT LEFT( LIGHT COLOR )

     "/ ======================================

        yT := yTop.

        times timesRepeat:[

            dataSet displayLineFromX:xL y:yT toX:xL y:(yT - 1 + h).

            yT := yT + h.

        ].

    ] ifFalse:[

        xL := xL - 1

    ].

    showRowSeparator ifTrue:[

     "/ DRAW SEPARATORS AT TOP( LIGHT COLOR )

     "/ =====================================

        yT := yTop.

        rowSeparatorSelector isNil ifTrue:[

            times timesRepeat:[

                dataSet displayLineFromX:xL y:yT toX:xR y:yT.

                yT := yT + h.

            ]

        ] ifFalse:[

         "/ CHECK WHETHER PREVIOUS ROW HAS A SEPARATOR AT BOTTOM

         "/ ====================================================

            start to:stop do:[:idx|

                (    idx == 1

                  or:[((dataSet at:(idx - 1)) perform:rowSeparatorSelector) ~~ false]

                ) ifTrue:[

                    dataSet displayLineFromX:xL y:yT toX:xR y:yT.

                ].

                yT := yT + h.

            ]

        ]

    ].

!

invalidate

    "set to invalidate; forces a recomputation

    "

    minWidth := width := nil.

!

redrawX:xLeft y:yTop h:h from:start to:stop

    "redraw rows between start and stop

    "

    |rH "{ Class:SmallInteger }"

     y  "{ Class:SmallInteger }"

    |

    rH := dataSet rowHeight.

    bgSelector isNil ifTrue:[

        dataSet paint:backgroundColor.

        dataSet fillRectangleX:xLeft y:yTop width:width height:h

    ].

 "/ DRAW CELLS: BACKGROUND/FOREGROUND/LABEL

 "/ =======================================

    self drawLabelsAtX:xLeft y:yTop h:rH from:start to:stop.

 "/ DRAW INDICATORS

 "/ ===============

    (rendererType == #ComboBox or:[rendererType == #ComboList]) ifTrue:[

        y := yTop.

        start to:stop do:[:i|

            (self hasChoices:i) ifTrue:[