--- a/Method.st Wed Sep 03 10:46:15 2008 +0200
+++ b/Method.st Wed Sep 03 10:58:19 2008 +0200
@@ -293,6 +293,12 @@
!Method methodsFor:'Compatibility-VW'!
+classIsMeta
+ "return true, if this method is a class method"
+
+ ^ self mclass isMeta
+!
+
sendsSelector:aSelectorSymbol
"return true, if this method contains a message-send
with aSelectorSymbol as selector."
@@ -2832,7 +2838,7 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.315 2008-06-28 12:17:18 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.316 2008-09-03 08:58:19 cg Exp $'
! !
Method initialize!