--- a/Label.st	Fri Feb 23 23:37:35 1996 +0100
+++ b/Label.st	Sat Feb 24 00:02:59 1996 +0100
@@ -750,6 +750,12 @@
     ^ DefaultFont notNil ifTrue:[DefaultFont] ifFalse:[super defaultFont]
 !
 
+defaultFont:aFont
+    DefaultFont := aFont
+
+    "Created: 23.2.1996 / 23:47:58 / cg"
+!
+
 updateStyleCache
     DefaultForegroundColor := StyleSheet colorAt:'labelForegroundColor'.
     DefaultForegroundColor isNil ifTrue:[
@@ -1453,5 +1459,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.46 1996-02-11 13:53:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.47 1996-02-23 23:02:59 cg Exp $'
 ! !