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