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

MCReader subclass:#MCSnapshotReader
	instanceVariableNames:'definitions'
	classVariableNames:''
	poolDictionaries:''
	category:'Monticello-Storing'
!


!MCSnapshotReader class methodsFor:'as yet unclassified'!

snapshotFromStream: aStream
	^ (self on: aStream) snapshot
! !

!MCSnapshotReader methodsFor:'as yet unclassified'!

definitions
	definitions ifNil: [self loadDefinitions].
	^ definitions
!

snapshot
	^ MCSnapshot fromDefinitions: self definitions
! !

!MCSnapshotReader class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshotReader.st,v 1.1 2006-11-22 13:05:17 cg Exp $'
! !