equal
deleted
inserted
replaced
51 |
51 |
52 "Created: 3.12.1995 / 14:02:40 / cg" |
52 "Created: 3.12.1995 / 14:02:40 / cg" |
53 "Modified: 3.12.1995 / 14:06:33 / cg" |
53 "Modified: 3.12.1995 / 14:06:33 / cg" |
54 ! ! |
54 ! ! |
55 |
55 |
|
56 !ClassPrimitiveChange methodsFor:'applying'! |
|
57 |
|
58 apply |
|
59 "apply the change" |
|
60 |
|
61 |class| |
|
62 |
|
63 class := self changeClass. |
|
64 class isNil ifTrue:[ |
|
65 self error:('Cannot apply change for missing class: ' , className) mayProceed:true. |
|
66 ^ self |
|
67 ]. |
|
68 class autoload. "Most changes cannot be applied to unloaded classes" |
|
69 Class nameSpaceQuerySignal answer:self nameSpace do:[ |
|
70 self privateApply |
|
71 ]. |
|
72 |
|
73 "Created: / 28-06-2011 / 22:58:53 / cg" |
|
74 ! |
|
75 |
|
76 privateApply |
|
77 self subclassResponsibility |
|
78 |
|
79 "Created: / 28-06-2011 / 22:58:59 / cg" |
|
80 ! ! |
|
81 |
56 !ClassPrimitiveChange methodsFor:'comparing'! |
82 !ClassPrimitiveChange methodsFor:'comparing'! |
57 |
83 |
58 sameAs:changeB |
84 sameAs:changeB |
59 "return true, if the given change represents the same change as the receiver." |
85 "return true, if the given change represents the same change as the receiver." |
60 |
86 |
70 ! ! |
96 ! ! |
71 |
97 |
72 !ClassPrimitiveChange class methodsFor:'documentation'! |
98 !ClassPrimitiveChange class methodsFor:'documentation'! |
73 |
99 |
74 version |
100 version |
75 ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.6 2009-09-24 08:41:54 cg Exp $' |
101 ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.7 2011-06-28 21:00:07 cg Exp $' |
|
102 ! |
|
103 |
|
104 version_CVS |
|
105 ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.7 2011-06-28 21:00:07 cg Exp $' |
76 ! ! |
106 ! ! |