equal
deleted
inserted
replaced
1994 |
1994 |
1995 isDocumentationMethod |
1995 isDocumentationMethod |
1996 "Return true, if this is a documentation only (only a comment) method |
1996 "Return true, if this is a documentation only (only a comment) method |
1997 (implies being a metaclass method)" |
1997 (implies being a metaclass method)" |
1998 |
1998 |
1999 |tree| |
1999 "/ self mclass isMeta ifFalse:[^ false]. |
2000 |
2000 ^ self parse:#'parseMethodSilent:' return:#isEmptyMethod or:false. |
2001 self mclass isMeta ifFalse:[^ false]. |
|
2002 tree := self parse:#'parseMethodSilent:' return:#tree or:nil. |
|
2003 ^ tree isNil |
|
2004 ! |
2001 ! |
2005 |
2002 |
2006 isExternalLibraryFunctionCall |
2003 isExternalLibraryFunctionCall |
2007 "Return true, if this is an externalLibraryFunction call." |
2004 "Return true, if this is an externalLibraryFunction call." |
2008 |
2005 |
2891 ! ! |
2888 ! ! |
2892 |
2889 |
2893 !Method class methodsFor:'documentation'! |
2890 !Method class methodsFor:'documentation'! |
2894 |
2891 |
2895 version |
2892 version |
2896 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.327 2009-09-23 16:53:05 cg Exp $' |
2893 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.328 2009-10-06 14:59:36 fm Exp $' |
|
2894 ! |
|
2895 |
|
2896 version_CVS |
|
2897 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.328 2009-10-06 14:59:36 fm Exp $' |
2897 ! ! |
2898 ! ! |
2898 |
2899 |
2899 Method initialize! |
2900 Method initialize! |