"

 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.

"

View subclass:#DSVColumnView

	instanceVariableNames:'editValue editView multipleSelectOk selectedColIndex

		selectedRowIndex rowHeight columnDescriptors viewOrigin colorMap

		lockRowIndex rowIfAbsentBlock columnHolder registererImages list

		fgColor canFit separatorSize catchChangeEvents beDependentOfRows

		bgColor hgLgFgColor hgLgBgColor actionBlock builder

		doubleClickActionBlock verticalSpacing horizontalSpacing

		rowSelectorForm buttonLightColor buttonShadowColor

		buttonHalfLightColor buttonHalfShadowColor checkToggleExtent

		checkToggleForm checkToggleLevel comboButtonExtent

		comboButtonForm comboButtonLevel clickPosition dragAccessPoint

		dragIsActive dropTarget dropSource'

	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor

		DefaultHilightForegroundColor DefaultHilightBackgroundColor

		RowSelector ButtonLightColor ButtonShadowColor

		ButtonHalfLightColor ButtonHalfShadowColor ButtonEdgeStyle'

	poolDictionaries:''

	category:'Views-DataSet'

!

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

"

    implements a scrollable selection view based on rows and columns

    [Instance variables:]

        editValue               <Model>                 current editing model

        editView                <View>                  current editing component

        selectedColIndex        <Integer>               selected column index or 0

        selectedRowIndex        <Integer>               selected row index or 0

        rowHeight               <Integer>               maximum height of any row

        columnDescriptors       <SequancableCollection> list of column descriptors

        list                    <SequancableCollection> list of rows

        fgColor                 <Color>                 foreground color

        registererImages        <IdentityDictionary>    list of images registered on the device

        beDependentOfRows       <Coolean>               keep rows dependent; on default is disabled.

                                                        in case of enabled a row can raise a change

                                                        notification whithout a parameter which

                                                        will force a redraw of the row or the

                                                        readSelector of the column which will

                                                        redraw the cell in the row only.

    [author:]

        Claus Atzkern

    [see also:]

        DataSetColumnSpec

        DataSetColumn

        DataSetView

"

! !

!DSVColumnView class methodsFor:'accessing forms'!

rowSelector

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self rowSelector inspect

     ImageEditor openOnClass:self andSelector:#rowSelector

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DSVColumnView rowSelector'

!DSVColumnView class methodsFor:'defaults'!

horizontalSpacing

    ^ 4

!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables

    "

    <resource: #style (#textForegroundColor #'scrollableView.backgroundColor'

                       #'selection.hilightForegroundColor'

                       #'selection.hilightBackgroundColor'   )>

    DefaultForegroundColor        := StyleSheet colorAt:'textForegroundColor' default:(Color black).

    DefaultBackgroundColor        := StyleSheet colorAt:'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.

    DefaultHilightForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor' default:DefaultBackgroundColor.

    DefaultHilightBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor' default:DefaultForegroundColor.

    DefaultHilightForegroundColor = DefaultHilightBackgroundColor ifTrue:[

        DefaultHilightBackgroundColor := Color black

    ].

    ButtonLightColor      := StyleSheet colorAt:'button.lightColor'.

    ButtonShadowColor     := StyleSheet colorAt:'button.shadowColor'.

    ButtonHalfLightColor  := StyleSheet colorAt:'button.halfLightColor'.

    ButtonHalfShadowColor := StyleSheet colorAt:'button.halfShadowColor'.

    ButtonEdgeStyle       := StyleSheet at:'button.edgeStyle'.

"

self updateStyleCache.

"

    "Modified: / 26.10.1997 / 17:09:07 / cg"

!

verticalSpacing

    ^ 2

! !

!DSVColumnView class methodsFor:'resources'!

dragIconMulti

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self dragIconMulti inspect

     ImageEditor openOnClass:self andSelector:#dragIconMulti

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DSVColumnView dragIconMulti'

        ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@<@@@@O@@@@C3??L@<??3@OO?<<C3??O@<??0@OO?<@C3???0<???<OO???C3???0<???<OO???@C???0@???<@O???@C???0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C????@????0O????C????0?????O????3?????????????????????????????????????????????????????@????0O???<C????@????0@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]!

dragIconSingle

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self dragIconSingle inspect

     ImageEditor openOnClass:self andSelector:#dragIconSingle

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DSVColumnView dragIconSingle'

        ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@??30@O?<<@C??@@@??0@@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C???<@????@O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]! !

!DSVColumnView methodsFor:'accessing'!

columnView

    ^ self

! !

!DSVColumnView methodsFor:'accessing actions'!

action:aOneArgAction

    "set the action block to be performed on select

    "

    actionBlock := aOneArgAction

!

doubleClickAction:aOneArgAction

    "set the action block to be performed on doubleclick

    "

    doubleClickActionBlock := aOneArgAction

!

rowIfAbsent:aOneArgAction

    "set the action block to be performed on each 'nil' entry into the

     list. The argument to the block is the index into the list. The

     block returns the row which is put to the list

    "

    rowIfAbsentBlock := aOneArgAction

! !

!DSVColumnView methodsFor:'accessing behavior'!

beDependentOfRows

    "make myself dependent of any row; in this case any change notification

     raised by a row is catched and the cell identified by the 'readSelector'

     is redrawn. In case of a nil readSelector, the whole raw is redrawn.

        -> row changed:'what'

     On default the attribute is set to true (enabled).

    "

    ^ beDependentOfRows

!

