# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1417119145 -3600
# Node ID 71dab9730c8847a43471f128713e25f344b6188b
# Parent  c4e94501002c5a1192b7c5e9ae642a1ba48a5160
class: Tools::ObjectModuleInformation
changed: #showInfoForClassLib:
care for nil manager

diff -r c4e94501002c -r 71dab9730c88 Tools__ObjectModuleInformation.st
--- 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)'.