equal
deleted
inserted
replaced
953 |
953 |
954 cls := Smalltalk classNamed:eachClassName. |
954 cls := Smalltalk classNamed:eachClassName. |
955 cls isNil ifTrue:[ |
955 cls isNil ifTrue:[ |
956 (self isExtensionName:eachClassName) ifTrue:[ |
956 (self isExtensionName:eachClassName) ifTrue:[ |
957 projectDefinitionClass notNil ifTrue:[ |
957 projectDefinitionClass notNil ifTrue:[ |
958 mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager. |
958 mgr := projectDefinitionClass sourceCodeManager. |
959 versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil. |
959 mgr notNil ifTrue:[ |
960 versionString notNil ifTrue:[ |
960 versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil. |
961 versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'. |
961 versionString notNil ifTrue:[ |
962 ] |
962 versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'. |
|
963 ] |
|
964 ] ifFalse:[ |
|
965 versionString := '(SCM disabled)'. |
|
966 ]. |
963 ]. |
967 ]. |
964 ] ifFalse:[ |
968 ] ifFalse:[ |
965 versionString := '(class removed)'. |
969 versionString := '(class removed)'. |
966 ]. |
970 ]. |
967 ] ifFalse:[ |
971 ] ifFalse:[ |