MetacelloAddMemberSpec.st
changeset 1 9e312de5f694
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MetacelloAddMemberSpec.st	Mon Sep 03 11:13:41 2012 +0000
@@ -0,0 +1,34 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+MetacelloMemberSpec subclass:#MetacelloAddMemberSpec
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Members'
+!
+
+
+!MetacelloAddMemberSpec methodsFor:'accessing'!
+
+methodUpdateSelector
+
+	^#overrides:
+! !
+
+!MetacelloAddMemberSpec methodsFor:'actions'!
+
+applyAdd: addBlock copy: copyBlock merge: mergeBlock remove: removeBlock
+
+	addBlock value: self
+!
+
+applyToList: aListSpec
+
+	aListSpec add: self
+! !
+
+!MetacelloAddMemberSpec class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !