--- a/Label.st	Sat Feb 24 00:02:59 1996 +0100
+++ b/Label.st	Sat Feb 24 17:35:36 1996 +0100
@@ -14,7 +14,7 @@
 	instanceVariableNames:'logo labelWidth labelHeight labelOriginX labelOriginY adjust
 		hSpace vSpace bgColor fgColor fixSize labelMsg converter
 		labelChannel foregroundChannel backgroundChannel'
-	classVariableNames:'DefaultFont DefaultForegroundColor DefaultBackgroundColor'
+	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor'
 	poolDictionaries:''
 	category:'Views-Layout'
 !
@@ -746,16 +746,6 @@
     ^ 16 @ 16
 !
 
-defaultFont
-    ^ 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:[
@@ -1125,7 +1115,8 @@
 initStyle
     super initStyle.
 
-    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
+"/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
+
     DefaultBackgroundColor notNil ifTrue:[
 	bgColor := DefaultBackgroundColor on:device
     ] ifFalse:[
@@ -1459,5 +1450,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.47 1996-02-23 23:02:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.48 1996-02-24 16:34:03 cg Exp $'
 ! !