equal
deleted
inserted
replaced
935 |
935 |
936 cls := Smalltalk classNamed:eachClassName. |
936 cls := Smalltalk classNamed:eachClassName. |
937 cls isNil ifTrue:[ |
937 cls isNil ifTrue:[ |
938 (self isExtensionName:eachClassName) ifTrue:[ |
938 (self isExtensionName:eachClassName) ifTrue:[ |
939 projectDefinitionClass notNil ifTrue:[ |
939 projectDefinitionClass notNil ifTrue:[ |
940 mgr := projectDefinitionClass sourceCodeManager. |
940 mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager. |
941 versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil. |
941 versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil. |
942 versionString notNil ifTrue:[ |
942 versionString notNil ifTrue:[ |
943 versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'. |
943 versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'. |
944 ] |
944 ] |
945 ]. |
945 ]. |
1557 ! |
1557 ! |
1558 |
1558 |
1559 version_CVS |
1559 version_CVS |
1560 ^ '$Header$' |
1560 ^ '$Header$' |
1561 ! ! |
1561 ! ! |
|
1562 |