--- a/TextView.st	Wed Feb 18 18:39:08 2004 +0100
+++ b/TextView.st	Wed Feb 18 18:51:54 2004 +0100
@@ -649,8 +649,8 @@
 
 characterEncoding:encodingSymOrNil
     "define how the contents is encoded internally.
-     For now, this should be the same encoding as my fonts encoding (otherwise, mappings would
-     occur when drawing).
+     For now, this should be the same encoding as my fonts encoding 
+     (otherwise, mappings would occur when drawing).
      This is (currently) only passed down from the fileBrowser,
      and required when japanese/chinese/korean text is edited.
      (encoding is something like #'iso8859-5' #euc, #sjis, #jis7, #gb, #big5 or #ksc)"
@@ -1029,7 +1029,8 @@
             f := FontPanel 
                     fontFromUserInitial:defaultFont
                     title:(resources string:'font selection')
-                    filter:filter.
+                    filter:filter
+                    encoding:pref.
 
             f notNil ifTrue:[
                 self font:f.
@@ -3880,7 +3881,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.234 2004-02-18 12:05:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.235 2004-02-18 17:51:54 cg Exp $'
 ! !
 
 TextView initialize!