MethodChange.st
branchjv
changeset 3095 5843e7139014
parent 3078 3f5abbdcbde9
child 3121 19723298dd2c
child 3122 91c582043a51
child 3125 08d6603c4fe9
--- a/MethodChange.st	Sun Nov 18 19:46:19 2012 +0000
+++ b/MethodChange.st	Fri Nov 30 17:20:01 2012 +0000
@@ -73,12 +73,6 @@
     ^ self basicNew className:clsName selector:sel source:src category:cat
 ! !
 
-!MethodChange class methodsFor:'others'!
-
-version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.66 2012/07/31 12:24:31 vrany Exp §'
-! !
-
 !MethodChange methodsFor:'accessing'!
 
 category
@@ -420,7 +414,16 @@
     "Created: / 01-08-2012 / 16:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+isMethodChangeForExtensionsVersionMethod
+    "true if this is a change for an extensionsVersion method"
+
+    ^  self isMethodCodeChange
+    and:[ AbstractSourceCodeManager isExtensionsVersionMethodSelector:self selector ]
+!
+
 isMethodChangeForVersionMethod
+    "true if this is a change for a version method"
+
     ^  self isMethodCodeChange
     and:[ AbstractSourceCodeManager isVersionMethodSelector:self selector ]
 !
@@ -464,9 +467,13 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Id: MethodChange.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.68 2012/10/30 14:25:11 cg Exp $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.68 2012/10/30 14:25:11 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: MethodChange.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+    ^ '$Id: MethodChange.st 1981 2012-11-30 17:20:01Z vranyj1 $'
 ! !