--- a/DataSetLabel.st	Tue Apr 06 15:20:16 2004 +0200
+++ b/DataSetLabel.st	Wed Apr 07 10:39:01 2004 +0200
@@ -54,11 +54,23 @@
 
 !
 
+backgroundColor:aColor
+    "set the background color or nil
+    "
+    bgColor := aColor
+!
+
 foregroundColor
     "returns the foreground color or nil
     "
     ^ fgColor
 
+!
+
+foregroundColor:aColor
+    "set the foreground color or nil
+    "
+    fgColor := aColor
 ! !
 
 !DataSetLabel methodsFor:'accessing-dimensions'!
@@ -304,5 +316,5 @@
 !DataSetLabel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.16 2003-02-28 13:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.17 2004-04-07 08:39:01 werner Exp $'
 ! !