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

MetacelloSpec subclass:#MetacelloValueHolderSpec
	instanceVariableNames:'value'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Specs'
!


!MetacelloValueHolderSpec methodsFor:'accessing'!

value: anObject
	value := anObject
! !

!MetacelloValueHolderSpec methodsFor:'construction'!

value: anObject constructor: aVersionConstructor
    aVersionConstructor valueForValueHolder: anObject
! !

!MetacelloValueHolderSpec methodsFor:'merging'!

mergeMap

	| map |
	map := super mergeMap.
	map at: #value put: value.
	^map
! !

!MetacelloValueHolderSpec methodsFor:'printing'!

configMethodOn: aStream indent: indent

	aStream tab: indent; nextPutAll: 'spec value: ', self value printString
! !

!MetacelloValueHolderSpec methodsFor:'private'!

setAuthorInMetacelloVersion: aMetacelloVersionSpec

	aMetacelloVersionSpec setAuthor: self
!

setBlessingInMetacelloVersion: aMetacelloVersionSpec

	aMetacelloVersionSpec setBlessing: self
!

setDescriptionInMetacelloVersion: aMetacelloVersionSpec

	aMetacelloVersionSpec setDescription: self
!

setPostLoadDoItInMetacelloSpec: aMetacelloSpec

	aMetacelloSpec setPostLoadDoIt: self
!

setPreLoadDoItInMetacelloSpec: aMetacelloSpec

	aMetacelloSpec setPreLoadDoIt: self
!

setTimestampInMetacelloVersion: aMetacelloVersionSpec

	aMetacelloVersionSpec setTimestamp: self
! !

!MetacelloValueHolderSpec methodsFor:'querying'!

value
	^ value
! !

!MetacelloValueHolderSpec class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !