equal
deleted
inserted
replaced
2067 ! |
2067 ! |
2068 |
2068 |
2069 isVersionMethod |
2069 isVersionMethod |
2070 "Return true, if this is a CVS version method" |
2070 "Return true, if this is a CVS version method" |
2071 |
2071 |
2072 ^ (self selector == #version) and:[ self mclass isMeta ] |
2072 |selector| |
|
2073 |
|
2074 ^ self mclass isMeta |
|
2075 and:[ ((selector := self selector) == #version) |
|
2076 or:[ selector startsWith:'version_' ]] |
2073 |
2077 |
2074 " |
2078 " |
2075 (Method class compiledMethodAt:#version) isVersionMethod |
2079 (Method class compiledMethodAt:#version) isVersionMethod |
2076 (Method class compiledMethodAt:#documentation) isVersionMethod |
2080 (Method class compiledMethodAt:#documentation) isVersionMethod |
2077 " |
2081 " |
2885 ! ! |
2889 ! ! |
2886 |
2890 |
2887 !Method class methodsFor:'documentation'! |
2891 !Method class methodsFor:'documentation'! |
2888 |
2892 |
2889 version |
2893 version |
2890 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.325 2009-09-21 13:33:37 cg Exp $' |
2894 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.326 2009-09-23 16:52:28 cg Exp $' |
2891 ! ! |
2895 ! ! |
2892 |
2896 |
2893 Method initialize! |
2897 Method initialize! |