"

 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' }"

SimpleView subclass:#DSVLabelView

	instanceVariableNames:'dataSet lineDrag columns selection enabled preferredHeight

		handleCursor tabSpacing opaqueColumnResize verticalLabelSpacing'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-DataSet'

!

Object subclass:#LineDrag

	instanceVariableNames:'rootView topX topY botY column minX startX transX'

	classVariableNames:''

	poolDictionaries:''

	privateIn:DSVLabelView

!

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

"

    shows the labels assigned to the column descriptions. 

    Used as the title-part of a DataSetView.

    [Instance variables:]

        dataSet         <DSVColumnView>         column view which shows the columns

        selection       <Integer or nil>        current selected index or nil.

        enabled         <Boolean>               if a press action exists on a column

                                                entry, this action could be enabled or

                                                disabled.

        preferredHeight <Integer>               the preferred height of the labelView

    [author:]

        Claus Atzkern

    [see also:]

        DSVColumnView

        DataSetColumnSpec

        DataSetColumn

        DataSetView

"

! !

!DSVLabelView class methodsFor:'accessing'!

tabSpacing

    "returns the tab spacing

    "

    ^ 2

! !

!DSVLabelView class methodsFor:'defaults'!

defaultFont

    ^ DSVColumnView defaultFont

! !

!DSVLabelView methodsFor:'accessing'!

columns:aListOfColumns

    "the list of columns changed

    "

    aListOfColumns = columns ifTrue:[^ self].

    columns         := aListOfColumns.

    preferredHeight := nil.

    selection       := nil.

    self changed:#columnLayout.

!

opaqueColumnResize

    ^ opaqueColumnResize

!

opaqueColumnResize:aBoolean

    opaqueColumnResize := aBoolean

! !

!DSVLabelView methodsFor:'drawing'!

invalidate

    (shown) ifTrue:[

        super invalidate

    ]

!

invalidateItemAt:anIndex

    "invalidate rectangle assigned to an item at an index

    "

    |cL xL xR hg|

    (shown) ifTrue:[

        cL := columns at:anIndex ifAbsent:[^ nil].

        xL := self xVisibleOfColNr:anIndex.

        xR := xL + cL width.

        (xL < width and:[xR > 0]) ifTrue:[

            xL := xL max:0.

            xR := xR min:width.

            hg := height - margin - margin.

            self invalidate:(Rectangle left:xL top:margin width:(xR - xL) height:hg)

        ]

    ]

!

redrawColumnsInX:x y:y width:w height:h

    "redraw a rectangle

    "

    |savClip bg fg fgColor bgColor

     inset  "{ Class:SmallInteger }"

     maxX   "{ Class:SmallInteger }"

     lblH  "{ Class:SmallInteger }"

     wt     "{ Class:SmallInteger }"

     x1     "{ Class:SmallInteger }"

     x0     "{ Class:SmallInteger }"

    |

    (shown) ifFalse:[^ self].

    bgColor := dataSet backgroundColor.

    self paint:bgColor.

    self fillRectangleX:x y:y width:w height:h.

    columns isEmpty ifTrue:[^ self].

    fgColor := dataSet foregroundColor.

    inset   := dataSet horizontalSpacing + 1.

    maxX    := (x + w) min:(width - margin).

    lblH    := height - margin - margin.

    savClip := clipRect.

    x1 := self xVisibleOfColNr:1.

    columns keysAndValuesDo:[:aKey :aCol| |anItem|

        anItem := aCol label.

        wt := aCol width.

        x0 := x1.

        x1 := x1 + wt.

        (x1 > x and:[x0 < maxX]) ifTrue:[

            |left right rect|

            left  := x0 max:x.

            right := x1 min:maxX.

            rect  := Rectangle left:left top:y width:(right - left) height:h.

            clipRect := nil.

            self clippingRectangle:rect.

            fg := (anItem foregroundColor) ? fgColor.

            (bg := anItem backgroundColor) notNil ifTrue:[

                bg ~= bgColor ifTrue:[

                    self paint:bg.

                    self fillRectangleX:x0 y:margin width:wt height:lblH.

                ]

            ] ifFalse:[

                bg := bgColor

            ].

            self   paint:fg on:bg.            

            anItem redrawX:x0 w:wt h:height inset:inset on:self.

        ]

    ].

