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