"{ Package: 'stx:goodies/monticello' }"
Object subclass:#MCWriter
instanceVariableNames:'stream'
classVariableNames:''
poolDictionaries:''
category:'SCM-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.5 2012-09-11 21:31:32 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.5 2012-09-11 21:31:32 cg Exp $'
!
version_SVN
^ '§Id: MCWriter.st 5 2010-08-29 07:30:29Z vranyj1 §'
! !