" Smalltalk/Stream.st							-*- Smalltalk -*- "

Stream : Object ()

Stream nextPutAll: aCollection
[
    aCollection do: [:element | self nextPut: element]
]

Stream nextPut: anObject
[
    ^self subclassResponsibility
]

Stream print: anObject
[
    anObject printOn: self
]

Stream isEmpty
[
    ^self size = 0
]

Stream notEmpty
[
    ^self isEmpty not
]

Stream contents
[
    " Answer all of the contents of the receiver. "
    ^self subclassResponsibility
]