class: Tools::ObjectModuleInformation
authorClaus Gittinger <cg@exept.de>
Tue, 19 Feb 2013 00:10:33 +0100
changeset 2957 299bc0925dab
parent 2956 896ab35eea5d
child 2958 d842f4a91d44
class: Tools::ObjectModuleInformation changed: #showInfoForClassLib:
Tools__ObjectModuleInformation.st
--- a/Tools__ObjectModuleInformation.st	Sat Feb 02 01:23:18 2013 +0100
+++ b/Tools__ObjectModuleInformation.st	Tue Feb 19 00:10:33 2013 +0100
@@ -937,7 +937,7 @@
                     cls isNil ifTrue:[
                         (self isExtensionName:eachClassName) ifTrue:[
                             projectDefinitionClass notNil ifTrue:[
-                                mgr := projectDefinitionClass sourceCodeManager.
+                                mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager.
                                 versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
                                 versionString notNil ifTrue:[
                                     versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
@@ -1559,3 +1559,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+