--- a/AbstractLauncherApplication.st	Wed Feb 18 13:04:45 2004 +0100
+++ b/AbstractLauncherApplication.st	Wed Feb 18 13:05:47 2004 +0100
@@ -5520,9 +5520,10 @@
             |f|
 
             f := FontPanel 
-                fontFromUserInitial:(model value) 
-                              title:(resources string:'Font for %1' with:title)
-                             filter:filter.
+                    fontFromUserInitial:(model value) 
+                    title:(resources string:'Font for %1' with:title)
+                    filter:filter
+                    encoding:encodingMatch.
             f notNil ifTrue:[
                 model == allOfThem ifTrue:[
                     models do:[:m | m value:f].
@@ -6416,5 +6417,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.301 2004-01-29 23:48:56 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.302 2004-02-18 12:05:47 cg Exp $'
 ! !