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