Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: ReadWriteStream
authorClaus Gittinger <cg@exept.de>
Tue, 09 Dec 2014 17:27:48 +0100
changeset 17204 dc2ca6d858e8
parent 17203 625087f6df36
child 17205 b266cb703584
class: ReadWriteStream changed: #resetPosition allow multiple positions
ReadWriteStream.st file | annotate | diff | comparison | revisions 
--- a/ReadWriteStream.st	Tue Dec 09 17:06:27 2014 +0100
+++ b/ReadWriteStream.st	Tue Dec 09 17:27:48 2014 +0100
@@ -140,7 +140,7 @@
      Because I am a read/write stream, the readLimit is set to the current write position.
      Thus, the just written data can be readback."
 
-    readLimit := position.
+    readLimit := position max:readLimit.
     super resetPosition
 ! !
 
@@ -189,10 +189,10 @@
 !ReadWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.34 2014-12-09 16:06:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.35 2014-12-09 16:27:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.34 2014-12-09 16:06:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.35 2014-12-09 16:27:48 cg Exp $'
 ! !
hg/stx-libbasic