--- a/CheckBox.st	Thu Apr 09 13:46:05 1998 +0200
+++ b/CheckBox.st	Thu Apr 09 15:16:20 1998 +0200
@@ -422,14 +422,26 @@
 
 !CheckBox methodsFor:'accessing-colors'!
 
+backgroundColor
+    "get backgroundColor of the label view"
+
+    ^labelView backgroundColor
+!
+
 backgroundColor: backgroundColor
-    "set backgroundColor only for the label"
+    "set backgroundColor only for the label view"
 
     labelView backgroundColor: backgroundColor
 !
 
+foregroundColor
+    "get foregroundColor of the label view"
+
+    ^labelView foregroundColor
+!
+
 foregroundColor: foregroundColor
-    "set foregroundColor only for the label"
+    "set foregroundColor only for the label view"
 
     labelView foregroundColor: (labelForegroundColor := foregroundColor).
     foregroundChannel notNil ifTrue: [foregroundChannel value: foregroundColor]
@@ -798,5 +810,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.53 1998-03-30 22:14:12 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.54 1998-04-09 13:16:20 tz Exp $'
 ! !