DSVColumnView.st
changeset 4875 e47db739d7d1
parent 4794 73a3ffcaf58c
child 4961 3aa86bd7a0ce
--- 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.