# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1250156415 -7200
# Node ID ca89d472f9cfcc027d6695cd60130c5d287fec70
# Parent  5c7ecb05e744bd99f1fcd1e9f70235b6ef5ed11d
*** empty log message ***

diff -r 5c7ecb05e744 -r ca89d472f9cf Method.st
--- a/Method.st	Thu Aug 13 10:45:02 2009 +0200
+++ b/Method.st	Thu Aug 13 11:40:15 2009 +0200
@@ -2051,6 +2051,13 @@
     ^ (res := self resources) notNil and:[res includesKey:#obsolete]
 !
 
+isVisualWorksTypedef
+    "Return true, if this is a type-returning method (a visualWorks typedef)"
+
+    ^ (self literals size > 0)
+    and:[ (self literalAt:1) isKindOf:CType ]
+!
+
 mclass
     "return the class in which the receiver was compiled.
      Same as #containingClass, for ST80 compatibility."
@@ -2854,7 +2861,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.320 2009-06-20 09:16:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.321 2009-08-13 09:40:15 cg Exp $'
 ! !
 
 Method initialize!