--- a/TextView.st Tue Mar 24 16:25:09 2015 +0100
+++ b/TextView.st Wed Mar 25 20:19:48 2015 +0100
@@ -2625,7 +2625,7 @@
"/ must do it lineWise ...
list do:[:line |
line notNil ifTrue:[
- aStream nextPutAll:(encoder encodeString:line withTabs)
+ encoder encodeString:line withTabs on:aStream
].
aStream cr
].
@@ -2635,17 +2635,16 @@
asStringWithCRsFrom:startNr
to:((startNr + 1000) min:nLines)
compressTabs:compressTabs.
- aStream nextPutAll:(encoder encodeString:string string).
+ encoder encodeString:string string on:aStream.
startNr := startNr + 1000 + 1.
].
].
] ifFalse:[
list do:[:aLine |
aLine notNil ifTrue:[
- aStream nextPutLine:(encoder encodeString:aLine).
- ] ifFalse:[
- aStream cr.
- ]
+ encoder encodeString:aLine on:aStream.
+ ].
+ aStream cr.
]
]
@@ -4945,11 +4944,11 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $'
! !