--- a/Method.st Mon Sep 21 14:49:21 2009 +0200
+++ b/Method.st Mon Sep 21 15:07:51 2009 +0200
@@ -1992,6 +1992,15 @@
"
!
+isDocumentationMethod
+ "Return true, if this is a documentation only (only a comment) method"
+
+ |tree|
+
+ tree := self parse:#'parseMethodSilent:' return:#tree or:nil.
+ ^ tree isNil
+!
+
isExternalLibraryFunctionCall
"Return true, if this is an externalLibraryFunction call."
@@ -2058,7 +2067,7 @@
isVersionMethod
"Return true, if this is a CVS version method"
- ^ self selector == #version and:[ self mclass isMeta ]
+ ^ (self selector == #version) and:[ self mclass isMeta ]
"
(Method class compiledMethodAt:#version) isVersionMethod
@@ -2876,7 +2885,7 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.323 2009-09-21 12:49:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.324 2009-09-21 13:07:51 cg Exp $'
! !
Method initialize!