--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCAddition.st	Wed Nov 22 14:12:10 2006 +0100
@@ -0,0 +1,83 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCPatchOperation subclass:#MCAddition
+	instanceVariableNames:'definition'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Patching'
+!
+
+
+!MCAddition class methodsFor:'as yet unclassified'!
+
+of: aDefinition
+	^ self new intializeWithDefinition: aDefinition
+! !
+
+!MCAddition methodsFor:'accessing'!
+
+applyTo: anObject
+	anObject addDefinition: definition
+!
+
+baseDefinition
+	^ nil
+!
+
+definition
+	^ definition
+!
+
+fromSource
+	^ ''
+!
+
+sourceString
+	^(self toSource asText)
+		addAttribute: TextColor red;
+		yourself
+!
+
+summary
+	^ definition summary
+!
+
+targetClass
+	^definition actualClass 
+!
+
+targetDefinition
+	^ definition
+!
+
+toSource
+	^ definition source
+! !
+
+!MCAddition methodsFor:'as yet unclassified'!
+
+inverse
+	^ MCRemoval of: definition
+!
+
+isClassPatch
+	^definition isClassDefinition
+! !
+
+!MCAddition methodsFor:'initializing'!
+
+intializeWithDefinition: aDefinition
+	definition _ aDefinition
+! !
+
+!MCAddition methodsFor:'testing'!
+
+isAddition
+	^ true
+! !
+
+!MCAddition class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCAddition.st,v 1.1 2006-11-22 13:12:10 cg Exp $'
+! !