--- a/DataSetColumn.st	Wed Mar 14 15:25:24 2001 +0100
+++ b/DataSetColumn.st	Wed Mar 14 16:34:49 2001 +0100
@@ -221,7 +221,7 @@
             (bg isColor or:[bg isImageOrForm]) ifTrue:[
                 ^ bg
             ].
-            self halt.
+            self halt:'unexpected bg (not color or image)'.
         ]
     ].
     ^ backgroundColor
@@ -262,7 +262,7 @@
             (fg isColor or:[fg isImageOrForm]) ifTrue:[
                 ^ fg
             ].
-            self halt.
+            self halt:'unexpected fg (not color or image)'.
         ]
     ].
     ^ foregroundColor
@@ -912,6 +912,12 @@
     ^ (description choicesFor:(dataSet at:aRowNr)) notNil
 !
 
+hasPotentialNonConstantBackground
+    (backgroundColor notNil and:[backgroundColor isImageOrForm]) ifTrue:[^ true].
+    bgSelector notNil ifTrue:[^ true].
+    ^ false.
+!
+
 hasRelativeWidth
     "returns true if width is relative
     "
@@ -1051,5 +1057,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.67 2001-02-23 09:24:40 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.68 2001-03-14 15:34:49 ps Exp $'
 ! !