diff -r 32b2ae3350b9 -r c3a22fdc3759 Tools__ObjectModuleInformation.st --- 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.