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

MetacelloMemberSpec subclass:#MetacelloCopyMemberSpec
	instanceVariableNames:'sourceName'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Members'
!


!MetacelloCopyMemberSpec methodsFor:'accessing'!

methodUpdateSelector

	^#copy:
!

sourceName

	^sourceName
!

sourceName: aString

	sourceName := aString
! !

!MetacelloCopyMemberSpec methodsFor:'actions'!

applyAdd: addBlock copy: copyBlock merge: mergeBlock remove: removeBlock
    copyBlock value: self
!

applyToList: aListSpec

	aListSpec copy: self
! !

!MetacelloCopyMemberSpec class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !