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

Object subclass:#MetacelloSpecLoader
	instanceVariableNames:'spec'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Loaders'
!


!MetacelloSpecLoader class methodsFor:'instance creation'!

on: aMetacelloPackagesSpec

	^(self new) 
		spec: aMetacelloPackagesSpec;
		yourself
! !

!MetacelloSpecLoader methodsFor:'accessing'!

loadType
	"#atomic or #linear"
	
	^self project loadType
!

project

	^self spec project
!

spec

	^spec
!

spec: aMetacelloPackagesSpec

	spec := aMetacelloPackagesSpec
! !

!MetacelloSpecLoader methodsFor:'actions'!

load

	self subclassResponsibility
!

unload

	self subclassResponsibility
! !

!MetacelloSpecLoader class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !