--- a/FileBrowser.st	Sat Apr 20 15:50:56 1996 +0200
+++ b/FileBrowser.st	Mon Apr 22 16:50:08 1996 +0200
@@ -165,13 +165,18 @@
      the internal encoding (which is iso8859).
      Notice: currently, not too many encodings are supported by the system."
 
-    |dialog list encodings idx|
+    |dialog list descr encodings encodingNames idx|
 
     list := SelectionInList new.
 
-    encodings := #(nil msdos mac jis7 euc gb big5).
-
-    list list:#('default (iso8859, ANSI)' 'MSDOS' 'MAC' 'JIS7' 'EUC' 'GB' 'BIG5').
+"/    encodings := #(nil msdos mac jis7 euc gb big5).
+"/    encodingNames := #('default (iso8859, ANSI)' 'MSDOS' 'MAC' 'JIS7' 'EUC' 'GB' 'BIG5').
+
+    descr := CharacterArray supportedExternalEncodings.
+    encodings := descr at:2.
+    encodingNames := descr at:1.
+
+    list list:encodingNames.
     list selectionIndex:(encodings indexOf:fileEncoding ifAbsent:1).
 
     dialog := Dialog new.
@@ -190,7 +195,7 @@
         self validateFontEncodingFor:fileEncoding.
     ].
 
-    "Modified: 17.4.1996 / 18:48:43 / cg"
+    "Modified: 22.4.1996 / 14:46:24 / cg"
 !
 
 fileExecute
@@ -2576,5 +2581,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.82 1996-04-19 13:53:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.83 1996-04-22 14:50:08 cg Exp $'
 ! !