--- a/AbstractSettingsApplication.st	Fri Feb 20 16:52:42 2004 +0100
+++ b/AbstractSettingsApplication.st	Fri Feb 20 17:34:57 2004 +0100
@@ -2469,15 +2469,23 @@
     |fn|
 
     Label defaultFont:self labelDef value.
-    Button defaultFont:self buttonDef value.
-    Toggle defaultFont:self buttonDef value.
-    TextView withAllSubclasses do:[:cls | cls defaultFont:self textDef value].
-    SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:self listDef value].
+
+    fn := self buttonDef value.
+    Button defaultFont:fn.
+    Toggle defaultFont:fn.
+
+    fn := self textDef value.
+    TextView withAllSubclasses do:[:cls | cls defaultFont:fn].
+
+    fn := self listDef value.
+    SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:fn].
+
     fn := self menuDef value.
+    ListView defaultFont:fn.
     MenuView defaultFont:fn.
     MenuPanel defaultFont:fn.
     NoteBookView defaultFont:fn.
-    PullDownMenu defaultFont:self menuDef value.
+    PullDownMenu defaultFont:fn.
 !
 
 changeAllFont
@@ -11137,5 +11145,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.134 2004-02-20 10:45:39 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.135 2004-02-20 16:34:57 cg Exp $'
+! !