--- a/FileBrowser.st	Tue Mar 09 00:12:58 2004 +0100
+++ b/FileBrowser.st	Tue Mar 09 00:57:12 2004 +0100
@@ -1523,8 +1523,31 @@
     ].
 
     "/ look for JIS7 / EUC encoding
-
-    ^ CharacterArray guessEncodingFrom:buffer.
+    (buffer findString:(CharacterEncoder jisISO2022EscapeSequence)) ~~ 0 ifTrue:[
+        ^ #'iso2020-jp'
+    ].
+    (buffer findString:(CharacterEncoder jis7KanjiEscapeSequence)) ~~ 0 ifTrue:[
+        ^ #jis7
+    ].
+    (buffer findString:(CharacterEncoder jis7KanjiOldEscapeSequence)) ~~ 0 ifTrue:[
+        ^ #jis7
+    ].
+
+    "/ TODO:
+
+"/    "/ look for EUC
+"/    idx := aString findFirst:[:char | |ascii|
+"/                                        ((ascii := char asciiValue) >= 16rA1)     
+"/                                        and:[ascii <= 16rFE]].
+"/    idx ~~ 0 ifTrue:[
+"/        ascii := (aString at:(idx + 1)) asciiValue.
+"/        (ascii >= 16rA1 and:[ascii <= 16rFE]) ifTrue:[
+"/            ^ #euc
+"/        ]
+"/    ].
+    "/ look for SJIS ...
+
+    ^ nil
 
     "
      FileBrowser guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename
@@ -7501,5 +7524,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.585 2004-03-08 23:12:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.586 2004-03-08 23:57:12 cg Exp $'
 ! !