--- a/Tools__ObjectModuleInformation.st Wed Mar 02 17:13:57 2016 +0100
+++ b/Tools__ObjectModuleInformation.st Thu Mar 10 13:33:33 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:libtool2' }"
"{ NameSpace: Tools }"
@@ -1078,11 +1080,17 @@
"/ menu actionAt:#inspect put:[ module functions inspect ].
"/ listView1 middleButtonMenu:menu.
"/
- list := (module functions select:[:f | f notNil])
- collect:[:f | |entry|
+ list := module functions
+ select:[:f | f notNil]
+ thenCollect:[:f | |entry code|
entry := InfoRow new.
entry name:(f name colorizeAllWith:Color blue).
- entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
+ code := f code.
+ code isNil ifTrue:[
+ entry value:('address: NULL').
+ ] ifFalse:[
+ entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)).
+ ].
entry
].
self infoTable2ListHolder value:list.