FileBrowser.st
changeset 5586 aba072239d9a
parent 5566 3fea3a9a1df5
child 5611 938b08b6917f
--- a/FileBrowser.st	Wed Feb 25 17:15:11 2004 +0100
+++ b/FileBrowser.st	Wed Feb 25 21:20:14 2004 +0100
@@ -1526,7 +1526,7 @@
     1 to:n do:[:i |
         (buffer at:i) isPrintable ifFalse:[binary := true].
     ].
-    binary ifFalse:[ ^ #'ascii' ].
+    binary ifFalse:[ ^ #'iso8859-1' ].
 
     "/ look for JIS7 / EUC encoding
 
@@ -6159,7 +6159,7 @@
             (self nonBinaryFileAction:fileNameString) ifTrue:[^ self].
         ].
 
-        fontsEncoding := subView font encoding ? 'ascii'.
+        fontsEncoding := subView font encoding ? 'iso8859-1'.
         pref := FontDescription preferredFontEncodingFor:guess.
         ok := CharacterEncoder isEncoding:pref subSetOf:fontsEncoding.
 
@@ -7507,5 +7507,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.581 2004-02-23 13:27:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.582 2004-02-25 20:20:14 cg Exp $'
 ! !