equal
deleted
inserted
replaced
1990 (IUnknownPointer compiledMethodAt:#invokeAddRef) isOLECall |
1990 (IUnknownPointer compiledMethodAt:#invokeAddRef) isOLECall |
1991 (IUnknownPointer compiledMethodAt:#invokeAddRef) indexOfOLECall |
1991 (IUnknownPointer compiledMethodAt:#invokeAddRef) indexOfOLECall |
1992 " |
1992 " |
1993 ! |
1993 ! |
1994 |
1994 |
|
1995 isDocumentationMethod |
|
1996 "Return true, if this is a documentation only (only a comment) method" |
|
1997 |
|
1998 |tree| |
|
1999 |
|
2000 tree := self parse:#'parseMethodSilent:' return:#tree or:nil. |
|
2001 ^ tree isNil |
|
2002 ! |
|
2003 |
1995 isExternalLibraryFunctionCall |
2004 isExternalLibraryFunctionCall |
1996 "Return true, if this is an externalLibraryFunction call." |
2005 "Return true, if this is an externalLibraryFunction call." |
1997 |
2006 |
1998 ^ self externalLibraryFunction notNil |
2007 ^ self externalLibraryFunction notNil |
1999 ! |
2008 ! |
2056 ! |
2065 ! |
2057 |
2066 |
2058 isVersionMethod |
2067 isVersionMethod |
2059 "Return true, if this is a CVS version method" |
2068 "Return true, if this is a CVS version method" |
2060 |
2069 |
2061 ^ self selector == #version and:[ self mclass isMeta ] |
2070 ^ (self selector == #version) and:[ self mclass isMeta ] |
2062 |
2071 |
2063 " |
2072 " |
2064 (Method class compiledMethodAt:#version) isVersionMethod |
2073 (Method class compiledMethodAt:#version) isVersionMethod |
2065 (Method class compiledMethodAt:#documentation) isVersionMethod |
2074 (Method class compiledMethodAt:#documentation) isVersionMethod |
2066 " |
2075 " |
2874 ! ! |
2883 ! ! |
2875 |
2884 |
2876 !Method class methodsFor:'documentation'! |
2885 !Method class methodsFor:'documentation'! |
2877 |
2886 |
2878 version |
2887 version |
2879 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.323 2009-09-21 12:49:21 cg Exp $' |
2888 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.324 2009-09-21 13:07:51 cg Exp $' |
2880 ! ! |
2889 ! ! |
2881 |
2890 |
2882 Method initialize! |
2891 Method initialize! |