look at more when guessing the encoding
authorClaus Gittinger <cg@exept.de>
Mon, 30 Jun 1997 21:03:19 +0200
changeset 1222 f2952fc3ced9
parent 1221 ac1737be683b
child 1223 2c7afbcefed9
look at more when guessing the encoding (4k which is usually a fileSystem page anyway)
FBrowser.st
FileBrowser.st
--- a/FBrowser.st	Mon Jun 30 20:52:37 1997 +0200
+++ b/FBrowser.st	Mon Jun 30 21:03:19 1997 +0200
@@ -2944,8 +2944,8 @@
         ^ nil
     ].
 
-    buffer := String new:300.
-    n := s nextBytes:300 into:buffer.
+    buffer := String new:4096.
+    n := s nextBytes:4096 into:buffer.
     s close.
 
     enc := encoding.
@@ -3051,7 +3051,7 @@
     ].
 
     "Created: 19.6.1996 / 09:39:52 / cg"
-    "Modified: 30.6.1997 / 19:21:51 / cg"
+    "Modified: 30.6.1997 / 21:00:46 / cg"
 !
 
 writeFile:fileName text:someText encoding:encoding
@@ -3563,5 +3563,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.169 1997-06-30 18:52:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.170 1997-06-30 19:03:19 cg Exp $'
 ! !
--- a/FileBrowser.st	Mon Jun 30 20:52:37 1997 +0200
+++ b/FileBrowser.st	Mon Jun 30 21:03:19 1997 +0200
@@ -2944,8 +2944,8 @@
         ^ nil
     ].
 
-    buffer := String new:300.
-    n := s nextBytes:300 into:buffer.
+    buffer := String new:4096.
+    n := s nextBytes:4096 into:buffer.
     s close.
 
     enc := encoding.
@@ -3051,7 +3051,7 @@
     ].
 
     "Created: 19.6.1996 / 09:39:52 / cg"
-    "Modified: 30.6.1997 / 19:21:51 / cg"
+    "Modified: 30.6.1997 / 21:00:46 / cg"
 !
 
 writeFile:fileName text:someText encoding:encoding
@@ -3563,5 +3563,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.169 1997-06-30 18:52:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.170 1997-06-30 19:03:19 cg Exp $'
 ! !