equal
deleted
inserted
replaced
122 "Created: / 16.2.1998 / 12:29:49 / cg" |
122 "Created: / 16.2.1998 / 12:29:49 / cg" |
123 "Modified: / 16.2.1998 / 14:28:12 / cg" |
123 "Modified: / 16.2.1998 / 14:28:12 / cg" |
124 ! |
124 ! |
125 |
125 |
126 delta |
126 delta |
|
127 "/ obsolete: please use deltaDetail |
127 |
128 |
128 | mth | |
129 | mth | |
129 |
130 |
130 self isMethodCodeChange ifFalse:[^super delta]. |
131 self isMethodCodeChange ifFalse:[^super delta]. |
131 mth := self changeMethod. |
132 mth := self changeMethod. |
132 mth ifNil:[^#+]. |
133 mth ifNil:[^#+]. |
133 ^(self class isSource: self source sameSourceAs: mth source) |
134 ^(self class isSource: self source sameSourceAs: mth source) |
134 ifTrue:[#=] |
135 ifTrue:[#=] |
135 ifFalse:[#~] |
136 ifFalse:[#~] |
|
137 |
|
138 "Modified (comment): / 31-08-2011 / 10:29:55 / cg" |
|
139 ! |
|
140 |
|
141 deltaDetail |
|
142 "Returns a delta to the current state as a ChangeDelta object" |
|
143 |
|
144 | mth mySource imageSource| |
|
145 |
|
146 self isMethodCodeChange ifFalse:[^super deltaDetail]. |
|
147 mth := self changeMethod. |
|
148 mth isNil ifTrue:[^ ChangeDeltaInformation added ]. |
|
149 mySource := self source. |
|
150 imageSource := mth source. |
|
151 ^(self class isSource: mySource sameSourceAs: imageSource) |
|
152 ifTrue:[ ChangeDeltaInformation identical ] |
|
153 ifFalse:[ ChangeDeltaInformation different ] |
|
154 |
|
155 "Created: / 31-08-2011 / 10:27:58 / cg" |
136 ! |
156 ! |
137 |
157 |
138 imageSource |
158 imageSource |
139 |
159 |
140 | mth | |
160 | mth | |
321 ^ '(' , className , ' compiledMethodAt:' , selector asSymbol storeString, ')' |
341 ^ '(' , className , ' compiledMethodAt:' , selector asSymbol storeString, ')' |
322 |
342 |
323 "Created: / 09-10-2006 / 13:58:09 / cg" |
343 "Created: / 09-10-2006 / 13:58:09 / cg" |
324 ! ! |
344 ! ! |
325 |
345 |
326 |
|
327 !MethodChange methodsFor:'testing'! |
346 !MethodChange methodsFor:'testing'! |
328 |
347 |
329 isMethodChange |
348 isMethodChange |
330 "true if this is a method related change" |
349 "true if this is a method related change" |
331 |
350 |
368 ! ! |
387 ! ! |
369 |
388 |
370 !MethodChange class methodsFor:'documentation'! |
389 !MethodChange class methodsFor:'documentation'! |
371 |
390 |
372 version_CVS |
391 version_CVS |
373 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.58 2011-07-25 10:40:48 vrany Exp $' |
392 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.59 2011-08-31 10:06:12 cg Exp $' |
374 ! |
393 ! |
375 |
394 |
376 version_SVN |
395 version_SVN |
377 ^ '§ Id: MethodChange.st 1867 2011-06-08 21:57:08Z vranyj1 §' |
396 ^ '§ Id: MethodChange.st 1867 2011-06-08 21:57:08Z vranyj1 §' |
378 ! ! |
397 ! ! |