hg/stx-libwidg2: comparison DSVColumnView.st

equal deleted inserted replaced

-:33fa68fa29f9
+:3019347d6f76
 !
 updateStyleCache
 "extract values from the styleSheet and cache them in class variables"
 <resource: #style (#textForegroundColor
 #'scrollableView.backgroundColor'
 #'button.lightColor'
 #'button.shadowColor'
 #'button.halfLightColor'
 #'button.halfShadowColor'
 #'checkToggle.activeImage'
 #'checkToggle.passiveImage'
 #'radioButton.activeImage'
 #'radioButton.passiveImage'
 #'selection.hilightForegroundColor'
 #'selection.hilightBackgroundColor'
 #'selection.hilightFrameColor'
 #'dataSet.labelView.foregroundColor'
 #'dataSet.labelView.backgroundColor'
 )>
 ComboButtonLevel  := nil.
 ComboButtonExtent := nil.
 DefaultLabelBackgroundColor := StyleSheet at:#'dataSet.labelView.backgroundColor' default:nil.
 DefaultLabelForegroundColor := StyleSheet at:#'dataSet.labelView.foregroundColor' default:nil.
 "
 self updateStyleCache.
 "
 "Modified: / 20-01-2011 / 08:44:28 / cg"
 "
 <resource: #image>
 ^Icon
-constantNamed:'DSVColumnView dragIconMulti'
+constantNamed:'DSVColumnView class dragIconMulti'
 ifAbsentPut:[(Depth1Image width:32 height:32) 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 width:32 height:32) bits:(ByteArray fromPackedString:'
 "
 <resource: #image>
 ^Icon
-constantNamed:'DSVColumnView dragIconSingle'
+constantNamed:'DSVColumnView class dragIconSingle'
 ifAbsentPut:[(Depth1Image width:32 height:32) 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 width:32 height:32) bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C???<@????@O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O??
 ?<C????@????0O???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); yourself); yourself]
 !
 rowSelectorImage
-<resource: #image>
 "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 rowSelectorImage inspect
 ImageEditor openOnClass:self andSelector:#rowSelectorImage
