4821 (versionMethod isNil |
4821 (versionMethod isNil |
4822 or:[versionMethod isExecutable not]) ifTrue:[ |
4822 or:[versionMethod isExecutable not]) ifTrue:[ |
4823 versionMethod := cls compiledMethodAt:#version. |
4823 versionMethod := cls compiledMethodAt:#version. |
4824 (versionMethod isNil |
4824 (versionMethod isNil |
4825 or:[versionMethod isExecutable not]) ifTrue:[ |
4825 or:[versionMethod isExecutable not]) ifTrue:[ |
4826 cannotCheckReason := 'no version method'. |
4826 cannotCheckReason := 'no valid version method'. |
4827 ] |
4827 ] |
4828 ]. |
4828 ] ifFalse:[ |
4829 |
4829 "/ |
4830 "/ |
4830 "/ if its a method returning the string, |
4831 "/ if its a method returning the string, |
4831 "/ thats the returned value |
4832 "/ thats the returned value |
4832 "/ |
4833 "/ |
4833 versionFromCode := cls version. |
4834 versionFromCode := cls version. |
4834 versionFromCode isString ifFalse:[ |
4835 versionFromCode isString ifFalse:[ |
4835 cannotCheckReason := 'version method does not return a string' |
4836 cannotCheckReason := 'version method does not return a string' |
4836 ]. |
4837 ]. |
4837 ]. |
4838 |
4838 |
4839 "/ |
4839 "/ |
4840 "/ if its a method consisting of a comment only |
4840 "/ if its a method consisting of a comment only |
4841 "/ extract it - this may lead to a recursive call |
4841 "/ extract it - this may lead to a recursive call |
4883 rev := info at:#revision. |
4883 rev := info at:#revision. |
4884 rev = self binaryRevision ifTrue:[^ true]. |
4884 rev = self binaryRevision ifTrue:[^ true]. |
4885 ]. |
4885 ]. |
4886 ^ false |
4886 ^ false |
4887 |
4887 |
4888 "Modified: 10.1.1997 / 15:36:51 / cg" |
4888 "Modified: 13.4.1997 / 02:18:09 / cg" |
4889 ! ! |
4889 ! ! |
4890 |
4890 |
4891 !Class class methodsFor:'documentation'! |
4891 !Class class methodsFor:'documentation'! |
4892 |
4892 |
4893 version |
4893 version |
4894 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.272 1997-04-01 16:05:27 ca Exp $' |
4894 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.273 1997-04-13 00:18:58 cg Exp $' |
4895 ! ! |
4895 ! ! |
4896 Class initialize! |
4896 Class initialize! |