beDependentOfRows:aBool

    "make myself dependent of any row; in this case any change notification

     raised by a row is catched and the cell identified by the 'readSelector'

     is redrawn. In case of a nil readSelector, the whole raw is redrawn.

        -> row changed:'what'

     On default the attribute is set to true (enabled).

    "

    aBool ~~ beDependentOfRows ifTrue:[

        beDependentOfRows := aBool.

        self size ~~ 0 ifTrue:[

            list do:[:aRow| aRow notNil ifTrue:[

                beDependentOfRows ifTrue:[aRow addDependent:self]

                                 ifFalse:[aRow removeDependent:self]

                ]

            ]

        ]

    ]

!

multipleSelectOk

    "allow/disallow multiple row selections; the default is false

    "

    ^ multipleSelectOk

!

multipleSelectOk:aState

    "allow/disallow multiple row selections; the default is false

    "

    aState == multipleSelectOk ifFalse:[

        multipleSelectOk := aState.

        self deselect

    ]

! !

!DSVColumnView methodsFor:'accessing colors'!

backgroundColor

    "get the background color of the rows

    "

    ^ bgColor

!

backgroundColor:aColor

    "set the background color of the rows

    "

    bgColor ~~ aColor ifTrue:[

        super viewBackground:bgColor.

        self realized ifTrue:[

            bgColor := aColor on:device.

            self invalidate

        ] ifFalse:[

            bgColor := aColor

        ]

    ]

!

foregroundColor

    "return the foreground color of the rows

    "

    ^ fgColor

!

foregroundColor:aColor

    "set the foreground color of the rows

    "

    fgColor ~~ aColor ifTrue:[

        self realized ifTrue:[

            fgColor := aColor on:device.

            self invalidate

        ] ifFalse:[

            fgColor := aColor

        ]

    ]

!

hgLgBgColor

    "returns the background color of a selected row

    "

    ^ hgLgBgColor

!

hgLgFgColor

    "returns the foreground color of a selected row

    "

    ^ hgLgFgColor

!

separatorDarkColor

    "returns the dark color used for drawing a shadowed separator (3D)

    "

    ^ shadowColor

!

separatorLightColor

    "returns the light color used for drawing a shadowed separator (3D)

    "

    ^ lightColor

! !

!DSVColumnView methodsFor:'accessing columns'!

columnAt:anIndex

    "returns the column at an index

    "

    ^ columnDescriptors at:anIndex

!

columnDescriptors

    "returns list of column descriptors

    "

    ^ columnDescriptors collect:[:aCol| aCol description ]

!

columnDescriptors:aColumnDescriptionList

    "set the columnDescriptors

    "

    |id sz|

    self deselect.

    (sz := aColumnDescriptionList size) ~~ 0 ifTrue:[

        id := 0.

        columnDescriptors := aColumnDescriptionList collect:[:aCol||column|

            (column := aCol) isSequenceable ifTrue:[

                column := DataSetColumnSpec new fromLiteralArrayEncoding:aCol

            ].

            id := id + 1.

            DataSetColumn new on:self description:column columnNumber:id

        ]

    ] ifFalse:[

        columnDescriptors := #()

    ].

    catchChangeEvents := true.

    canFit := (columnDescriptors findFirst:[:aCol|aCol canResize]) ~~ 0.

    preferredExtent := nil.

    shown ifTrue:[

        self fitColumns ifFalse:[

            self invalidate.

            self contentsChanged.

        ] ifTrue:[

            self preferredExtentChanged.

        ]

    ].

    catchChangeEvents := false.

    self changed:#sizeOfColumns.

!

firstColumn

    "returns the first column

    "

    ^ columnDescriptors at:1

!

lastColumn

    "returns the last column

    "

    ^ columnDescriptors last

! !

!DSVColumnView methodsFor:'accessing interactors'!

checkToggleExtent

    ^ checkToggleExtent

!

checkToggleForm

    ^ checkToggleForm

!

checkToggleLevel

    ^ checkToggleLevel

!

comboButtonExtent

    ^ comboButtonExtent

!

comboButtonForm

    ^ comboButtonForm

!

comboButtonLevel

    ^ comboButtonLevel

!

rowSelectorExtent

    "returns the bitmap of a selected row

    "

    ^ rowSelectorForm extent

!

rowSelectorForm

    "returns the bitmap of a selected row

    "

        rowSelectorForm := (self class rowSelector) on:device

    ].

    ^ rowSelectorForm

! !

!DSVColumnView methodsFor:'accessing mvc'!

columnHolder

    ^ columnHolder

!

columnHolder:aValueHolder

    |columns|

    columnHolder notNil ifTrue:[

        columnHolder removeDependent:self

    ].

    (columnHolder := aValueHolder) notNil ifTrue:[

        columnHolder addDependent:self.

        columns := columnHolder value.

        columns notNil ifTrue:[

            self columnDescriptors:columns

        ]

    ].

! !

!DSVColumnView methodsFor:'accessing rows'!

at:aRowNr

    "return the row at an index, aRowNr

    "

    |row|

    (row := list at:aRowNr) isNil ifTrue:[

        lockRowIndex := aRowNr.

        (row := rowIfAbsentBlock value:aRowNr) notNil ifTrue:[

            list at:aRowNr put:row.

            beDependentOfRows ifTrue:[row addDependent:self].

        ].

        lockRowIndex := 0

    ].

    ^ row

!

at:aRowNr ifAbsent:exceptionBlock

    "return the row at a aRowNr. If the index is invalid, return the

     result of evaluating the exceptionblock

    "

    (aRowNr between:1 and:self size) ifTrue:[

        ^ self at:aRowNr