equal
deleted
inserted
replaced
120 |
120 |
121 ^ 0 |
121 ^ 0 |
122 |
122 |
123 "Modified: / 13-07-2006 / 20:36:54 / cg" |
123 "Modified: / 13-07-2006 / 20:36:54 / cg" |
124 ! ! |
124 ! ! |
|
125 |
125 |
126 |
126 !PositionableStream methodsFor:'Compatibility-Dolphin'! |
127 !PositionableStream methodsFor:'Compatibility-Dolphin'! |
127 |
128 |
128 endChunk |
129 endChunk |
129 self nextPutChunkSeparator |
130 self nextPutChunkSeparator |
924 Transcript show:'<'; show:(s upToEnd); showCR:'>'. |
925 Transcript show:'<'; show:(s upToEnd); showCR:'>'. |
925 " |
926 " |
926 |
927 |
927 "Modified: / 12.1.1998 / 22:06:42 / cg" |
928 "Modified: / 12.1.1998 / 22:06:42 / cg" |
928 "Created: / 12.1.1998 / 22:07:01 / cg" |
929 "Created: / 12.1.1998 / 22:07:01 / cg" |
|
930 ! |
|
931 |
|
932 upToEnd |
|
933 collection notNil ifTrue:[ |
|
934 |result| |
|
935 |
|
936 result := collection copyFrom:position+1 to:readLimit. |
|
937 position := readLimit. |
|
938 ^ result. |
|
939 ]. |
|
940 |
|
941 ^ super upToEnd. |
|
942 |
|
943 " |
|
944 'abc' readStream upToEnd. |
|
945 " |
929 ! ! |
946 ! ! |
930 |
947 |
931 !PositionableStream methodsFor:'testing'! |
948 !PositionableStream methodsFor:'testing'! |
932 |
949 |
933 atEnd |
950 atEnd |