"{ Encoding: utf8 }" !
"{ Package: 'stx:goodies/xtreams/core' }" !

!SequenceableCollection methodsFor:'private'!

streamingInsert: anInteger into: aWriteStream
	aWriteStream insert: anInteger from: self at: 1
! !

!SequenceableCollection methodsFor:'private'!

streamingInsertInto: aWriteStream
	aWriteStream insert: self size from: self at: 1.
	^self size
! !

!SequenceableCollection methodsFor:'private'!

streamingWrite: anInteger into: aWriteStream
	^aWriteStream write: anInteger from: self at: 1
! !

!SequenceableCollection methodsFor:'private'!

streamingWriteInto: aWriteStream
	aWriteStream write: self size from: self at: 1.
	^self size
! !

!Object methodsFor:'private'!

streamingInsert: anInteger into: aWriteStream
	anInteger timesRepeat: [self streamingInsertInto: aWriteStream]
! !

!Object methodsFor:'private'!

streamingInsertInto: aWriteStream
	aWriteStream insert: (aWriteStream contentsSpecies with: self)
! !

!Object methodsFor:'private'!

streamingPrintOn: aWriteStream
	aWriteStream write: self printString
! !

!Object methodsFor:'private'!

streamingWrite: anInteger into: aWriteStream
	anInteger timesRepeat: [self streamingWriteInto: aWriteStream].
	^anInteger
! !

!Object methodsFor:'private'!

streamingWriteInto: aWriteStream
	aWriteStream put: self
! !