equal
deleted
inserted
replaced
2049 |res| |
2049 |res| |
2050 |
2050 |
2051 ^ (res := self resources) notNil and:[res includesKey:#obsolete] |
2051 ^ (res := self resources) notNil and:[res includesKey:#obsolete] |
2052 ! |
2052 ! |
2053 |
2053 |
|
2054 isVisualWorksTypedef |
|
2055 "Return true, if this is a type-returning method (a visualWorks typedef)" |
|
2056 |
|
2057 ^ (self literals size > 0) |
|
2058 and:[ (self literalAt:1) isKindOf:CType ] |
|
2059 ! |
|
2060 |
2054 mclass |
2061 mclass |
2055 "return the class in which the receiver was compiled. |
2062 "return the class in which the receiver was compiled. |
2056 Same as #containingClass, for ST80 compatibility." |
2063 Same as #containingClass, for ST80 compatibility." |
2057 |
2064 |
2058 ^ self containingClass |
2065 ^ self containingClass |
2852 ! ! |
2859 ! ! |
2853 |
2860 |
2854 !Method class methodsFor:'documentation'! |
2861 !Method class methodsFor:'documentation'! |
2855 |
2862 |
2856 version |
2863 version |
2857 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.320 2009-06-20 09:16:54 stefan Exp $' |
2864 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.321 2009-08-13 09:40:15 cg Exp $' |
2858 ! ! |
2865 ! ! |
2859 |
2866 |
2860 Method initialize! |
2867 Method initialize! |