"{ Package: 'stx:goodies/monticello' }"

Object subclass:#MCWriter

	instanceVariableNames:'stream'

	classVariableNames:''

	poolDictionaries:''

	category:'Monticello-Storing'

!

!MCWriter class methodsFor:'accessing'!

extension

	^ self readerClass extension

!

readerClass

	^ self subclassResponsibility 

! !

!MCWriter class methodsFor:'writing'!

on: aStream

	^ self new stream: aStream

! !

!MCWriter methodsFor:'as yet unclassified'!

stream

	^ stream

!

stream: aStream

	stream _ aStream

! !

!MCWriter class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.1 2006-11-22 13:05:32 cg Exp $'

! !