"{ 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::                                                                                                                        $'

! !