--- a/FileBrowser.st Wed Mar 25 15:20:09 2015 +0100
+++ b/FileBrowser.st Wed Mar 25 20:20:05 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
@@ -6300,13 +6302,13 @@
"/ must do it lineWise ...
someText asStringCollection do:[:line |
line notNil ifTrue:[
- stream nextPutAll:(encoder encodeString:line)
+ encoder encodeString:line on:stream
].
stream cr
]
] ifFalse:[
(someText isString) ifTrue:[
- stream nextPutAll:(encoder encodeString:someText).
+ encoder encodeString:someText on:stream.
] ifFalse:[
"/
"/ on some systems, writing linewise is very slow (via NFS)
@@ -6316,10 +6318,11 @@
startNr := 1.
nLines := someText size.
[startNr <= nLines] whileTrue:[
- string := someText asStringWithCRsFrom:startNr
- to:((startNr + 1000) min:nLines)
- compressTabs:compressTabs.
- stream nextPutAll:(encoder encodeString:string).
+ string := someText
+ asStringWithCRsFrom:startNr
+ to:((startNr + 1000) min:nLines)
+ compressTabs:compressTabs.
+ encoder encodeString:string on:stream.
startNr := startNr + 1000 + 1.
].
].
@@ -7534,10 +7537,10 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.668 2015-02-24 11:49:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.669 2015-03-25 19:20:05 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.668 2015-02-24 11:49:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.669 2015-03-25 19:20:05 cg Exp $'
! !