--- a/RadioButton.st	Mon Jul 14 21:34:05 2008 +0200
+++ b/RadioButton.st	Fri Jul 18 10:57:06 2008 +0200
@@ -502,6 +502,7 @@
 
     |l f|
 
+    DefaultFont := StyleSheet fontAt:'label.font'.                   
     DefaultButtonStyle := StyleSheet at:#'radioButton.style'.
     l := -1.
     DefaultButtonStyle == #round2D ifTrue:[l := 0].
@@ -806,5 +807,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.36 2008-05-19 10:42:49 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.37 2008-07-18 08:57:06 stefan Exp $'
 ! !