# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1220432299 -7200
# Node ID 553e658691d213205110af6b4b1fc366fbea76b2
# Parent  da935faeca94576c05bcc67c4ac3a8e4f973191b
+classIsMeta

diff -r da935faeca94 -r 553e658691d2 Method.st
--- 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!