class: Tools::ObjectModuleInformation
changed: #showInfoForClassLib:
care for nil manager
--- a/Tools__ObjectModuleInformation.st Wed Nov 26 13:08:15 2014 +0100
+++ b/Tools__ObjectModuleInformation.st Thu Nov 27 21:12:25 2014 +0100
@@ -955,11 +955,15 @@
cls isNil ifTrue:[
(self isExtensionName:eachClassName) ifTrue:[
projectDefinitionClass notNil ifTrue:[
- mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager.
- versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
- versionString notNil ifTrue:[
- versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
- ]
+ mgr := projectDefinitionClass sourceCodeManager.
+ mgr notNil ifTrue:[
+ versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
+ versionString notNil ifTrue:[
+ versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
+ ]
+ ] ifFalse:[
+ versionString := '(SCM disabled)'.
+ ].
].
] ifFalse:[
versionString := '(class removed)'.