!

redrawEdgesX:x y:yTop width:aWidth height:aHeight

    "redraw the edges in the range

    "

    |tabXL desc drawWidth

     maxX "{ Class:SmallInteger }"

     h    "{ Class:SmallInteger }"

     x1   "{ Class:SmallInteger }"

     x0   "{ Class:SmallInteger }"

     y0   "{ Class:SmallInteger }"

     absLabelLevel

    |

    maxX := (x + aWidth) min:(width - margin).

    absLabelLevel := 1.

    x1   := self xVisibleOfColNr:1.

    y0 := margin.

    h  := height - margin - margin.

"/    margin >= absLabelLevel ifTrue:[

"/        y0 := y0 - absLabelLevel.

"/        h := h + absLabelLevel+absLabelLevel.

"/    ].

    columns keysAndValuesDo:[:aKey :aCol|

        desc := aCol description.

        x0   := x1.

        x1   := x1 + aCol width.

        aKey == selection ifTrue:[

            (x1 > x and:[x0 < maxX]) ifTrue:[

                dataSet drawEdgesAtX:x0 y:y0 width:(x1 - x0) height:h level:(absLabelLevel negated) on:self.

            ].

            tabXL notNil ifTrue:[drawWidth := x0 - tabXL].

        ] ifFalse:[

            desc labelHasButtonLayout ifFalse:[

                tabXL notNil ifTrue:[drawWidth := x0 - tabXL].

            ] ifTrue:[

                tabXL isNil ifTrue:[tabXL := x0].

                desc labelIsPartOfGroup ifFalse:[drawWidth := x1 - tabXL].

            ]

        ].

        drawWidth notNil ifTrue:[

            ((tabXL + drawWidth) > x and:[tabXL < maxX]) ifTrue:[

                dataSet drawEdgesAtX:tabXL y:y0 width:drawWidth height:h level:absLabelLevel on:self.

            ].

            drawWidth := tabXL := nil.

        ]

    ].

    tabXL notNil ifTrue:[

        dataSet drawEdgesAtX:tabXL y:y0 width:(x1 - tabXL) height:h level:absLabelLevel on:self

    ].

    x1 < (maxX - absLabelLevel - absLabelLevel - 3) ifTrue:[

        dataSet 

            drawEdgesAtX:x1 y:y0 

            width:(width-margin-x1-absLabelLevel) height:h 

            level:absLabelLevel on:self

    ].

!

redrawX:x y:y width:wArg height:h

    |savClip w|

    (shown) ifFalse:[^ self].

    w := wArg.

    self redrawColumnsInX:x y:y width:w height:h.

    super redrawX:x y:y width:w height:h.

"/    (x + w) >= (width-margin) ifTrue:[

"/        w := (width-margin) - 1 - x.

"/    ].

    self clippingRectangle:(Rectangle left:x top:margin width:w height:height-margin-margin).

    self redrawEdgesX:x y:y width:w height:h.

    self clippingRectangle:savClip.

! !

!DSVLabelView methodsFor:'enumerating columns'!

columnsDo:aOneArgBlock 

    "evaluate the argument, aOneArgBlock for every column"

    columns do:aOneArgBlock

! !

!DSVLabelView methodsFor:'event handling'!

