--- a/AbstractLauncherApplication.st	Thu Jan 29 21:42:29 2004 +0100
+++ b/AbstractLauncherApplication.st	Fri Jan 30 00:36:28 2004 +0100
@@ -5565,6 +5565,8 @@
         TextView withAllSubclasses do:[:cls | cls defaultFont:textDef value].
         SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:listDef value].
         MenuView defaultFont:menuDef value.
+        MenuPanel defaultFont:menuDef value.
+        NoteBookView defaultFont:menuDef value.
         PullDownMenu defaultFont:menuDef value.
     ].
     box destroy.
@@ -6414,5 +6416,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.299 2004-01-22 15:56:56 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.300 2004-01-29 23:36:17 ca Exp $'
 ! !

--- a/AbstractSettingsApplication.st	Thu Jan 29 21:42:29 2004 +0100
+++ b/AbstractSettingsApplication.st	Fri Jan 30 00:36:28 2004 +0100
@@ -2466,13 +2466,17 @@
 !AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
 
 basicSaveSettings
+    |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].
-    MenuView defaultFont:self menuDef value.
+    fn := self menuDef value.
+    MenuView defaultFont:fn.
+    MenuPanel defaultFont:fn.
+    NoteBookView defaultFont:fn.
     PullDownMenu defaultFont:self menuDef value.
 !
 
@@ -11086,5 +11090,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.128 2004-01-22 13:34:16 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.129 2004-01-29 23:36:28 ca Exp $'
+! !