--- a/CheckBox.st	Sat May 18 17:43:43 1996 +0200
+++ b/CheckBox.st	Wed May 22 13:17:51 1996 +0200
@@ -381,26 +381,36 @@
 !
 
 disabledLabelForegroundColor
+    "set the disabledLabelForegroundColor; forwarded to the toggle"
+
     disabledLabelForegroundColor isNil ifTrue:[ ^ toggleView disabledForegroundColor ].
     ^ disabledLabelForegroundColor
 
     "Created: 16.12.1995 / 19:47:45 / cg"
-    "Modified: 16.12.1995 / 19:56:41 / cg"
+    "Modified: 22.5.1996 / 13:16:55 / cg"
 !
 
 font
-    "forward from label"
+    "return the font. Forward from label"
 
     ^ labelView font
+
+    "Modified: 22.5.1996 / 13:17:07 / cg"
 !
 
 font:aFont
-    "forward to label & resize"
+    "set the font. Forward to the label & resize myself.
+     CAVEAT: with the addition of Text objects,
+             this method is going to be obsoleted by a textStyle
+             method, which allows specific control over
+             normalFont/boldFont/italicFont parameters."
 
     labelView font:aFont.
     labelView forceResize.
     self layoutChanged.
     self resize.
+
+    "Modified: 22.5.1996 / 13:17:28 / cg"
 !
 
 label
@@ -586,5 +596,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.24 1996-05-18 15:43:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.25 1996-05-22 11:17:51 cg Exp $'
 ! !