equal
deleted
inserted
replaced
49 |
49 |
50 |
50 |
51 !ClassDefinitionChange class methodsFor:'others'! |
51 !ClassDefinitionChange class methodsFor:'others'! |
52 |
52 |
53 version_CVS |
53 version_CVS |
54 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.75 2013-03-27 18:18:21 cg Exp $' |
54 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.76 2013-03-30 01:54:34 cg Exp $' |
55 ! ! |
55 ! ! |
56 |
56 |
57 |
57 |
58 !ClassDefinitionChange methodsFor:'accessing'! |
58 !ClassDefinitionChange methodsFor:'accessing'! |
59 |
59 |
149 |
149 |
150 "Created: / 31-08-2011 / 10:26:42 / cg" |
150 "Created: / 31-08-2011 / 10:26:42 / cg" |
151 "Modified: / 24-01-2012 / 22:13:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
151 "Modified: / 24-01-2012 / 22:13:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
152 ! |
152 ! |
153 |
153 |
|
154 imageSource |
|
155 "return the source for the in-image version of the method" |
|
156 |
|
157 | cls | |
|
158 |
|
159 cls := self changeClass. |
|
160 cls isNil ifTrue:[ ^ nil ]. |
|
161 ^ cls definitionWithoutPackage |
|
162 ! |
|
163 |
154 instanceVariableNames |
164 instanceVariableNames |
155 ^ instanceVariableNames |
165 ^ instanceVariableNames |
156 ! |
166 ! |
157 |
167 |
158 instanceVariableNames:something |
168 instanceVariableNames:something |
191 nameSpaceOverride := aNameSpaceName. |
201 nameSpaceOverride := aNameSpaceName. |
192 classType := aClassType. |
202 classType := aClassType. |
193 otherParameters := Dictionary new addAll:otherParametersArg; yourself. |
203 otherParameters := Dictionary new addAll:otherParametersArg; yourself. |
194 |
204 |
195 superClassName := otherParameters at:#superclass: ifAbsent:nil. |
205 superClassName := otherParameters at:#superclass: ifAbsent:nil. |
|
206 self assert:(superClassName notNil). |
196 superClassName notNil ifTrue:[ |
207 superClassName notNil ifTrue:[ |
197 superClassName := superClassName pathString. |
208 superClassName := superClassName pathString. |
198 ]. |
209 ]. |
199 indexedType := otherParameters at:#indexedType: ifAbsent:nil. |
210 indexedType := otherParameters at:#indexedType: ifAbsent:nil. |
200 private := otherParameters at:#private: ifAbsent:nil. |
211 private := otherParameters at:#private: ifAbsent:nil. |
261 |
272 |
262 superClassName |
273 superClassName |
263 |nm| |
274 |nm| |
264 |
275 |
265 nm := superClassName. |
276 nm := superClassName. |
266 nm notNil ifTrue:[ |
277 nm isNil ifTrue:[^ 'nil']. |
267 (nm includes:$.) ifTrue:[ |
278 "/ convert VW namespace syntax |
268 ^ nm copyReplaceAll:$. withAll:'::'. |
279 (nm includes:$.) ifTrue:[ |
269 ] |
280 ^ nm copyReplaceAll:$. withAll:'::'. |
270 ]. |
281 ]. |
271 ^ nm |
282 ^ nm |
272 ! |
283 ! |
273 |
284 |
274 superClassName:something |
285 superClassName:aString |
275 superClassName := something. |
286 superClassName := aString. |
|
287 self assert:(aString notNil). |
276 self invalidateSource. |
288 self invalidateSource. |
277 ! |
289 ! |
278 |
290 |
279 superClassNameWithoutMyNamespace |
291 superClassNameWithoutMyNamespace |
280 |nm| |
292 |nm| |
342 isForSameAs:changeB |
354 isForSameAs:changeB |
343 "return true, if the given change represents a change for the same |
355 "return true, if the given change represents a change for the same |
344 thingy as the receiver (i.e. same method, same definition etc.)." |
356 thingy as the receiver (i.e. same method, same definition etc.)." |
345 |
357 |
346 changeB isClassDefinitionChange ifFalse:[^ false]. |
358 changeB isClassDefinitionChange ifFalse:[^ false]. |
347 |
359 ^ className = changeB className |
348 className ~= changeB className ifTrue:[^ false]. |
|
349 ^ true |
|
350 |
|
351 |
|
352 |
|
353 |
|
354 |
|
355 ! |
360 ! |
356 |
361 |
357 sameAs:changeB |
362 sameAs:changeB |
358 "return true, if the given change represents the same change as the receiver." |
363 "return true, if the given change represents the same change as the receiver." |
359 |
364 |
787 ]. |
792 ]. |
788 |
793 |
789 |
794 |
790 |
795 |
791 superClassName := parseTree receiver name. |
796 superClassName := parseTree receiver name. |
|
797 self assert:(superClassName notNil). |
792 ]. |
798 ]. |
793 |
799 |
794 "Created: / 11-10-2006 / 14:10:02 / cg" |
800 "Created: / 11-10-2006 / 14:10:02 / cg" |
795 "Modified: / 13-06-2012 / 12:25:10 / cg" |
801 "Modified: / 13-06-2012 / 12:25:10 / cg" |
796 "Modified: / 30-01-2013 / 12:01:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
802 "Modified: / 30-01-2013 / 12:01:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
807 |
813 |
808 |
814 |
809 !ClassDefinitionChange class methodsFor:'documentation'! |
815 !ClassDefinitionChange class methodsFor:'documentation'! |
810 |
816 |
811 version |
817 version |
812 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.75 2013-03-27 18:18:21 cg Exp $' |
818 ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.76 2013-03-30 01:54:34 cg Exp $' |
813 ! |
819 ! |
814 |
820 |
815 version_HG |
821 version_HG |
816 |
822 |
817 ^ '$Changeset: <not expanded> $' |
823 ^ '$Changeset: <not expanded> $' |