--- 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!