equal
deleted
inserted
replaced
4087 ]. |
4087 ]. |
4088 |
4088 |
4089 versionFromSource := Class revisionStringFromSource:src. |
4089 versionFromSource := Class revisionStringFromSource:src. |
4090 versionFromSource = versionFromCode ifTrue:[^ true]. |
4090 versionFromSource = versionFromCode ifTrue:[^ true]. |
4091 |
4091 |
|
4092 versionFromSource isNil ifTrue:[^ false]. |
|
4093 |
4092 "/ mhmh - check my binary version ... |
4094 "/ mhmh - check my binary version ... |
4093 |
4095 |
4094 info := Class revisionInfoFromString:versionFromSource. |
4096 info := Class revisionInfoFromString:versionFromSource. |
4095 info notNil ifTrue:[ |
4097 info notNil ifTrue:[ |
4096 rev := info at:#revision. |
4098 rev := info at:#revision. |
4097 rev = self binaryRevision ifTrue:[^ true]. |
4099 rev = self binaryRevision ifTrue:[^ true]. |
4098 ]. |
4100 ]. |
4099 ^ false |
4101 ^ false |
4100 |
4102 |
4101 "Modified: 16.10.1996 / 17:10:24 / cg" |
4103 "Modified: 18.10.1996 / 21:56:21 / cg" |
4102 ! ! |
4104 ! ! |
4103 |
4105 |
4104 !Class class methodsFor:'documentation'! |
4106 !Class class methodsFor:'documentation'! |
4105 |
4107 |
4106 version |
4108 version |
4107 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.192 1996-10-18 12:30:09 cg Exp $' |
4109 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.193 1996-10-18 21:14:37 cg Exp $' |
4108 ! ! |
4110 ! ! |
4109 Class initialize! |
4111 Class initialize! |