--- a/MethodChange.st Tue Oct 30 10:38:39 2012 +0100
+++ b/MethodChange.st Tue Oct 30 14:57:12 2012 +0100
@@ -76,7 +76,7 @@
!MethodChange class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.66 2012-07-31 12:24:31 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.67 2012-10-30 13:57:12 cg Exp $'
! !
!MethodChange methodsFor:'accessing'!
@@ -404,7 +404,6 @@
"Created: / 09-10-2006 / 13:58:09 / cg"
! !
-
!MethodChange methodsFor:'testing'!
isMethodChange
@@ -415,6 +414,11 @@
"Created: / 7.2.1998 / 19:26:59 / cg"
!
+isMethodChangeForExtensionsVersionMethod
+ ^ self isMethodCodeChange
+ and:[ AbstractSourceCodeManager isExtensionsVersionMethodSelector:self selector ]
+!
+
isMethodChangeForVersionMethod
^ self isMethodCodeChange
and:[ AbstractSourceCodeManager isVersionMethodSelector:self selector ]