-Icon flushCachedIcons"
+Icon flushCachedIcons
+"
-^ Icon constantNamed:#'DSVColumnView class rowSelectorImage'
-ifAbsentPut:[
+<resource: #image>
-(Depth2Image new)
-width:11;
+^Icon
-height:11;
+constantNamed:'DSVColumnView class rowSelectorImage'
-photometric:(#palette);
+ifAbsentPut:[(Depth2Image width:11 height:11) bits:(ByteArray fromPackedString:'@ @@@#@@*#0@@C,@O>(0N*($J*$P@BT@*!!P@@!!@@@ @@')
-bitsPerSample:(#( 2 ));
+colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]
-samplesPerPixel:(1);
+mask:((ImageMask width:11 height:11) bits:(ByteArray fromPackedString:'C@@N@@<@?8C?0O? ?<C? @<@C @L@@@a'); yourself); yourself]
-bits:(ByteArray
-fromPackedString:'@0@@@1@@?1P@@A4@EW=@G?? O?:@@C(@?2 @@2@@@0@@');
-colorMapFromArray:#[ 0 0 0 255 255 255 127 127 127 170 170 170 ];
-mask:((ImageMask new)
-width:11;
-height:11;
-bits:(ByteArray fromPackedString:'C@@N@@<@?8C?0O? ?<C? @<@C @L@@@a');
-yourself);
-yourself
-]
 ! !
 !DSVColumnView class methodsFor:'signal constants'!
 stopRedrawSignal
 !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
 !
 heightOfContents
 "return the height of the contents in pixels"
 cachedPreferredExtent isNil ifTrue:[
 self preferredExtent
 ].
 ^ cachedPreferredExtent y
 !
 labelView:aView
 labelView := aView for:self.
 labelView layout:(LayoutFrame
 leftFraction:0 offset:0
 rightFraction:1 offset:0
 topFraction:0 offset:0
 bottomFraction:0 offset:[self preferredLabelViewHeight]).
 !
 level:aLevel
 "change the level and thus the level of the labelView"
 aLevel ~~ level ifTrue:[
 super level:aLevel.
 "/        labelView level:aLevel.
 ]
 !
 ^ labelView preferredHeight "/ + (labelView margin + self verticalSpacing * 2).
 !
 rowFontAscent
 "returns the inset of a printable text in a row"
 ^ rowFontAscent
 !
 selectedColIndex:newSelectedColIndex
 self selectedColIndexHolder value:newSelectedColIndex
 ^ selectedColIndexHolder
 ! !
 !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
 !
 selectConditionBlock
 "get the select-conditionBlock; this block is evaluated before
 any selection change is performed (passing the to-be-changed row number
 index as arg).
 The change will not be done, if the block returns false. "
 ^ selectConditionBlock
 !
 selectConditionBlock:aOneArgBlockOrNil
 "set the select-conditionBlock; this block is evaluated before
 any selection change is performed (passing the to-be-changed row number
 index as arg).
 The change will not be done, if the block returns false. "
 selectConditionBlock := aOneArgBlockOrNil.
 !
 tabAtEndAction:aNoneArgAction
 "set the action, called without any argument at end of the list entering
 tab next.
 The default is to give the focus to the view after self in the focusSequence"
 tabAtEndAction := aNoneArgAction
 !
 tabAtStartAction:aNoneArgAction
 "set the action, called without any argument at start of the list entering
 tab previous.
 The default is to give the focus to the view before self in the focusSequence"
 tabAtStartAction := aNoneArgAction
 ! !
 !DSVColumnView methodsFor:'accessing-behavior'!
 "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'
 By default, the attribute is set to false (disabled)."
 ^ 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'
 By default, the attribute is set to false (disabled)."
 aBool ~~ beDependentOfRows ifTrue:[
 beDependentOfRows := aBool.
 aBool ifTrue:[
 self makeDependentOfRows
 ] ifFalse:[
 ignoreReselect := aBoolean
 "Created: / 22-10-2006 / 11:01:25 / cg"
 !
 makeDependentOfRows
 "make myself dependent of any row"
 list size ~~ 0 ifTrue:[
 list do:[:aRow |
 aRow notNil ifTrue:[
 aRow addDependent:self
 ]
 ]
 ]
 !
 makeIndependentOfRows
 "make myself independent of any row"
 list size ~~ 0 ifTrue:[
 list do:[:aRow |
 aRow notNil ifTrue:[
 aRow removeDependent:self
 ]
 ]
 ]
 !
 multipleSelectOk
 "allow/disallow multiple row selections; the default is false"
 ^ multipleSelectOk
 !
 multipleSelectOk:sBoolean
 "allow/disallow multiple row selections; the default is false"
 |colIdx rowIdx|
 sBoolean == multipleSelectOk ifTrue:[^ self ].
 opaqueColumnResize:aBoolean
 labelView opaqueColumnResize:aBoolean
 !
 scrollWhenUpdating
 "return the scroll behavior, when I get a new text
 (via the model or the #contents/#list)
 Possible returnValues are:
 #keep / nil     -> no change
 #endOfText      -> scroll to the end
 #beginOfText    -> scroll to the top
 ^ scrollWhenUpdating
 !
 scrollWhenUpdating:aSymbolOrNil
 "define how to scroll, when I get a new text
 (via the model or the #contents/#list)
 Allowed arguments are:
 #keep / nil     -> no change
 #endOfText      -> scroll to the end
 #beginOfText    -> scroll to the top
 !
 selectRowOnDefault
 "if true, in case of selecting a none selectable cell, the row is selected.
 If false, nothing is selected. The default is true."
 ^ selectRowOnDefault
 !
 selectRowOnDefault:aBool
 "if true, in case of selecting a none selectable cell, the row is selected.
 If false, nothing is selected. The default is true."
 selectRowOnDefault := aBool
 !
 sortListInPlace
 "when false (default for backward compatibility):
 if sorting, create a copy
 of the list, which is wrong when useIndex is on,
 as the application will get the index in the sorted
 list, which is probably different from tha apps list mode.
 When true (should be default, but that might break many
 users), the passed in list is sorted in place (i.e. possibly
 sorting the application's list)."
 ^ sortListInPlace
 !
 sortListInPlace:aBoolean
 "when false (default for backward compatibility):
 if sorting, create a copy
 of the list, which is wrong when useIndex is on,
 as the application will get the index in the sorted
 list, which is probably different from tha apps list mode.
 When true (should be default, but that might break many
 users), the passed in list is sorted in place (i.e. possibly
 sorting the application's list)."
 sortListInPlace := aBoolean.
 !
 tabIntern
 "returns true if tabing is supported in the widget"
 ^ tabIntern
 !
 tabIntern:aBool
 "returns true if tabing is supported in the widget"
 tabIntern := aBool ? true
 !
 updateListHolderWhenSorting
 "return true if the the listHolder's value are be updated,
 when I sort a list.
 By default, this is false so it must be set explicitly
 (for bug-backward compatibility,
 and to avoid introducing new side effects)."
 ^ updateListHolderWhenSorting
 !
 updateListHolderWhenSorting:aBoolean
 "define if the the listHolder's value should be updated,
 when I sort a list.
 !
 useIndex
 "specify, if the selected components value or its index in the
 list should be sent to the model. The default is its index."
 ^ useIndex
 !
 useIndex:aBool
 "specify, if the selected components value or its index in the
 list should be sent to the model. The default is its index."
 useIndex := aBool
 ! !
 !DSVColumnView methodsFor:'accessing-channels'!
 !DSVColumnView methodsFor:'accessing-color & font'!
 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 onDevice:device.
 self invalidate
 ]
 !
 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 onDevice:device.
 self invalidate
 ] ifFalse:[
 ]
 !
 labelBackgroundColor
 "get the background color of the label row"
 ^ labelBgColor ? bgColor
 !
 labelForegroundColor
 "get the foreground color of the label row"
 ^ labelFgColor ? fgColor
 !
 selectionBackgroundColor
 "returns the background color of a selected row"
 self hasFocus ifTrue:[
 ^ selectionBackgroundColor
 ].
 ^ selectionBackgroundColorNoFocus.
 !
 "Created: / 20-01-2011 / 08:45:08 / cg"
 !
 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
 !
 separatorOneDColor
 "returns the color used for drawing a oneD separator"
 separatorOneDColor isNil ifTrue:[
 ^ fgColor
 ].
 ^ separatorOneDColor
 !
 separatorOneDColor:aColorOrNil
 "set the color used for drawing a oneD separator; if the color
 is nil, the current forgroundColor is used"
 separatorOneDColor = aColorOrNil ifTrue:[
 ^ self
 ].
 separatorOneDColor := aColorOrNil.
 self realized ifTrue:[
 !DSVColumnView methodsFor:'accessing-columns'!
 columnAt:anIndex
 <resource: #obsolete>
 "returns the column at an index"
 self obsoleteMethodWarning:'use columnDescriptorAt:'.
 ^ self columnDescriptorAt:anIndex
 !
 columnDescriptorAt:anIndex
 "returns the columnDescriptor at an index"
 ^ columnDescriptors at:anIndex ifAbsent:nil
 !
 columnDescriptors
 "returns list of column descriptors"
 ^ columnDescriptors collect:[:aCol | aCol description ]
 !
 columnDescriptors:aColumnDescriptionList
 "set the columnDescriptors;
 scroll to top and deselect"
 self columnDescriptors:aColumnDescriptionList deselect:true scrollToTop:true
 "Modified: / 13-09-2017 / 15:05:05 / cg"
 !
 columnDescriptors:aColumnDescriptionList deselect:deselect scrollToTop:scrollToTop
 "set the columnDescriptors;
 if deselect is true, then deselect;
 if scrollToTop is true, then scroll to top;
 otherwise, take the current selection and try to make it visible"
 |delta indexOfFirstRow|
 deselect ifTrue:[
 self deselect.
 ].
 (viewOrigin x ~~ 0 or:[ viewOrigin y ~~ 0 ]) ifTrue:[
 scrollToTop ifTrue:[
 delta := viewOrigin negated.
 viewOrigin := 0 @ 0.
 self originChanged:delta
 ] ifFalse:[
 indexOfFirstRow := self yVisibleToRowNr:0.
 ].
 ].
 self setColumnDescriptors:aColumnDescriptionList.
 indexOfFirstRow notNil ifTrue:[
 self scrollToRowAt:indexOfFirstRow colAt:1.
 ].
 "Created: / 13-09-2017 / 15:04:50 / cg"
 !
 columnDescriptors:aColumnDescriptionList scrollToTop:scrollToTop
 "set the columnDescriptors and deselect;
 if scrollToTop is true, then scroll to top;
 otherwise, take the current selection and try to make it visible"
 self columnDescriptors:aColumnDescriptionList deselect:true scrollToTop:scrollToTop
 "Created: / 13-09-2017 / 15:03:15 / cg"
 !
 dataSetColumns
 "returns the list of DataSetColumns; each column represents a DataSetColumnSpec"
 ^ columnDescriptors
 !
 firstColumn
 "returns the first column"
 ^ columnDescriptors at:1
 !
 lastColumn
 "returns the last column"
 ^ columnDescriptors last
 !
 setColumnDescriptors:aColumnDescriptionList
 "set the columnDescriptors; don't deselect and do not scroll to top"
 |cid|
 cid := 0.
 aColumnDescriptionList isEmptyOrNil ifTrue:[
 columnDescriptors := OrderedCollection new.
 ] ifFalse:[
 columnDescriptors := aColumnDescriptionList
 collect:
 [:el||dsc lbl|
 dsc := el isSequenceable
 ifTrue:[DataSetColumnSpec decodeFromLiteralArray:el]
 ifFalse:[el].
 cid := cid + 1.
 lbl := DataSetLabel new description:dsc builder:builder on:labelView.
 DataSetColumn new on:self description:dsc columnNumber:cid label:lbl
 ^ checkToggleActiveImage
 !
 checkToggleExtent
 "returns the extent of a checkToggle"
 ^ checkToggleExtent
 !
 checkToggleForm
 "returns the form of a checkToggle"
 ^ checkToggleForm
 !
 checkToggleLevel
 "returns the level of a checkToggle button"
 ^ checkToggleLevel
 !
 checkTogglePassiveImage
 ^ checkTogglePassiveImage
 !
 comboButtonExtent
 "returns the extent of a comboList or -Box"
 ^ comboButtonExtent
 !
 comboButtonForm
 "returns the form of a comboList or -Box"
 ^ comboButtonForm
 !
 comboButtonLevel
 "returns the level of a comboList or -Box button"
 ^ comboButtonLevel
 !
 radioButtonExtent
 "returns the extent of a radio button"
 ^ radioButtonActiveImage extent
 !
 rowSelectorExtent
 "returns the bitmap of a selected row"
 ^ rowSelectorForm extent
 !
 rowSelectorForm
 "returns the (arrow-) image shown for a selected row.
 (the arrow shown in the first column)"
 ^ rowSelectorForm
 ! !
 !DSVColumnView methodsFor:'accessing-mvc'!
 columnAdaptor
 "return the value of the instance variable 'columnAdaptor' (automatically generated)"
 columnAdaptor isValueModel ifTrue:[
 ^ columnAdaptor value
 ].
 ^ columnAdaptor
 !
 ].
 !
 columnHolder
 "get the valueHolder, which keeps the list of column descriptions"
 ^ columnHolder
 !
 columnHolder:aValueHolder
 "set the valueHolder, which keeps the list of column descriptions"
 |columns|
 columnHolder notNil ifTrue:[
 columnHolder removeDependent:self
 ].
 self columnDescriptors:columns
 ]
 ].
 !
 listAt:index put:newElement
 "kludge callback, when an element hs to be replaced
 due to a col-adaptor returning a new row element"
 |list|
 (list := listHolder value) notNil ifTrue:[
 list at:index put:newElement
 ]
 !
 listHolder
 "get the valueHolder which holds the list of rows"
 ^ listHolder
 !
 listHolder:aListHolder
 "set the valueHolder which holds the list of rows"
 listHolder ~~ aListHolder ifTrue:[
 listHolder notNil ifTrue:[
 listHolder removeDependent:self
 ].
 (listHolder := aListHolder) notNil ifTrue:[
 ]
 ].
 self pushEvent:#list: with:(listHolder value).
 !
 model:aModel
 "set the valueHolder which holds the selection and maybe the list of rows"
 model notNil ifTrue:[
 model removeDependent:self.
 (model respondsTo:#list) ifTrue:[
 (model list == listHolder) ifTrue:[
 self listHolder:nil
 ^ row
 "Modified: / 22-01-2011 / 09:14:48 / cg"
 !
 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:list size) ifTrue:[
 ^ self at:aRowNr
 ].
 ^ exceptionBlock value
 !
 at:aRowNr put:aRow
 "change the row at an index. The added row is returned"
 lockRowIndex ~~ aRowNr ifTrue:[
 (aRowNr <= list size and:[ (list at:aRowNr) == aRow ]) ifTrue:[
 self invalidateRowAt:aRowNr
 ] ifFalse:[
 self
 replaceFrom:aRowNr
 to:aRowNr
 with:(Array with:aRow)
 startingAt:1.
 ]
 ^ aRow
 !
 first
 "return the first row"
 ^ self at:1
 !
 identityIndexOfRow:aRow
 "returns index of a row or 0"
 (list size ~~ 0 and:[ aRow notNil ]) ifTrue:[
 ^ list identityIndexOf:aRow
 ].
 ^ 0
 !
 last
 "return the last row"
 ^ self at:(list size)
 !
 list
 "get the list of rows"
 ^ list
 !
 list:aRawList
 "set the list of rows"
 selectedRowIndex := multipleSelectOk ifTrue:[nil] ifFalse:[0].
 shown ifFalse:[
 cachedPreferredExtent := nil
 ] ifTrue:[
 aRawList size == 0 ifTrue:[
 "/ keep old column-width information
 ] ifFalse:[
 columnDescriptors notNil ifTrue:[
 columnDescriptors do:[:aCol| aCol invalidate ].
 ].
 labelView reverseSort ifTrue:[
 newList reverse.
 ].
 ].
 list := newList.
 sortListInPlace ifFalse:[
 listHolder notNil ifTrue:[
 updateListHolderWhenSorting ifTrue:[
 listHolder value:newList withoutNotifying:self.
 ].
 ].
 ].
 beDependentOfRows ifTrue:[
 self makeDependentOfRows
 ].
 ].
 "Modified: / 08-11-2010 / 22:07:49 / cg"
 ! !
 !DSVColumnView methodsFor:'accessing-visibility'!
 font:aFont
 "set the font for all shown rows."
 |newGCFont|
 (aFont isNil or:[aFont = self font]) ifTrue:[
 ^ self
 ].
 columnDescriptors isEmptyOrNil ifTrue:[
 super font:aFont.
 self labelView font:aFont.
 rowFontAscent := self font ascent.
 rowHeight     := verticalSpacing + (self font height) + verticalSpacing + separatorSize.
 ].
 ].
 ].
 super font:newGCFont.
 rowFontAscent := self font ascent.
 rowHeight     := verticalSpacing + self font height + verticalSpacing + separatorSize.
 minRowHeight  := rowHeight.
 columnDescriptors do:[:eachColumn| eachColumn invalidate].
 "Modified (format): / 13-09-2017 / 15:34:22 / cg"
 !
 has3Dseparators
 "returns true if shown in 3D mode"
 ^ separatorSize ~~ 1
 !
 has3Dseparators:aBool
 "enable or disable 3D mode"
 |newSepSize|
 newSepSize := aBool ifTrue:[2] ifFalse:[1].
 newSepSize ~~ separatorSize ifTrue:[
 separatorSize := newSepSize.
 realized ifTrue:[
 columnDescriptors do:[:aCol |
 aCol invalidate
 ].
 self preferredExtentChanged.
 self invalidate.
 self contentsChanged
 ]
 !
 horizontalSpacing
 "horizontal spacing used by columns"
 ^ horizontalSpacing
 !
 horizontalSpacing:aNumber
 "horizontal spacing used by columns"
 horizontalSpacing ~~ aNumber ifTrue:[
 horizontalSpacing := aNumber.
 self preferredExtentChanged.
 ].
 !
 showLabels
 "control the labels view to be visible or unvisible"
 ^ labelView isVisible
 !
 showLabels:aBoolean
 "control the labels view to be visible or unvisible"
 labelView isVisible:aBoolean
 "Modified (format): / 04-02-2017 / 21:31:43 / cg"
 !
 verticalSpacing
 "vertical spacing used by columns"
 ^ verticalSpacing
 !
 verticalSpacing:aNumber
 "vertical spacing used by columns"
 verticalSpacing ~~ aNumber ifTrue:[
 verticalSpacing := aNumber.
 self preferredExtentChanged.
 ].
 ! !
 !DSVColumnView methodsFor:'adding & removing rows'!
 add:aRow
 "insert row at end"
 ^ self add:aRow beforeIndex:(1 + list size)
 !
 add:aRow afterIndex:aRowNr
 "add a new row after slot aRowNr and redisplay; returns nil in case
 of an invalid index or the row"
 ^ self add:aRow beforeIndex:(aRowNr + 1)
 !
 add:aRow beforeIndex:aRowNr
 "add a new row before slot aRowNr and redisplay; returns nil in case
 of an invalid index or the row"
 self addAll:(Array with:aRow) beforeIndex:aRowNr.
 ^ aRow.
 !
 addAll:aList beforeIndex:start
 (y1 > margin and:[y0 < h]) ifTrue:[
 "/ cg: if I have a non-solid background color,
 "/ or individual items have a bgColor selector,
 "/ invalidate the area (and readraw) instead of a scroll.
 (viewBackground isImageOrForm
 or:[ self anyColumnHasPotentialNonConstantBackground ])
 ifTrue:[
 "/ do not scroll but invalidate ...
 self invalidateX:margin y:y0 width:width - margin - margin height:(height - y0).
 ] ifFalse:[
 (scrollWhenUpdating == #end or:[scrollWhenUpdating == #endOfText]) ifTrue:[
 self scrollToBottom.
 ].
 !
 addFirst:aRow
 "insert a row at start"
 ^ self add:aRow beforeIndex:1
 !
 remove:aRow
 "remove a row"
 |idx|
 idx := list identityIndexOf:aRow.
 idx ~~ 0 ifTrue:[
 self removeFrom:idx to:idx.
 ^ aRow
 !
 removeFirst
 "remove first row; returns the removed row"
 ^ self removeIndex:1
 !
 removeFrom:startIndex to:stopIndex
 "remove rows from start to stop"
 (noRedraw := y1 <= oY) ifFalse:[dY := y0 - oY]
 ifTrue:[dY := dY negated].
 self originWillChange.
 viewOrigin := viewOrigin x @ (dY + oY).
 "/ viewOrigin y:(dY + oY).
 self originChanged:(0 @ dY).
 ] ifFalse:[
 noRedraw := y0 > (height + viewOrigin y)
 ].
 (shown not or:[self sensor hasDamageFor:self]) ifTrue:[
 y0 := y0 max:margin.
 "/ cg: if I have a non-solid background color,
 "/ or individual items have a bgColor selector,
 "/ invalidate the area (and readraw) instead of a scroll.
 (viewBackground isImageOrForm
 or:[ self anyColumnHasPotentialNonConstantBackground ])
 ifTrue:[
 "/ do not scroll but invalidate ...
 ] ifFalse:[
 y1 := yB.
 self invalidateX:margin y:y0 width:width - margin - margin height:(height - y0).
 ].
 self contentsChanged.
 !
 removeIndex:aRowNr
 "remove row at an index; returns the removed row"
 |row|
 row := list at:aRowNr ifAbsent:nil.
 self removeFrom:aRowNr to:aRowNr.
 ^ row
 !
 removeLast
 "remove last row; the row is returned"
 ^ self removeIndex:(list size)
 !
 replaceFrom:start to:stop with:aCollection startingAt:repStart
 "replace elements in the receiver between index start and stop,
 [listSize < stop] whileTrue:[ list add:nil. listSize := listSize + 1 ].
 start to:stop do:[:i| |aRow|
 aRow := list at:i ifAbsent:nil.
 aRow notNil ifTrue:[
 beDependentOfRows ifTrue:[aRow removeDependent:self].
 (self isInSelection:i) ifTrue:[
 inSelList add:i
 aColumn setDescWidth:(aColumn width + aDeltaX).
 cachedPreferredExtent notNil ifTrue:[self fitColumns]
 !
 update:what with:aPara from:chgObj
 "one of my rows/cells changed its value"
 |row listHoldersList arg1 arg2 col|
 chgObj == columnHolder ifTrue:[
 cachedPreferredExtent := nil.
 self columnDescriptors:(columnHolder value).
 ^ self.
 ].
 chgObj == columnAdaptor ifTrue:[
 col := columnAdaptor value.
 columnDescriptors do:[:aCol |
 aCol columnAdaptor:col
 ].
 self invalidate.
 ^ self
 ].
 ^ self
 ].
 chgObj == model ifTrue:[
 (what == #selectionIndex or:[ what == #selection ]) ifTrue:[
 self selectRowIndex:(model selectionIndex copy).
 ^ self.
 ].
 what == #list ifTrue:[
 cachedPreferredExtent := nil.
 self listHolder:model list.
 ^ self.
 ].
 what == #value ifTrue:[
 model == listHolder ifTrue:[
 cachedPreferredExtent := nil.
 self list:(listHolder value)
 (chgObj == listHolder) ifTrue:[
 cachedPreferredExtent := nil.
 listHoldersList := listHolder value.
 what == #value ifTrue:[
 self list:listHoldersList.
 ^ self.
 ].
 aPara isCollection ifTrue:[
 arg1 := aPara at:1.
 arg2 := aPara at:2.
 ] ifFalse:[
 arg1 := arg2 := aPara
 ].
 what == #at: ifTrue:[
 self at:arg1 put:(listHoldersList at:arg1).
 ^ self.
 ].
 what == #insert: ifTrue:[
 self add:(listHoldersList at:arg1) beforeIndex:arg1.
 ^ self.
 ].
 what == #remove: ifTrue:[
 self removeFrom:arg1 to:arg1.
 ^ self.
 ].
 what == #removeFrom: ifTrue:[
 listHoldersList size == 0 ifTrue:[
 self list:nil
 beforeIndex:arg1
 ].
 ^ self.
 ].
 what == #replace: ifTrue:[
 self
 replaceFrom:arg1 to:arg2
 with:listHoldersList startingAt:arg1.
 ^ self
 ].
 self list:listHoldersList.
 "/ just in case someone nilled or changed the editValue
 "/ Q: is this CA's paranoia or could this really be done in the at:put: above ???
 "/ A (sv): it me happen, if the set method specified in the column descriptor did not set the
 "/         model.
 (editValueBefore == editValue) ifTrue:[
 editValue value:realValue withoutNotifying:self.
 ].
 ].
 modifiedChannel notNil ifTrue:[
 modifiedChannel value:true.
 ].
 !
 updateEditorFromChangedRow
 |rowsValue rowNr|
 rowNr := rowNr first.
 ].
 rowsValue := (self columnDescriptorAt:self selectedColIndex) at:rowNr.
 (editValue notNil and:[ editValue value ~= rowsValue ]) ifTrue:[
 editValue value:rowsValue withoutNotifying:self.
 editView
 withAllSubViewsDo:[:v |
 v isInputField ifTrue:[
 v flash.
 ]
 ]
 ].
 !DSVColumnView methodsFor:'drag & drop'!
 canDrag
 "returns true if dragging is enabled"
 ^ dropSource notNil
 !
 canStartDragAt:aPoint clickedAt:clickPoint
 self canDrag ifFalse:[
 (absLnNr > 1 and:[absLnNr < self size]) ifFalse:[
 ^ false
 ].
 aContext contentsWillChange.
 y > yInset
 ifTrue:[self scrollDown:rowHeight]
 ifFalse:[self scrollUp:rowHeight].
 ^ true
 !
 dropSource
 "returns the dropSource or nil"
 ^ dropSource
 !
 dropSource:aDropSourceOrNil
 "set the dropSource or nil"
 dropSource := aDropSourceOrNil.
 !
 startDragAt:aPoint
 ]
 ! !
 !DSVColumnView methodsFor:'drawing'!
 colorOnDevice:aColor
 "returns color on device"
 |col|
 aColor = Color noColor ifFalse:[
 col := colorMap at:aColor ifAbsent:nil.
 col isNil ifTrue:[
 ^ bgColor
 !
 forceRedraw
 "a redraw forced by any other component"
 shown ifTrue:[
 self invalidate
 ]
 !
 invalidate
 "recompute extent before repair range"
 self recomputeHeightOfContents.
 super invalidate.
 !
 invalidateRowAt:aRowNr
 "redraw total row at an index"
 self invalidateRowAt:aRowNr colAt:0
 !
 invalidateRowAt:aRowNr colAt:aColNr
 "redraw either a single column in a row,
 invalidateSelection
 "invalidate (force async redraw) the current selection"
 |colIndex|
 shown ifTrue:[
 colIndex := self selectedColIndex ? 0.
 self selectionIndicesDo:[:aRowIndex|
 self invalidateRowAt:aRowIndex colAt:colIndex.
 ].
 ]
 !
 invalidateVisibleRow:aRow
 "redraw row if visible"
 self invalidateVisibleRow:aRow colAt:0
 !
 invalidateVisibleRow:aRow colAt:aColNr
 "redraw either a single column in a row,
 idx := 0
 ] ifFalse:[
 (row := aRow) isNumber ifTrue:[
 (row := self at:aRow) isNil ifTrue:[ ^ self ]
 ].
 idx := columnDescriptors
 findFirst:[:aCol| aCol description readSelector == aSelector]
 ].
 self invalidateVisibleRow:aRow colAt:idx
 !
 columnDescriptors isEmpty ifTrue:[
 ^ gc fillRectangleX:x y:y width:w height:h
 ].
 size  := list size.
 yTop  := margin - viewOrigin y.
 c0    := y - yTop max:0.
 start := (c0 // rowHeight) + 1.
 stop  := (((c0 + h - 1) // rowHeight) + 1) min:size.
 stop < start ifTrue:[
 (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.
 self clippingBounds:nil.
 self clippingBounds:rect.
 aCol redrawX:x0 y:yTop h:clHg  from:start to:stop.
 ].
 x0 := x1
 gc paint:lineColor.
 gc displayLineFromX:x y:yVis toX:width y:yVis.
 yVis := yVis+rowHeight -1.
 gc displayLineFromX:x y:yVis toX:width y:yVis.
 ].
 ].
 "Modified: / 21-01-2011 / 15:58:11 / cg"
 ! !
 !DSVColumnView methodsFor:'drawing interactors'!
 h > minRowHeight ifTrue:[
 minRowHeight := h.
 cachedPreferredExtent notNil ifTrue:[
 "/                    rowHeight := (minRowHeight + separatorSize + verticalSpacing + verticalSpacing + 1) // 2 * 2.
 cachedPreferredExtent := Point
 x: cachedPreferredExtent x
 y: (list size * rowHeight).
 self contentsChanged.
 ].
 self class stopRedrawSignal raiseRequest.
 ^ self
 ].
 gc paint:fgColor on:bgColor.
 form := checkToggleForm
 ] ifFalse:[
 form := state
 ifTrue:[checkToggleActiveImage]
 ifFalse:[checkTogglePassiveImage].
 ].
 e := (checkToggleExtent - form extent) // 2.
 gc displayForm:form x:(x + e x) y:(y + e y).
 self drawEdgesAtX:x   y:y width:w height:h level:comboButtonLevel on:self.
 gc paint:fgColor on:bgColor.
 gc displayForm:comboButtonForm x:(x + e x) y:(y + e y)
 !
 drawEdgesAtX:x y:y width:w height:h level:aLevel on:aGC
 "draw edges for a cell or label"
 aGC
 drawEdgesForX:x
 y:y
 width:w
 height:h
 level:aLevel
 h := radioButtonActiveImage extent y.
 y := yTop + ((rowHeight - h) // 2).
 x := xLeft + ((cellWidth - w) // 2).
 h odd ifTrue:[y := y + 1].
 image := (aBooleanOrNil == true)
 ifTrue:[radioButtonActiveImage]
 ifFalse:[radioButtonPassiveImage].
 image := image onDevice:device.
 !DSVColumnView methodsFor:'enumerating columns'!
 columnsDo:aOneArgBlock
 "evaluate the argument, aOneArgBlock for every columnDescriptor"
 columnDescriptors do:aOneArgBlock
 !
 columnsFrom:start to:stop do:aOneArgBlock
 "evaluate the argument, aOneArgBlock for the columns with index start to
 stop in the collection of column descriptors"
 columnDescriptors
 from:start
 to:stop
 do:aOneArgBlock
 ! !
 prvRow := aRowNr.
 chgSet := IdentitySet new.
 doAdd  := isSelected not.
 buttonMotionAction := [:p|
 |rowNr mustRestore step f|
 rowNr := self yVisibleToRowNr:(p y).
 (rowNr notNil and:[rowNr ~~ prvRow]) ifTrue:[
 rowNr == aRowNr ifTrue:[
 ].
 "Modified: / 21-07-2007 / 22:00:27 / cg"
 !
 buttonMotion:buttonMask x:x y:y
 "mouse-move while button was pressed - handle multiple selection changes"
 self isEnabled ifFalse:[
 ^ self
 ].
 buttonMotionAction notNil ifTrue:[
 rowNr := self yVisibleToRowNr:y.
 colNr := self xVisibleToColNr:x.
 (button == 2) ifTrue:[ |openMenu|
 openMenu := false.
 UserPreferences current selectOnRightClick ifFalse:[
 openMenu := true.
 ] ifTrue:[
 UserPreferences current showRightButtonMenuOnRelease ifFalse:[
 (rowNr notNil and:[colNr notNil and:[self isRowSelectable:rowNr]]) ifTrue:[
 openMenu := true.
 ].
 ].
 openMenu ifTrue:[ |menu|
 menu := self findMenuForSelection.
 menu notNil ifTrue:[
 self startUpMenu:menu.
 ] ifFalse:[
 super buttonPress:button x:x y:y.
 ].
 ^ self
 ].
 ].
 (rowNr isNil or:[colNr isNil]) ifTrue:[
 self deselect.
 super buttonPress:button x:x y:y.
 ^ self
 ].
 ^ self
 ].
 self selectRowAt:rowNr colAt:colNr atPoint:clickPoint openEditor:false.
 ((button == 2) and:[UserPreferences current selectOnRightClick]) ifTrue:[
 self selectRowAt:rowNr colAt:colNr atPoint:clickPoint openEditor:true
 ] ifFalse:[
 buttonReleaseAction :=
 [
 self selectRowAt:rowNr colAt:colNr atPoint:clickPoint openEditor:true
 ].
 buttonMotionAction :=
 [:aPoint|
 (self canStartDragAt:aPoint clickedAt:clickPoint) ifTrue:[
 self startDragAt:aPoint
 ]
 ].
 ].
 ^ self
 ].
 ((button == 2) and:[UserPreferences current selectOnRightClick]) ifFalse:[
 buttonReleaseAction :=
 [
 self selectRowAt:rowNr colAt:colNr atPoint:clickPoint openEditor:true.
 ].
 "/ normally, we select on button release; however, any editor is shown immediately
 ((column := self columnDescriptorAt:colNr) notNil
 and:[ (columnEditorType := column description editorType) notNil
 and:[ columnEditorType ~~ #None ]]) ifTrue:[
 buttonReleaseAction value.
 buttonReleaseAction := nil.
 editView notNil ifTrue:[
 ]
 ]
 ].
 clickedIntoSelection := self isInSelection:rowNr.
 clickedIntoSelection ifTrue:[
 |selColIdx|
 selColIdx := self selectedColIndex.
 (selColIdx ~~ 0 and:[selColIdx ~~ colNr]) ifTrue:[
 clickedIntoSelection ifFalse:[
 self selectRowAt:rowNr colAt:colNr atPoint:clickPoint openEditor:false.
 ] ifTrue:[
 self canDrag ifTrue:[
 buttonMotionAction :=
 [:aPoint|
 (self canStartDragAt:aPoint clickedAt:clickPoint) ifTrue:[
 self startDragAt:aPoint
 ]
 ].
 ^ self
 ]
 ].
 buttonMotionAction := [:p|
 (self bounds containsPoint:p) ifTrue:[
 |rowUnderPoint|
 rowUnderPoint := self yVisibleToRowNr:(p y).
 rowUnderPoint notNil ifTrue:[
 buttonReleaseAction notNil ifTrue:[
 rowUnderPoint == rowNr ifFalse:[
 buttonReleaseAction := nil
 ].
 ].
 buttonReleaseAction isNil ifTrue:[
 self selectRowFrom:rowNr to:rowUnderPoint.
 |colNr rowNr lsize found column|
 lsize  := list size.
 "/    (rowIfAbsentBlock notNil
 "/     or:[x isNil
 "/     or:[(colNr := self xVisibleToColNr:x) isNil]]) ifTrue:[
 "/        ^ self
 "/    ].
 colNr := self findFirstColumnWithStringFrom:1 to:lsize.
 "Modified: / 21.5.1998 / 03:30:22 / cg"
 !
 contentsChanged
 "size of contents changed - move origin up if possible"
 |y|
 shown ifTrue:[
 self recomputeHeightOfContents.
 y := self maxViewOriginY.
 self selectColIndex:selColNr rowIndex:selRowNr
 !
 doubleClicked
 "handle a double click"
 |col sel idx|
 self hasSelection ifTrue:[
 idx := self firstIndexSelected.
 col := self selectedColumn.
 ]
 !
 findMenuForSelection
 "find the middle button menu for the current selection; returns the menu or nil"
 |col row menu|
 self numberOfSelections == 1 ifTrue:[
 row := self at:(self firstIndexSelected).
 col := self selectedColumn.
 col notNil ifTrue:[
 menu := col menuForRow:row orAdaptor:columnAdaptor.
 menu notNil ifTrue:[ ^ menu ].
 ].
 col := columnDescriptors
 detect:[:c | c rendererType == #rowSelector ]
 ifNone:[ nil ].
 col notNil ifTrue:[
 ^ col menuForRow:row inApplication:(self application)
 ]
 <resource: #keyboard (#PreviousPage #NextPage #HalfPageUp #HalfPageDown
 #BeginOfText #EndOfText #ScrollUp #ScrollDown
 #CursorUp #CursorDown #CursorRight #CursorLeft #SelectAll)>
 |maxColNr firstSelRowNr selRowNr selColNr
 key column isTab listSize hasSelectables rawKey|
 self isEnabled ifFalse:[^ self].
 (listSize := list size) == 0 ifTrue:[
 ^ self characterPress:aKey x:x y:y
 ].
 (aKey == #SelectAll) ifTrue:[
 multipleSelectOk ifTrue:[
 self selectAllRows.
 ].
 ^ self
 ].
 aKey == #PreviousPage ifTrue:[^ self pageUp].
 aKey == #NextPage     ifTrue:[^ self pageDown].
 aKey == #HalfPageUp   ifTrue:[^ self halfPageUp].
 aKey == #HalfPageDown ifTrue:[^ self halfPageDown].
 aKey == #BeginOfText  ifTrue:[^ self scrollToTop].
 aKey == #EndOfText    ifTrue:[^ self scrollToBottom].
 aKey == #ScrollUp     ifTrue:[^ self scrollUp].
 aKey == #ScrollDown   ifTrue:[^ self scrollDown].
 aKey == #Return ifTrue:[
 editView notNil ifTrue:[
 (self selectedRowIndex size == 1
 and:[self selectedRowIndex first == listSize]) ifTrue:[
 self selectRowIndex:nil.
 ] ifFalse:[
 hasSelectables := self hasSelectables.
 rawKey := (WindowGroup lastEventQuerySignal query) rawKey.
 (aKey == #CursorUp
 or:[aKey == #CursorDown
 or:[rawKey == #Home
 or:[rawKey == #End]]])
 ifTrue:[
 self cursorKey:aKey rawKey:rawKey.
 ^ self
 ].
 tabIntern ifFalse:[
 ^ super keyPress:aKey x:x y:y
 ].
 (aKey includesString:'Tab') ifTrue:[
 key := (aKey = #BackTab or:[self sensor shiftDown or:[aKey includesString:'Left']])
 ifTrue:[#CursorLeft]
 ifFalse:[#CursorRight]
 ] ifFalse:[
 (aKey == #FocusPrevious or:[aKey == #FocusNext]) ifFalse:[
 ^ super keyPress:aKey x:x y:y
 ].
 self font:(font asSize:newSize).
 !
 originChanged:delta
 "this one is sent, after the origin of my contents has changed -
 tell dependents (i.e. scrollers) about this"
 super originChanged:delta.
 self updateEditViewOrigin.
 !
 sizeChanged:how
 previousExtent := self extent.
 "/ no - must compute even if not visible.
 "/ (could be invisible in a notebook ...)
 realized ifTrue:[                   "used to be: shown"
 "/        labelView isVisible ifTrue:[
 "/            lyt := labelView layout.
 "/            lyt  leftOffset:(layout leftOffset).
 "/            lyt rightOffset:(layout rightOffset).
 "/            labelView layout:lyt.
 "Modified: / 08-08-2010 / 14:41:00 / cg"
 ! !
 !DSVColumnView methodsFor:'gc operations'!
 imageOnMyDevice:anImage
 "associate image to device and returns the new image."
 anImage isNil ifTrue:[^ nil].
 ^ anImage onDevice:device.
 !
 registerImage:anImage key:aKey
 "any row can register an image with a unique identifier a key symbol"
 |img|
 (img := registererImages at:aKey ifAbsent:nil) notNil ifTrue:[
 ^ img
 ].
 img := self imageOnMyDevice:anImage.
 registererImages at:aKey put:img.
 ^ img
 !
 registeredImageAt:aKey
 "any row can register an image with a unique identifier"
 ^ registererImages at:aKey ifAbsent:nil
 !
 releaseAllRegisteredImages
 "release all registered images"
 registererImages := IdentityDictionary new.
 ! !
 !DSVColumnView methodsFor:'help'!
 ].
 ].
 ].
 selectionFrameColorNoFocus isNil ifTrue:[
 selectionFrameColor notNil ifTrue:[
 selectionFrameColorNoFocus := selectionFrameColor lightened.
 "/ selectionFrameColorNoFocus := Color brightness:(selectionFrameColor "lightened" brightness).   "/ asGray
 ]
 ].
 rowSelectorForm         := self class rowSelectorImage.
 rowFontAscent      := fontOnDevice ascent.
 rowHeight          := verticalSpacing + (fontOnDevice height) + verticalSpacing + separatorSize.
 minRowHeight       := rowHeight.
 multipleSelectOk   := false.                        "/ multiselect disabled
 selectedRowIndex   := 0.                            "/ no selection
 self selectedColIndex:0.
 registererImages   := Dictionary new.
 columnDescriptors  := #().
 beDependentOfRows  := false.
 colorMap           := Dictionary new.
 catchChangeEvents  := false.
 selectRowOnDefault := true.
 autoScroll         := true.
 autoScrollToColumn := true.
 scrollRowWise      := false.
 sortListInPlace    := false.    "/ when false (default for backward compatibility):
 "/ if sorting, create a copy
 "/ of the list, which is wrong when useIndex is on,
 "/ as the application will get the index in the sorted
 "/ list, which is probably different from tha apps list mode.
 "/ When true (should be default, but that might break many
 "/ users), the passed in list is sorted in place (i.e. possibly
 "/ sorting the application's list).
 updateListHolderWhenSorting := false.
 "/ when false (default for backward compatibility):
 "/ if sorting, do not write back the sorted list into the listHolder
 "/ When true (should be default, but that might break many
 "/ users), the sorted list is written back into the listHolder,
 "/ but only if sortListInPlace is false.
 "Modified: / 13-09-2017 / 16:08:34 / cg"
 !
 mapped
 "set selection (if any) after mapping"
 |idx|
 super mapped.
 needFitColumns == true ifTrue:[
 self fitColumns
 ].
 !
 realize
 "recompute contents and fit columns to view"
 |selection|
 self bitGravity:#NorthWest.
 self recomputeHeightOfContents.
 selection := 0.
 self fitColumns.
 !
 release
 "remove dependencies"
 self columnHolder:nil.
 beDependentOfRows ifTrue:[self makeIndependentOfRows].
 listHolder notNil ifTrue:[
 listHolder removeDependent:self.
 ^ self has3Dseparators
 !
 has3Dsepartors:aBool
 <resource: #obsolete>
 "shouldn't be used any more"
 self obsoleteMethodWarning.
 self has3Dseparators:aBool
 ! !
 !DSVColumnView methodsFor:'private'!
 winGroup focusView:focusView.
 ]
 ].
 !
 detectViewAt:aPoint in:aView
 "returns the view at a point"
 aView isNil ifTrue:[
 ^ nil
 ].
 ^ aView detectViewAt:aPoint.
 !
 fitColumns
 "fit columns to view; "
 |selectedColumn columnsWithRelativeWidth
 overallMinWidth restWidth anyChange oldOrgX newOrgX oldWidth|
 realized ifFalse:[
 needFitColumns := true.
 ^ self
 each setWidth:wEach.
 ].
 ]
 ] ifFalse:[
 anyChange ifTrue:[
-| resizableColumns numberOfResizeable additionalOffsetX |
+| resizableColumns numberOfResizable additionalOffsetX |
 overallMinWidth  := 0.
 resizableColumns := OrderedCollection new.
 columnDescriptors do:[: eachColumn |
 eachColumn canResize ifTrue:[ resizableColumns add: eachColumn ].
 eachColumn width: nil. "force a recomputation of width"
 overallMinWidth := overallMinWidth + eachColumn width.
 ].
-numberOfResizeable := resizableColumns size.
+numberOfResizable := resizableColumns size.
-numberOfResizeable > 0 ifTrue:[
+numberOfResizable > 0 ifTrue:[
 restWidth := self innerWidth - overallMinWidth.
-restWidth > numberOfResizeable ifTrue:[
+restWidth > numberOfResizable ifTrue:[
-additionalOffsetX := restWidth // numberOfResizeable.
+additionalOffsetX := restWidth // numberOfResizable.
 resizableColumns do:[:aCol| aCol growWidth:additionalOffsetX ].
-restWidth := restWidth - (additionalOffsetX * numberOfResizeable).
+restWidth := restWidth - (additionalOffsetX * numberOfResizable).
 ].
 restWidth > 0 ifTrue:[ resizableColumns last growWidth:restWidth ].
 ].
 ].
 ].
 ].
 oldWidth ~= self preferredWidth ifTrue:[
 self contentsChanged.
 ].
 ].
+"Modified (format): / 15-03-2018 / 11:40:25 / mawalch"
 !
 hasSelectables
 columnDescriptors do:[:aCol|
 (aCol rendererType == #rowSelector) ifFalse:[
 ^ false.
 !
 maxViewOriginY
 "returns the maximum possible y of the view origin"
 |y|
 y := self heightOfContents - self innerHeight.
 ^ y max:0
 !
 updateEditViewOrigin
 "update origin of the editView"
 |x y|
 editView notNil ifTrue:[
 y := self yVisibleOfRowNr:(self firstIndexSelected).
 x := self xVisibleOfColNr:self selectedColIndex.
 editView origin:(x @ y + separatorSize).
 ].
 !
 xVisibleOfColNr:aColNr
 "returns visible x assigned to a column number"
 |x
 end "{ Class:SmallInteger }"|
 x := margin - viewOrigin x.
 aColNr > 1 ifTrue:[
 end := aColNr - 1.
 columnDescriptors
 from:1
 to:end
 do:[:aCol | x := x + aCol width ]
 ].
 ^ x
 !
 xVisibleToColNr:x
 "returns the column number for a physical x position.
 Returns nil if x is beyond the last column."
 |x0|
 x0 := x + viewOrigin x - margin.
 columnDescriptors keysAndValuesDo:[:index :aCol |
 x0 := x0 - aCol width.
 x0 <= 0 ifTrue:[ ^ index ].
 ].
 ^ nil.
 "Modified: / 26-03-2007 / 15:22:01 / cg"
 !
 yVisibleOfRowNr:aRowNr
 "returns visible y assigned to the row number"
 ^ (aRowNr - 1) * rowHeight + margin - viewOrigin y
 !
 yVisibleToRowNr:y
 "returns the row number assigned to a physical y or nil"
 |rowNr|
 rowNr := (y + viewOrigin y - margin) // rowHeight + 1.
 (rowNr between:1 and:(list size)) ifTrue:[
 ^ rowNr
 ^ editView notNil
 !
 indexOfFirstRowShown
 "returns the index of the first shown row"
 |idx|
 idx := (viewOrigin y // rowHeight) + 1.
 ^ (idx max:1)
 !
 indexOfLastRowShown
 "returns the index of the last shown row"
 |idx|
 idx := (viewOrigin y + height - 1 // rowHeight) + 1.
 ^ (idx min:list size)
 !
 isEnabled
 ^ enableChannel value ~~ false
 !
 isRowSelectable:aRowNumber
 "returne true if a row number is selectable"
 (aRowNumber notNil and:[ aRowNumber ~~ 0 ]) ifTrue:[
 selectConditionBlock isNil ifTrue:[
 ^ true
 ].
 ^ (selectConditionBlock value:aRowNumber)
 ^ false
 !
 numberOfColumns
 "returns number of columns"
 ^ columnDescriptors size
 !
 numberOfRows
-"returns number of raws"
+"returns number of rows"
 ^ list size
+"Modified (comment): / 15-03-2018 / 12:23:01 / mawalch"
 !
 rowHeight
 "get the height of the highest row in pixels"
 ^ rowHeight
 !
 separatorSize
 "returns vertical/horizontal size of a separator dependent on the
 3D effect."
 ^ separatorSize
 !
 size
-"returns number of raws"
+"returns number of rows"
 ^ list size
+"Modified (comment): / 15-03-2018 / 12:24:18 / mawalch"
 !
 yVisibleToLineNr:yVisible
 ^ self yVisibleToRowNr:yVisible.
 ! !
 !DSVColumnView methodsFor:'recomputation'!
 computeRowHeight
 |minHeight|
 minHeight := self font height.
 columnDescriptors do:[:aCol |
 minHeight := (aCol heightOfHighestRow) max:minHeight.
 ].
 "/ to fix a double bug which compensated for not computing things correctly
 "/ (verticalSpacing was always computed as 2 intothe height, even if changed later,
 "/  it was stil in the max-of-col-heights, because minHeight was never reset, but always
 "/  carried on in the minRowHeight)
 minHeight := 2 + minHeight + 2.
 rowHeight := (verticalSpacing + minHeight + verticalSpacing + separatorSize).
 minRowHeight := rowHeight.
 "Created: / 13-09-2017 / 15:32:28 / cg"
 !
 hasPreferredExtent
 "returns true if preferred extent is accumulated"
 ^ cachedPreferredExtent notNil
 !
 preferredExtent
 "return my preferred extent"
 ].
 cachedPreferredExtent notNil ifTrue:[
 ^ cachedPreferredExtent
 ].
 self computeRowHeight.
 prefWidth := (columnDescriptors size - 1) max:0.  "/ for the separators
 columnDescriptors do:[:aCol |
 prefWidth := prefWidth + (aCol minWidth max:5).
 ].
 numRows := list size.
 "/ no need for a separator after the last row.
 "Modified: / 13-09-2017 / 15:53:27 / cg"
 !
 preferredExtentChanged
 "called if the preferred extent changed"
 |x "{ Class:SmallInteger }"
 y "{ Class:SmallInteger }"|
 y := viewOrigin y.
 x := viewOrigin x.
 !DSVColumnView methodsFor:'scroller interface'!
 innerHeight
 "returns the inner height of the contents shown"
 ^ height - margin - margin
 !
 verticalScrollStep
 "return the amount to scroll when stepping up/down (also used for mouseWheel)."
 ^ rowHeight
 !
 viewOrigin
 "return the viewOrigin;
 that's the coordinate of the contents which is shown topLeft in the view."
 ^ viewOrigin
 !
 widthOfContents
 "return the width of the contents in pixels"
 cachedPreferredExtent isNil ifTrue:[
 self preferredExtent
 ].
 ^ cachedPreferredExtent x
 !
 xOriginOfContents
 "return the horizontal origin of the contents in pixels"
 ^ viewOrigin x
 !
 yOriginOfContents
 "return the vertical origin of the contents in pixels"
 ^ viewOrigin y
 ! !
 !DSVColumnView methodsFor:'scrolling'!
 w  := width - dX.
 lMargin := labelView margin.
 dltOrg x < 0 ifTrue:[
 " ->"
 x0 := x := margin.
 self copyFrom:self x:margin y:margin toX:margin+dX y:margin width:innerWT-dX height:innerHG async:false.
 self invalidateX:margin y:margin width:dX height:innerHG.
 labelView notNil ifTrue:[
 labelView copyFrom:labelView x:lMargin y:lMargin toX:lMargin+dX y:lMargin width:labelView innerWidth-dX height:labelView innerHeight async:false.
 self compressMotionEvents:false.
 ].
 timeDelta := 0.5 / (aDistance abs).
 scrollBlock :=
 [
 aSelectorOrBlock isSymbol ifTrue:[
 self perform:aSelectorOrBlock.
 ] ifFalse:[
 aSelectorOrBlock value
 ! !
 !DSVColumnView methodsFor:'searching'!
 findFirstColumnWithStringFrom:start to:stop
 start to:stop do:[:eachNr|
 |row lbl|
 row := self at:eachNr.
 columnDescriptors keysAndValuesDo:[:colNr :col |
 lbl := col shownValueForRow:row rowNr:eachNr.
 lbl isNonByteCollection ifTrue:[
 lbl := lbl isEmpty ifTrue:[nil] ifFalse:[lbl first].
 ].
 aString isEmptyOrNil ifTrue:[
 ^ self
 ].
 stringToMatch := '*', aString, '*'.
 start to:stop by:step do:[:rowNr|
 |row lbl|
 row := self at:rowNr.
 columnDescriptors keysAndValuesDo:[:colNr :col |
 lbl := col shownValueForRow:row rowNr:rowNr.
 lbl isNonByteCollection ifTrue:[
 lbl := lbl isEmpty ifTrue:[nil] ifFalse:[lbl first].
 ].
 ].
 lbl isNumber ifTrue:[
 lbl := lbl printString.
 ].
 (lbl size ~~ 0
 and:[(lbl at:1) isCharacter
 and:[stringToMatch match:lbl caseSensitive:ignoreCase not
 ]]) ifTrue:[
 ^ rowNr
 ]
 ]
 ^ self findFirstRowWithString:aString from:start to:stop by:1 ignoreCase:ignoreCase
 ! !
 !DSVColumnView methodsFor:'selection'!
 addRowToSelection:aRowNr
 "add a row to the selection
 if a column is selected, the column will be closed"
 |newSelection|
 (self isRowSelectable:aRowNr) ifFalse:[
 ^ self
 ].
 ^ 0
 !
 forceAcceptInEditor
 editView notNil ifTrue:[
 editView
 allSubViewsDo:[:aSubView |
 (aSubView respondsTo:#accept) ifTrue:[
 aSubView accept
 ].
 ]
 ]
 !
 hasRowSelection
 "returns true if a selection exists, and its a complete row
 (as opposed to either no selection, or a columnSelection)"
 ^ self hasSelection and:[ self selectedColIndex == 0 ]
 !
 hasSelection
 "returns true if a selection exists"
 ]
 ].
 ^ false
 !
 isRowSelected:aRowNr
 "returns true, if row is in the selection"
 self selectedColIndex == 0 ifTrue:[
 ^ self isInSelection:aRowNr
 ].
 ^ false
 !
 y := self yVisibleOfRowNr:aRowNr.
 y < margin ifTrue:[
 (h := h + y) <= margin ifTrue:[
 ^ false
 ].
 ] ifFalse:[
 y >= (height-margin) ifTrue:[^ false].
 ].
 ^ true
 !
 isSelected:aRowNr inColumn:aColNr
 "returns true if cell in a row; a row number, in a column, a column
 number is selected."
 multipleSelectOk ifFalse:[
 aRowNr ~~ selectedRowIndex ifTrue:[
 ^ false
 ]
 ] ifTrue:[
 ^ selectedRowIndex last
 ].
 ^ 0
 !
 makeLineVisible:aLine
 "scroll to make aLine visible"
 |colNr|
 aLine == 0 ifTrue:[
 ^ self
 ].
 self scrollToRowAt:aLine colAt:colNr
 !
 makeSelectionVisible
 "scroll to make the selection line visible"
 |rowNr colNr|
 rowNr := self firstIndexSelected.
 rowNr == 0 ifTrue:[
 ^ self
 rowIdx isSequenceable ifTrue:[
 rowIdx := rowIdx at:1 ifAbsent:[ ^ self ].
 ].
 editorAndModel := column editorForRowAt:rowIdx.
 editorAndModel isNil ifTrue:[^ self].
 autoScrollToColumn == true ifTrue:[
 self scrollToRowAt:rowIdx colAt:colIdx.
 ].
 editView := SimpleView
 extent:((column width - (2 * separatorSize))
 @ (rowHeight - (2 * separatorSize)))
 in:self.
 self updateEditViewOrigin.
 ] ifFalse:[
 "/ steal TAB, RETURN and Curosr Keys from the editor
 filter := [:aKey | #( #Tab #NonInsertingTab #BackTab #CursorUp #CursorDown #Return ) includes:aKey ]
 ].
 ].
 keyBrdFwd := KeyboardForwarder
 toView:self
 condition:nil
 filter:filter.
 editView
 withAllSubViewsDo:[:aView |
 aView delegate:keyBrdFwd.
 aView font:self font.
 ].
 (editValue := editorAndModel model) notNil ifTrue:[
 processAllExposeEvents
 |sensor|
 sensor := self sensor.
 [
 sensor hasExposeEventFor:nil
 ] whileTrue:[
 self windowGroup processExposeEvents
 ].
 oldCol := self selectedColIndex.
 oldRow := self selectedRowIndex.
 self setSelectColIndex:aColNr rowIndex:aRowNr openEditor:openEditor.
 (oldCol ~~ self selectedColIndex
 or:[oldRow ~= self selectedRowIndex
 or:[ignoreReselect == false]]) ifTrue:[
 self selectionChanged:aColNr
 ].
 !
 ].
 shouldClick ifTrue:[
 "/ simulate clicking into the editor
 self breakPoint:#ca.
 (view ~~ self and:[view notNil]) ifTrue:[
 p := device translatePoint:aPoint fromView:self toView:view.
 self sensor
 pushEvent:(WindowEvent   buttonPress:1 x:p x y:p y view:view);
 pushEvent:(WindowEvent buttonRelease:1 x:p x y:p y view:view).
 "/        "/ a very special hack for radioButtons:
 "/        "/ if the button is now on, all other cells must be turned off !!
 "Modified: / 07-09-2011 / 16:08:45 / cg"
 "Modified: / 15-03-2017 / 21:09:54 / stefan"
 !
 selectRowFrom:start to:stop
 |step oldSelection newSelection|
 start == stop ifTrue:[
 self selectColIndex:0 rowIndex:start.
 ^ self
 ].
 step := (start <= stop) ifTrue:1 ifFalse:-1.
 newSelection := (start to:stop by:step)
 select:[:idx | self isRowSelectable:idx ].
 self selectedColIndex ~~ 0 ifTrue:[
 self selectColIndex:0 rowIndex:newSelection.
 ^ self
 ].
 oldSelection := selectedRowIndex ? #().
 selectedRowIndex := newSelection.
 newSelection
 select:[:i | (oldSelection includes:i) not ]
 thenDo:[:i | self invalidateRowAt:i ].
 oldSelection
 select:[:i | (newSelection includes:i) not ]
 thenDo:[:i | self invalidateRowAt:i ].
 self selectionChanged.
 !
 selectRowIndex:something
 "set selection of rows"
 self selectColIndex:self selectedColIndex rowIndex:something
 !
 selectedColIndex
 "returns selected column number or 0"
 ^ self selectedColIndexHolder value
 !
 selectedColumn
 "returns selected column or nil"
 ^ columnDescriptors at:self selectedColIndex ifAbsent:nil.
 !
 selectedRow
 "returns the selected row (or collection if multiple selection) or nil"
 multipleSelectOk ifFalse:[
 ^ self at:selectedRowIndex ifAbsent:nil
 ].
 selectedRowIndex size ~~ 0 ifTrue:[
 ^ selectedRowIndex collect:[:i | self at:i ]
 ].
 ^ nil
 !
 selectedRow:something
 "select something"
 self selectedRowIndex:something
 !
 selectedRowIndex
 "returns selected row number or 0"
 ^ selectedRowIndex
 !
 selectedRowIndex:rowOrCollectionOfRows
 "set the row selection (single or multiple rows);
 does NOT change the selected column."
 self selectColIndex:(self selectedColIndex) rowIndex:rowOrCollectionOfRows
 !
 selectionChanged
 "selection has changed"
 self selectionChanged:nil
 !
 selectionChanged:colNrOrNil
 "selection has changed"
 |val|
 model notNil ifTrue:[
 val := self selectedRowIndex copy.
 (model respondsTo:#selectionIndex:) ifTrue:[
 actionBlock valueWithOptionalArgument:(self selectedRowIndex) and:colNrOrNil
 ].
 ]
 !
 selectionIndicesDo:aOneArgBlock
 "evaluate block on each row selected; the argument to the row
 is the index of the selected row"
 multipleSelectOk ifFalse:[
 selectedRowIndex ~~ 0 ifTrue:[
 aOneArgBlock value:selectedRowIndex
 ]
 ] ifTrue:[
 selectedRowIndex do:aOneArgBlock
 ]
 ]
 !
 setSelectColIndex:colNrArg rowIndex:rowNrArg
 "change selection without notification"
 self setSelectColIndex:colNrArg rowIndex:rowNrArg openEditor:true
 !
 |rowNr colNr newCol oldCol oldRow sglSelRow oldSz winGroup|
 rowNr := self validateSelection:rowNrArg.
 rowNr isNil ifTrue:[
 rowNr := multipleSelectOk ifTrue:[#()] ifFalse:[0].
 ].
 colNr := colNrArg.
 rowNr == 0 ifTrue:[
 colNr := 0.
 winGroup := self windowGroup.
 winGroup isNil ifTrue:[^ self ].
 oldSz > 1 ifTrue:[
 "/ redraw old selection
 oldRow do:[:aRowNr |
 "/ unselected if visible
 self invalidateRowAt:aRowNr colAt:0
 ]
 ] ifFalse:[
 oldSz == 1 ifTrue:[
 "
 aSelection size ~~ 0 ifTrue:[
 aSelection first isInteger ifTrue:[
 newSel := aSelection select:[:idx| self isRowSelectable:idx ].
 ] ifFalse:[
 newSel := aSelection
 collect:[:el| self identityIndexOfRow:el ]
 thenSelect:[:idx| self isRowSelectable:idx ].
 ].
 newSel notEmpty ifTrue:[
 ^ newSel

changeset 5723	3019347d6f76
parent 5719	d53bae9fd8b2
child 5730	dcaa2eb5a14b