"

 COPYRIGHT (c) 1997 by 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:#DataSetLabel

	instanceVariableNames:'label selector argument adjust font fgColor bgColor

		preferredHeight preferredWidth description'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-DataSet'

!

!DataSetLabel class methodsFor:'documentation'!

copyright

"

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

"

    This class keeps some info about a label.

    [author:]

        Claus Atzkern

"

! !

!DataSetLabel class methodsFor:'image specs'!

sortIndicator

    "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 sortIndicator inspect

     ImageEditor openOnClass:self andSelector:#sortIndicator

!

sortIndicatorGrey

    "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 sortIndicatorGrey inspect

     ImageEditor openOnClass:self andSelector:#sortIndicatorGrey

!

sortIndicatorGreyIcon

    ^ ToolbarIconLibrary sortIndicatorGreyIcon

!

sortIndicatorIcon

    "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 sortIndicatorIcon inspect

     ImageEditor openOnClass:self andSelector:#sortIndicatorIcon

!

sortReverseIndicator

    "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 sortReverseIndicator inspect

     ImageEditor openOnClass:self andSelector:#sortReverseIndicator

!

sortReverseIndicatorGrey

    "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 sortReverseIndicatorGrey inspect

     ImageEditor openOnClass:self andSelector:#sortReverseIndicatorGrey

!

sortReverseIndicatorGreyIcon

    "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 sortReverseIndicatorGreyIcon inspect

     ImageEditor openOnClass:self andSelector:#sortReverseIndicatorGreyIcon

!

sortReverseIndicatorIcon

    "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 sortReverseIndicatorIcon inspect

     ImageEditor openOnClass:self andSelector:#sortReverseIndicatorIcon

! !

!DataSetLabel methodsFor:'accessing-colors'!

backgroundColor

    "returns the background color or nil

    "

    ^ bgColor

!

backgroundColor:aColor

    "set the background color or nil

    "

    bgColor := aColor

!

foregroundColor

    "returns the foreground color or nil

    "

    ^ fgColor

!

foregroundColor:aColor

    "set the foreground color or nil

    "

    fgColor := aColor

! !

!DataSetLabel methodsFor:'accessing-dimensions'!

preferredHeight

    "returns my preferred height

    "

    ^ preferredHeight

!

preferredWidth

    "returns my preferred width

    "

    ^ preferredWidth

! !

!DataSetLabel methodsFor:'drawing'!

redrawX:xLeft w:width h:height inset:inset on:aLabelView

    "redraw the label; the background is cleared and the paint is set

    "

    |y0 x iconOffset gcFont labelWidth 

     netWidth goodLookingVerticalSpacing colNr sortIcon|

    label isNil ifTrue:[ ^ self ].

    font notNil ifTrue:[

        gcFont := aLabelView font.    "save original font"

        aLabelView font:font.

    ].

    y0 := (height - preferredHeight) // 2.

    goodLookingVerticalSpacing := aLabelView font descent.

    y0 := y0 + goodLookingVerticalSpacing.

    netWidth := width-inset-inset.

    iconOffset := 0.

    description isSortable ifTrue:[

        iconOffset := 12.

        colNr := aLabelView columnIndexOfDescription:description.

        colNr == aLabelView indexOfSortColumn ifTrue:[

            aLabelView reverseSort ifTrue:[

                sortIcon := ToolbarIconLibrary sortIndicatorGreyIcon

            ] ifFalse:[

                sortIcon := ToolbarIconLibrary sortReverseIndicatorGreyIcon

            ].

            sortIcon displayOn:aLabelView x:xLeft+inset y:y0.

        ].

    ].

    label do:[:eachLabelLine|

        |restWidth xOffset shownLabel mustUndoClip prevClip|

        shownLabel := eachLabelLine.

        mustUndoClip := false.

        labelWidth := shownLabel widthOn:aLabelView.

        labelWidth > netWidth ifTrue:[

            shownLabel := DataSetColumn shortenedStringFor:eachLabelLine on:aLabelView maxWidth:netWidth.

            labelWidth := shownLabel widthOn:aLabelView.

        ].

        adjust == #left ifTrue:[

            x := xLeft + iconOffset + inset.

        ] ifFalse:[

            restWidth := width - labelWidth - iconOffset.

            adjust == #right ifTrue:[

                xOffset := restWidth - inset

            ] ifFalse:[

                xOffset := restWidth // 2.    "/ center

            ].

            x := xLeft + xOffset.

           "/ cg: must clip left, if string is too large

            x < xLeft ifTrue:[

                "/ must clip ...

                prevClip := aLabelView clippingRectangleOrNil.

                mustUndoClip := true.

                aLabelView clippingRectangle:(Rectangle 

                                    left:xLeft top:y0 

                                    width:width height:height).

            ].

        ].

        shownLabel displayOn:aLabelView x:x y:y0 + (shownLabel ascentOn:aLabelView).

        y0 := y0 + (shownLabel heightOn:aLabelView) + goodLookingVerticalSpacing.

        mustUndoClip == true ifTrue:[

            aLabelView clippingRectangle:prevClip

        ].

    ].

    gcFont notNil ifTrue:[

        aLabelView font:gcFont     "/ restore font

    ].       

