1 "{ Package: 'stx:goodies/monticello' }"

     2 

     3 MCPatchOperation subclass:#MCRemoval

     4 	instanceVariableNames:'definition'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Monticello-Patching'

     8 !

     9 

    10 

    11 !MCRemoval class methodsFor:'as yet unclassified'!

    12 

    13 of: aDefinition

    14 	^ self new intializeWithDefinition: aDefinition

    15 ! !

    16 

    17 !MCRemoval methodsFor:'accessing'!

    18 

    19 applyTo: anObject

    20 	anObject removeDefinition: definition

    21 !

    22 

    23 baseDefinition

    24 	^ definition

    25 !

    26 

    27 definition

    28 	^ definition

    29 !

    30 

    31 fromSource

    32 	^ definition source

    33 !

    34 

    35 sourceString

    36 	^self fromSource asText

    37 		addAttribute: TextEmphasis struckOut;

    38 		addAttribute: TextColor blue;

    39 		yourself

    40 !

    41 

    42 summary

    43 	^ definition summary, ' (removed)'

    44 !

    45 

    46 summarySuffix

    47 	^ ' (removed)'

    48 !

    49 

    50 targetClass

    51 	^ definition actualClass

    52 !

    53 

    54 targetDefinition

    55 	^ nil

    56 !

    57 

    58 toSource

    59 	^ ''

    60 ! !

    61 

    62 !MCRemoval methodsFor:'as yet unclassified'!

    63 

    64 inverse

    65 	^ MCAddition of: definition

    66 !

    67 

    68 isClassPatch

    69 	^definition isClassDefinition

    70 ! !

    71 

    72 !MCRemoval methodsFor:'initializing'!

    73 

    74 intializeWithDefinition: aDefinition

    75 	definition _ aDefinition

    76 ! !

    77 

    78 !MCRemoval methodsFor:'testing'!

    79 

    80 isRemoval

    81 	^ true

    82 ! !

    83 

    84 !MCRemoval class methodsFor:'documentation'!

    85 

    86 version

    87     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRemoval.st,v 1.1 2006-11-22 13:12:40 cg Exp $'

    88 ! !