buttonMotion:state x:x y:y

    "mouse-button was moved;

     redraw thumb at its new position and, if scroll-mode is asynchronous, 

     the scroll action is performed

    "

    |idx x1 col|

    state = 0 ifTrue:[

        lineDrag := nil.

    ].

    lineDrag notNil ifTrue:[

        (opaqueColumnResize ? (UserPreferences current opaqueTableColumnResizing == true)) ifTrue:[

            lineDrag moveToX:x.      

            dataSet changeWidthOfColumn:lineDrag column deltaX:lineDrag deltaX.

            lineDrag resetDeltaX.    

        ] ifFalse:[

            lineDrag invertLine. "/ off

            lineDrag moveToX:x.      

            lineDrag invertLine. "/ on

        ].

        ^ self.

    ].

    "/ in the resize area ?

    idx := self xVisibleToColNr:(x-tabSpacing).

    col := columns at:idx ifAbsent:nil.

    (col notNil and:[col isResizeable]) ifTrue:[

        x1 := self xVisibleOfColNr:(idx + 1).

        (x between:(x1-tabSpacing) and:(x1+tabSpacing))

        "/ x + tabSpacing > x1 

        ifTrue:[

        ].

    ].

    self cursor:(Cursor normal)

!

buttonPress:button x:x y:y

    "handle a button press event; checks whether the item under the mouse

     is selectable. If true, the selection is set to the item.

    "

    |x1 idx col|

    (enabled and:[shown]) ifFalse:[

        ^ self

    ].

    "/ in the resize area ?

    idx := self xVisibleToColNr:(x-tabSpacing).

    idx ~~ 0 ifTrue:[

        col isResizeable ifTrue:[

            x1 := self xVisibleOfColNr:(idx + 1).

                col := columns at:idx ifAbsent:nil.

                self cursor:handleCursor.

                lineDrag := LineDrag new.

                lineDrag column:col

                              x:x

                              y:margin

                              h:(self height + dataSet height)

                           minX:(x1 - col width + col minimumRequiredWidth)

                             on:self.

                (opaqueColumnResize ? (UserPreferences current opaqueTableColumnResizing == true)) ifFalse:[

                    lineDrag invertLine.

                ].

            ]

        ]

    ].

    idx := self xVisibleToColNr:x.

        col label isSelectable ifTrue:[

            self invalidateItemAt:(selection := idx)

    ].

    self cursor:(Cursor normal).

!

buttonRelease:button x:x y:y

    "handle a button press event; checks whether the item under the mouse

     is the selected item. If true, the application is informed.

    "

    |selected index column deltaX|

    self cursor:(Cursor normal).

    selection isNil ifTrue:[

        lineDrag notNil ifTrue:[

            (opaqueColumnResize ? (UserPreferences current opaqueTableColumnResizing == true)) ifFalse:[

                lineDrag invertLine.

                column   := lineDrag column.

                deltaX   := lineDrag deltaX.

                deltaX abs > 0 "2" ifTrue:[

                    dataSet changeWidthOfColumn:column deltaX:deltaX

                ]

            ].

            lineDrag := nil.

        ].

        ^ self

    ].

    index     := self xVisibleToSelectionIndex:x.

    selected  := index == selection.

    index     := selection.

    selection := nil.

    self invalidateItemAt:index.

    selected ifTrue:[

        (columns at:index) label sendClickMsgTo:(self application)

    ]

!

pointerLeave:state

    "mouse left view - restore cursor.

    "

    self sensor anyButtonPressed ifFalse:[

        self cursor:(Cursor normal)

    ].

!

xVisibleToColNr:x

    |x0 x1|

    x1 := self xVisibleOfColNr:1.

    columns keysAndValuesDo:[:index :aCol|

        x0 := x1.

        x1 := x0 + aCol width.

        (x1 > x and:[x0 < x]) ifTrue:[

            ^ index

        ]

    ].

    ^ 0

! !

!DSVLabelView methodsFor:'focus handling'!

canTab

    ^ false

!

wantsFocusWithButtonPress

    "never wants the focus - view which keeps the labels

    "

    ^ false

! !

!DSVLabelView methodsFor:'initialization'!

initStyle

    <resource: #style (#'dataSet.labelView.level'

                       #'dataSet.labelView.verticalSpace' 

                       )>

    super initStyle.

    handleCursor := (VariablePanel cursorForOrientation:#horizontal onDevice:device) onDevice:device.

    font := (self class defaultFont) onDevice:device.

    "/ self level:0.

    self level:(styleSheet at:#'dataSet.labelView.level' default:-1).

    verticalLabelSpacing := (styleSheet at:#'dataSet.labelView.verticalSpace' default:2).

!