--- a/Tools__ObjectModuleInformation.st Tue May 11 17:57:45 2010 +0200
+++ b/Tools__ObjectModuleInformation.st Tue May 11 18:17:07 2010 +0200
@@ -988,7 +988,7 @@
showInfoForNonClassLib:sel
"selected a method, cObject or unknown"
- |module fileName list entry|
+ |module fileName list newEntry|
sel isNil ifTrue:[
self table1VisibleHolder value:false.
@@ -1002,7 +1002,7 @@
self canUnloadSelectedDLL value:true.
module isMethodHandle ifTrue:[
- |method nm entry entries|
+ |method nm entries|
self canUnloadSelectedModule value:self readOnly not.
@@ -1027,18 +1027,18 @@
nm := (method whoString) colorizeAllWith:Color blue.
].
entries := OrderedCollection new.
- entry := InfoRow new.
- entry name:'Compiled method'; value:nm.
- entries add:entry.
+ newEntry := InfoRow new.
+ newEntry name:'Compiled method'; value:nm.
+ entries add:newEntry.
- entry := InfoRow new.
- entry name:'Path'; value:fileName.
- entries add:entry.
+ newEntry := InfoRow new.
+ newEntry name:'Path'; value:fileName.
+ entries add:newEntry.
(method notNil and:[method code notNil]) ifTrue:[
- entry := InfoRow new.
- entry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
- entries add:entry.
+ newEntry := InfoRow new.
+ newEntry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
+ entries add:newEntry.
].
self infoTable2ListHolder value:entries.
@@ -1070,9 +1070,9 @@
^ self.
].
- entry := InfoRow new.
- entry name:'Unknown'.
- self infoTable2ListHolder value:(Array with:entry).
+ newEntry := InfoRow new.
+ newEntry name:'Unknown'.
+ self infoTable2ListHolder value:(Array with:newEntry).
self table1VisibleHolder value:false.
self table2VisibleHolder value:true.