--- a/Launcher.st	Tue Feb 27 00:29:59 1996 +0100
+++ b/Launcher.st	Tue Feb 27 00:55:04 1996 +0100
@@ -818,7 +818,7 @@
         b action:[
             |f|
 
-            f := FontPanel fontFromUser.
+            f := FontPanel fontFromUserInitial:(model value).
             f notNil ifTrue:[
                 model value:f.
                 lbl font:f.
@@ -831,6 +831,7 @@
     box accepted ifTrue:[
         Label defaultFont:labelDef value.
         Button defaultFont:buttonDef value.
+        Toggle defaultFont:buttonDef value.
         SelectionInListView defaultFont:listDef value.
         MenuView defaultFont:menuDef value.
         PullDownMenu defaultFont:menuDef value.
@@ -847,8 +848,8 @@
 "/        ]
 "/    ]
 
-    "Modified: 24.2.1996 / 23:33:00 / cg"
     "Created: 26.2.1996 / 22:52:51 / cg"
+    "Modified: 27.2.1996 / 00:52:37 / cg"
 !
 
 keyboardSetting 
@@ -2296,5 +2297,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.89 1996-02-26 23:29:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.90 1996-02-26 23:55:04 cg Exp $'
 ! !