equal
deleted
inserted
replaced
1043 "/ openInClass:(who methodClass) |
1043 "/ openInClass:(who methodClass) |
1044 "/ selector:(who methodSelector) |
1044 "/ selector:(who methodSelector) |
1045 "/ ]. |
1045 "/ ]. |
1046 "/ listView1 middleButtonMenu:menu. |
1046 "/ listView1 middleButtonMenu:menu. |
1047 |
1047 |
1048 nm := (method whoString) colorizeAllWith:Color blue. |
1048 nm := (method whoString) withColor:Color blue. |
1049 ]. |
1049 ]. |
1050 entries := OrderedCollection new. |
1050 entries := OrderedCollection new. |
1051 newEntry := InfoRow new. |
1051 newEntry := InfoRow new. |
1052 newEntry name:'Compiled method'; value:nm. |
1052 newEntry name:'Compiled method'; value:nm. |
1053 entries add:newEntry. |
1053 entries add:newEntry. |
1080 "/ |
1080 "/ |
1081 list := module functions |
1081 list := module functions |
1082 select:[:f | f notNil] |
1082 select:[:f | f notNil] |
1083 thenCollect:[:f | |entry code| |
1083 thenCollect:[:f | |entry code| |
1084 entry := InfoRow new. |
1084 entry := InfoRow new. |
1085 entry name:(f name colorizeAllWith:Color blue). |
1085 entry name:(f name withColor:Color blue). |
1086 code := f code. |
1086 code := f code. |
1087 code isNil ifTrue:[ |
1087 code isNil ifTrue:[ |
1088 entry value:('address: NULL'). |
1088 entry value:('address: NULL'). |
1089 ] ifFalse:[ |
1089 ] ifFalse:[ |
1090 entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)). |
1090 entry value:('address: (16r) ' , (code address hexPrintString leftPaddedTo:8 with:$0)). |