equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:libtool2' }" |
3 "{ Package: 'stx:libtool2' }" |
2 |
4 |
3 "{ NameSpace: Tools }" |
5 "{ NameSpace: Tools }" |
4 |
6 |
5 ToolApplicationModel subclass:#ObjectModuleInformation |
7 ToolApplicationModel subclass:#ObjectModuleInformation |
1076 "/ labels:#('Inspect') |
1078 "/ labels:#('Inspect') |
1077 "/ selectors:#(inspect). |
1079 "/ selectors:#(inspect). |
1078 "/ menu actionAt:#inspect put:[ module functions inspect ]. |
1080 "/ menu actionAt:#inspect put:[ module functions inspect ]. |
1079 "/ listView1 middleButtonMenu:menu. |
1081 "/ listView1 middleButtonMenu:menu. |
1080 "/ |
1082 "/ |
1081 list := (module functions select:[:f | f notNil]) |
1083 list := module functions |
1082 collect:[:f | |entry| |
1084 select:[:f | f notNil] |
|
1085 thenCollect:[:f | |entry code| |
1083 entry := InfoRow new. |
1086 entry := InfoRow new. |
1084 entry name:(f name colorizeAllWith:Color blue). |
1087 entry name:(f name colorizeAllWith:Color blue). |
1085 entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)). |
1088 code := f code. |
|
1089 code isNil ifTrue:[ |
|
1090 entry value:('address: NULL'). |
|
1091 ] ifFalse:[ |
|
1092 entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)). |
|
1093 ]. |
1086 entry |
1094 entry |
1087 ]. |
1095 ]. |
1088 self infoTable2ListHolder value:list. |
1096 self infoTable2ListHolder value:list. |
1089 self table1VisibleHolder value:false. |
1097 self table1VisibleHolder value:false. |
1090 self table2VisibleHolder value:true. |
1098 self table2VisibleHolder value:true. |