! !

!DataSetLabel methodsFor:'instance creation'!

description:aDescription builder:aBuilder on:aGC

    |device gcFont verticalSpace|

    description := aDescription.

    "/ stupid code - could simply access things via the description.

    "/ I leave it here for subclasses which depend on it (for a while).

    label           := self resolveLabelFromDescription:aDescription withBuilder:aBuilder.

    selector        := aDescription  labelActionSelector.

    argument        := (aDescription labelActionArgument) ? label.

    adjust          := (aDescription labelAlignment) ? #left.

    device          := aGC graphicsDevice.

    fgColor         := aDescription labelForegroundColor.

    bgColor         := aDescription labelBackgroundColor.

    fgColor notNil ifTrue:[ fgColor := fgColor onDevice:device ].

    bgColor notNil ifTrue:[ bgColor := bgColor onDevice:device ].

    preferredHeight := preferredWidth := 0.

    (label isEmptyOrNil) ifTrue:[

        label := nil.

        ^ self

    ].

    font := aDescription labelFont.

    font notNil ifTrue:[

        font := aBuilder resolveFont:font.

        font notNil ifTrue:[

            gcFont := aGC font.

            gcFont = font ifTrue:[

                font := nil

            ] ifFalse:[

                font := font onDevice:device.

                aGC font:font.

            ].

        ].

    ].

    label isString ifTrue:[

        label := Array with:label.

    ] ifFalse:[

        label isSequenceable ifFalse:[

            label := Array with:label.

        ]

    ].

    verticalSpace := aGC font descent. "/ goodLookingVerticalSpacing

    label := label 

                collect:[:el|

                    |lbl|

                    lbl := self label:el on:device.

                    preferredWidth  := (lbl widthOn:aGC) max:preferredWidth.

                    preferredHeight := preferredHeight + verticalSpace + (lbl heightOn:aGC) + verticalSpace.

                    lbl

                ].

    font notNil ifTrue:[aGC font:gcFont].       "/ restore font

! !

!DataSetLabel methodsFor:'private'!

label:aLabel on:aDevice

    "returns registered label on a device

    "

    |lbl img|

    aLabel isNil ifTrue:[^ ''].

    aLabel isString ifFalse:[

        aLabel isImageOrForm ifTrue:[

            aLabel device ~~ aDevice ifTrue:[

                lbl := aLabel copy onDevice:aDevice

            ] ifFalse:[

                lbl := aLabel

            ].

            lbl isImage ifTrue:[

                lbl clearMaskedPixels

            ].

            ^ lbl

        ].

        aLabel class == LabelAndIcon ifTrue:[

            lbl := aLabel onDevice:aDevice.

            (img := lbl image) isImage ifTrue:[img clearMaskedPixels].

            (img := lbl icon)  isImage ifTrue:[img clearMaskedPixels].

            ^ lbl

        ]

    ].

    ^ aLabel

!

resolveLabelFromDescription:aDescription withBuilder:aBuilder

    "the rawLabel can be a string, icon, labelAndIcon or collection of strings.

     if labelIsImage is true, the string is actually the appModel-labelFor-access key"

    |rawLabel appl resources lbl|