--- a/ReadWriteStream.st Wed May 18 20:35:53 2016 +0200
+++ b/ReadWriteStream.st Thu May 19 10:34:56 2016 +0200
@@ -121,6 +121,13 @@
!ReadWriteStream methodsFor:'accessing'!
+clear
+ "re-initialize the stream to write to the beginning and
+ to not read any data."
+
+ position := readLimit := 0.
+!
+
contents
"return the contents as written so far;
redefined to prevent confusion resulting due to
@@ -136,19 +143,22 @@
!
reset
- "set the read position to the beginning of the collection"
-
- self resetPosition
-
-!
-
-resetPosition
"set the read position to the beginning of the collection.
Because I am a read/write stream, the readLimit is set to the current write position.
Thus, the just written data can be read back."
readLimit := position max:readLimit.
- super resetPosition
+ position := 0.
+!
+
+resetPosition
+ <resource: #obsolete>
+ "set the read position to the beginning of the collection.
+ Because I am a read/write stream, the readLimit is set to the current write position.
+ Thus, the just written data can be read back."
+
+ readLimit := position max:readLimit.
+ position := 0.
! !
!ReadWriteStream methodsFor:'converting'!
@@ -196,10 +206,10 @@
!ReadWriteStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.39 2015-03-12 19:27:01 stefan Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.39 2015-03-12 19:27:01 stefan Exp $'
+ ^ '$Header$'
! !