--- 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