# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 953643223 -3600
# Node ID fa0d92f438dbb7ed59475b4d19824fab2fb7530a
# Parent  8e8b5d2b3b8ebc9cf005ba26ea108402e625ef89
compatibility bug fixes

diff -r 8e8b5d2b3b8e -r fa0d92f438db ReadWriteStream.st
--- a/ReadWriteStream.st	Tue Mar 21 13:52:01 2000 +0100
+++ b/ReadWriteStream.st	Tue Mar 21 13:53:43 2000 +0100
@@ -49,6 +49,17 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+    |s|
+
+    s := ReadWriteStream with:'abcd'.
+    s reset.
+    s nextPut:$A.
+    s contents       
+"
 ! !
 
 !ReadWriteStream methodsFor:'access-reading'!
@@ -86,11 +97,18 @@
      ST80 users if RWStream expect the contents array to remain
      unchanged."
 
-    readLimit := readLimit max:position-1.
+    readLimit := (readLimit ? 0) max:position-1.
     ^ collection copyFrom:1 to:readLimit
 
     "Created: / 30.10.1997 / 16:25:22 / cg"
     "Modified: / 30.10.1997 / 18:37:09 / cg"
+!
+
+reset
+    "set the read position to the beginning of the collection"
+
+    self resetPosition
+
 ! !
 
 !ReadWriteStream methodsFor:'converting'!
@@ -103,15 +121,17 @@
     "Created: 29.11.1995 / 22:04:23 / stefan"
 ! !
 
-!ReadWriteStream methodsFor:'positioning'!
+!ReadWriteStream methodsFor:'initialization'!
 
-reset
-    "set the read position to the beginning of the collection.
-     Re-redefined to prevent the collection from being emptied."
+on:initialCollection
+    super on:initialCollection.
+    readLimit := 0.
+!
 
-    position := "0" 1
-
-    "Created: / 30.10.1997 / 16:17:45 / cg"
+with:initialCollection
+    super with:initialCollection.
+    readLimit := initialCollection size.
+    position := 1.
 ! !
 
 !ReadWriteStream methodsFor:'queries'!
@@ -125,5 +145,5 @@
 !ReadWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.19 1997-11-02 17:52:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.20 2000-03-21 12:53:43 cg Exp $'
 ! !