diff -r 576dc9a44d18 -r e47db739d7d1 DSVColumnView.st --- a/DSVColumnView.st Mon Nov 30 17:15:57 2015 +0100 +++ b/DSVColumnView.st Fri Dec 11 17:22:28 2015 +0100 @@ -34,7 +34,7 @@ selectionBackgroundColorNoFocus selectionFrameColor selectionFrameColorNoFocus previousExtent selectConditionBlock scrollRowWise autoScrollToColumn cachedPreferredExtent - sortListInPlace' + sortListInPlace labelFgColor labelBgColor' classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultHilightForegroundColor DefaultHilightBackgroundColor DefaultHilightFrameColor ButtonLightColor ButtonShadowColor @@ -45,7 +45,8 @@ StopRedrawSignal RadioButtonActiveImage RadioButtonPassiveImage PreselectAllWhenOpeningEditor DefaultHilightForegroundColorNoFocus - DefaultHilightBackgroundColorNoFocus' + DefaultHilightBackgroundColorNoFocus DefaultLabelForegroundColor + DefaultLabelBackgroundColor' poolDictionaries:'' category:'Views-DataSet' ! @@ -203,7 +204,9 @@ #'radioButton.passiveImage' #'selection.hilightForegroundColor' #'selection.hilightBackgroundColor' - #'selection.hilightFrameColor' + #'selection.hilightFrameColor' + #'dataSet.labelView.foregroundColor' + #'dataSet.labelView.backgroundColor' )> DefaultForegroundColor := StyleSheet colorAt:#'textForegroundColor' default:(Color black). @@ -249,6 +252,9 @@ ComboButtonLevel := nil. ComboButtonExtent := nil. + DefaultLabelBackgroundColor := StyleSheet at:#'dataSet.labelView.backgroundColor' default:nil. + DefaultLabelForegroundColor := StyleSheet at:#'dataSet.labelView.foregroundColor' default:nil. + " self updateStyleCache. " @@ -716,6 +722,18 @@ ] ! +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" @@ -3127,6 +3145,8 @@ ]. fgColor := DefaultForegroundColor. bgColor := DefaultBackgroundColor. + labelFgColor := DefaultLabelForegroundColor. + labelBgColor := DefaultLabelBackgroundColor. selectionForegroundColor := DefaultHilightForegroundColor. selectionBackgroundColor := DefaultHilightBackgroundColor. selectionFrameColor := DefaultHilightFrameColor.