"

 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

		rowFontAscent 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

	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:]

        dataSetView             <DataSetView>           parent view

        editValue               <Model>                 current editing model

        editView                <View>                  current editing component

        multipleSelectOk        <Boolean>               multiple selection enabled/disabled

        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

        viewOrigin              <Point>                 current view origin

        colorMap                <Dictionary>            store and register used colors on device

        rowFontAscent           <SmallInteger>          inset of a printable text in a row

                                                        including separator and font ascent.

        lockRowIndex            <SmallInteger>          internal used to indicate a row which has

                                                        changed its contents but no redraw should be

                                                        done( at:put: ).

        columnHolder            <ValueHolder>           holder which keeps the list of column descriptors.

        registererImages        <IdentityDictionary>    list of images registered on the device

        list                    <SequancableCollection> list of rows

        canFit                  <Boolean>               boolean set to true if colums can be fit to view

        catchChangeEvents       <Boolean>               internal used to discard change notifications

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

        fgColor                 <Color>                 foreground color

        bgColor                 <Color>                 background color

        hgLgFgColor             <Color>                 highlight foreground color (selected)

        hgLgBgColor             <Color>                 highlight background color (selected)

        buttonLightColor        <Color>                 LightColor      ( drawing the edge of a button )

        buttonShadowColor       <Color>                 ShadowColor     ( drawing the edge of a button )

        buttonHalfLightColor    <Color>                 HalfLightColor  ( drawing the edge of a button )

        buttonHalfShadowColor   <Color>                 HalfShadowColor ( drawing the edge of a button )

        actionBlock             <a OneArgBlock>         action block performed on select

        doubleClickActionBlock  <a OneArgBlock>         action block performed on double click

        rowIfAbsentBlock        <a OneArgBlock>         this block is performed on an emty list entry

                                                        to retrive the item from the application. The

                                                        argument to the block is the index into the list.

                                                        The block should return the row instance which

                                                        is put to the list under the index.

        builder                 <UIBuilder>             builder set by application

        verticalSpacing         <SmallInteger>          vertical   row spacing( top  & bottom )

        horizontalSpacing       <SmallInteger>          horizontal row spacing( left & right )

        separatorSize           <SmallInteger>          line width of a vertical or horizontal separator

        rowSelectorForm         <Form>                  form used by a row selector

        checkToggleForm         <Form>                  form used by a checkToggle

        checkToggleExtent       <Point>                 extent of a checkToggle

        checkToggleLevel        <SmallInteger>          level used to draw a check toggle

        comboButtonForm         <Form>                  form used by a comboList or -Box

        comboButtonExtent       <Point>                 extent of a comboList or -Box

        comboButtonLevel        <SmallInteger>          level used to draw a comboList or -Box

        clickPosition           <Point>                 click position of the mouse

        dragAccessPoint         <Point>                 point where the drag operation starts

        dragIsActive            <Boolean>               true if a drag operation is active

        dropTarget              <DropTarget>            drag & drop target

        dropSource              <DropSource>            drag & drop source

    [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'

        ifAbsentPut:[(Depth2Image new) width: 8; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@P@AP@GPUWQ]7W]5W]"AX@F@@ @@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 8; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DA \?/????8\FA@b') ; yourself); yourself]! !

!DSVColumnView class methodsFor:'defaults'!

horizontalSpacing

    "returns the default horizontal space between rows

    "

    ^ 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

    ].

"

self updateStyleCache.

"

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

!

verticalSpacing

    "returns the default vertical space between rows

    "

    ^ 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'!

builder

    "get the builder (UIBuilder or nil)

    "

    ^ builder

!

builder:aBuilder

    "set the builder (UIBuilder or nil)

    "

    builder := aBuilder

!

columnView

    "returns self

    "

    ^ self

!

dataSetView

    "return the value of the instance variable 'dataSetView' (automatically generated)"

    ^ dataSetView

    "Created: / 7.8.1998 / 22:13:43 / cg"

!

dataSetView:something

    "set the value of the instance variable 'dataSetView' (automatically generated)"

    dataSetView := something.

    "Created: / 7.8.1998 / 22:13:43 / cg"

!

rowFontAscent

    "returns the inset of a printable text in a row

    "

    ^ rowFontAscent

! !

!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 := #()

    ].