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

MetacelloSpec subclass:#MetacelloMemberSpec
	instanceVariableNames:'name spec'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Members'
!


!MetacelloMemberSpec methodsFor:'accessing'!

methodUpdateSelector

	^self subclassResponsibility
!

name

	^name
!

name: aString

	name := aString
!

sourceName

	^self name
!

spec

	^spec
!

spec: aMetacelloSpec

	spec := aMetacelloSpec
! !

!MetacelloMemberSpec methodsFor:'actions'!

applyAdd: addBlock copy: copyBlock merge: mergeBlock remove: removeBlock

	self subclassResponsibility

!

applyToList: aListSpec

	self subclassResponsibility
! !

!MetacelloMemberSpec methodsFor:'printing'!

configMethodCascadeOn: aStream last: lastCascade indent: indent

	self spec 
		configMethodCascadeOn: aStream 
		member: self 
		last: lastCascade 
		indent: indent
!

configMethodOn: aStream indent: indent

	aStream nextPutAll: self class name asString, ' member: ('.
	self spec configMethodOn: aStream indent: indent.
	aStream nextPutAll: ')'.
! !

!MetacelloMemberSpec class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !