--- a/DataSetColumn.st	Sat Sep 12 13:19:19 1998 +0200
+++ b/DataSetColumn.st	Sat Sep 12 14:43:37 1998 +0200
@@ -142,6 +142,19 @@
     "
     ^ backgroundColor == dataSet backgroundColor ifTrue:[nil]
                                                 ifFalse:[backgroundColor]
+
+!
+
+backgroundColorFor:aRowNr
+    |bg|
+
+    bgSelector notNil ifTrue:[
+        (bg := (dataSet at:aRowNr) perform:bgSelector) notNil ifTrue:[
+            ^ bg
+        ]
+    ].
+    ^ backgroundColor
+
 !
 
 description
@@ -157,6 +170,7 @@
     "
     ^ foregroundColor == dataSet foregroundColor ifTrue:[nil]
                                                 ifFalse:[foregroundColor]
+
 !
 
 label
@@ -785,6 +799,12 @@
     "returns true if column separator is on
     "
     ^ showColSeparator
+!
+
+showSelectionHighLighted
+    "returns true if selection is highLighted
+    "
+    ^ description showSelectionHighLighted ~~ false
 ! !
 
 !DataSetColumn methodsFor:'searching'!
@@ -821,5 +841,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.35 1998-09-12 11:19:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.36 1998-09-12 12:43:37 ca Exp $'
 ! !