--- 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 $'
! !