--- a/MethodChange.st Tue Sep 22 19:02:50 2009 +0200
+++ b/MethodChange.st Tue Sep 22 19:03:32 2009 +0200
@@ -255,12 +255,20 @@
"Created: / 09-10-2006 / 13:58:09 / cg"
! !
-!MethodChange methodsFor:'queries'!
+!MethodChange methodsFor:'testing'!
isMethodChange
+ "true if this is a method related change"
+
^ true
"Created: / 7.2.1998 / 19:26:59 / cg"
+!
+
+isMethodCodeChange
+ "true if this is a method's code change (not package, category etc.)"
+
+ ^ self class == MethodChange
! !
!MethodChange::NamedMethodChange class methodsFor:'instance creation'!
@@ -288,5 +296,5 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.48 2009-09-18 12:43:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.49 2009-09-22 17:03:32 cg Exp $'
! !