# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1317325318 -7200
# Node ID 5788b9c7c19bedae6ef0fe64e9a35b20a84f1a6c
# Parent  118c4294d9cd7c5af7294aba210cc57882495808
changed: #showInfoForClassLib:

diff -r 118c4294d9cd -r 5788b9c7c19b Tools__ObjectModuleInformation.st
--- a/Tools__ObjectModuleInformation.st	Mon Sep 26 12:50:10 2011 +0200
+++ b/Tools__ObjectModuleInformation.st	Thu Sep 29 21:41:58 2011 +0200
@@ -928,7 +928,7 @@
 
     classNamesShown := self shownClassNamesFor:info.
     rows := classNamesShown collect:[:eachClassName |
-                    |cls entry rev listEntry revisionInfo versionString dateString|
+                    |cls entry rev binRev listEntry revisionInfo versionString dateString|
 
                     listEntry := InfoRow new.
                     listEntry name:eachClassName.
@@ -947,15 +947,15 @@
                             versionString := '(class removed)'.
                         ].
                     ] ifFalse:[
-                        rev := cls binaryRevision.
-                        rev notNil ifTrue:[
+                        binRev := cls binaryRevision.
+                        binRev notNil ifTrue:[
                             cls isLoaded ifTrue:[
-                                entry :='(bin: ' , rev.
+                                entry :='(bin: ' , binRev.
                             ] ifFalse:[
-                                entry := '(stub for: ' , rev.
+                                entry := '(stub for: ' , binRev.
                             ].    
-                            cls revision ~= rev ifTrue:[
-                                entry := entry , ' / src: ' , (cls revision printString)
+                            (rev := cls revision) ~= binRev ifTrue:[
+                                entry := entry , ' / src: ' , (rev printString)
                             ].
                             entry := entry , ')'.
                             versionString := entry
@@ -979,7 +979,7 @@
     self table1VisibleHolder value:true.
     self table2VisibleHolder value:false.
 
-    "Modified: / 05-10-2007 / 13:03:56 / cg"
+    "Modified: / 29-09-2011 / 15:40:42 / cg"
 !
 
 showInfoForNonClassLib:sel