CheckBox.st
changeset 830 028b7bf9aaad
parent 820 0f0b4a82bdc5
child 851 f7e436fe29ee
--- a/CheckBox.st	Mon Mar 30 16:55:22 1998 +0200
+++ b/CheckBox.st	Tue Mar 31 00:14:12 1998 +0200
@@ -286,9 +286,10 @@
                        #'checkBox.disabledLabelForegroundColor'
                        #'checkBox.toggleLeft')>
 
-    DefaultLabelForegroundColor := StyleSheet colorAt:'checkBox.labelForegroundColor'.
+    DefaultFont                         := StyleSheet fontAt:'label.font'.                   
+    DefaultLabelForegroundColor         := StyleSheet colorAt:'checkBox.labelForegroundColor'.
     DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'checkBox.disabledLabelForegroundColor'.
-    CheckToggleLeft := StyleSheet at:'checkBox.toggleLeft' default:true
+    CheckToggleLeft                     := StyleSheet at:'checkBox.toggleLeft' default:true
 
     "
      self updateStyleCache
@@ -797,5 +798,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.52 1998-03-11 20:21:49 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.53 1998-03-30 22:14:12 tz Exp $'
 ! !