'From Squeak3.10beta of 22 July 2007 [latest update: #7159] on 20 October 2008 at 3:17:21 pm'!

!ReadStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:07'!
fullContents
	"Answer the ANSI contents of the receiver."
	"Agrees with PositionableStream>>contents in Squeak."
	^collection copyFrom: 1 to: readLimit
	! !

!ReadStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:05'!
futureContents
	"Answer the ANSI 'future sequence values' of the receiver."
	"This differs from #upToEnd in two ways:
	 (a) it does not change the position.
	 (b) it respects readLimit; upToEnd does not."
	^collection copyFrom: position + 1 to: readLimit
	! !

!ReadStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:03'!
pastContents
	"Answer the ANSI 'past sequence values' of the receiver."
	^collection copyFrom: 1 to: position
	! !


!WriteStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:13'!
fullContents
	"Answer the ANSI contents of the receiver."
	"Note that in Squeak, WriteStream>>contents is #pastContents,
	 but in ANSI Smalltalk, WriteStream>>contents is #fullContents."
	"Note also that ReadWriteStream>>contents is not consistent with
	 WriteStream>>contents in Squeak, but the new
	 {past,future,full}Contents methods are consistent across
	 all of {Read,ReadWrite,Write}Stream."
	readLimit := readLimit max: position.
	^collection copyFrom: 1 to: readLimit
! !

!WriteStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:10'!
futureContents
	"Answer the ANSI 'future sequence values' of the receiver."
	readLimit := readLimit max: position.
	^collection copyFrom: position + 1 to: readLimit
! !

!WriteStream methodsFor: 'accessing' stamp: 'raok 10/20/2008 15:09'!
pastContents
	"Answer the ANSI 'past sequence values' of the receiver."
	^collection copyFrom: 1 to: position
! !