--- a/MethodChange.st Wed Oct 07 14:14:42 2009 +0200
+++ b/MethodChange.st Wed Oct 07 14:15:20 2009 +0200
@@ -266,6 +266,11 @@
"Created: / 7.2.1998 / 19:26:59 / cg"
!
+isMethodChangeForVersionMethod
+ ^ self isMethodCodeChange
+ and:[ AbstractSourceCodeManager isVersionMethodSelector:self selector ]
+!
+
isMethodCodeChange
"true if this is a method's code change (not package, category etc.)"
@@ -297,5 +302,9 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.51 2009-09-24 10:13:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.52 2009-10-07 12:15:20 fm Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.52 2009-10-07 12:15:20 fm Exp $'
! !