986 ! |
986 ! |
987 |
987 |
988 showInfoForNonClassLib:sel |
988 showInfoForNonClassLib:sel |
989 "selected a method, cObject or unknown" |
989 "selected a method, cObject or unknown" |
990 |
990 |
991 |module fileName list entry| |
991 |module fileName list newEntry| |
992 |
992 |
993 sel isNil ifTrue:[ |
993 sel isNil ifTrue:[ |
994 self table1VisibleHolder value:false. |
994 self table1VisibleHolder value:false. |
995 self table2VisibleHolder value:false. |
995 self table2VisibleHolder value:false. |
996 ^ self. |
996 ^ self. |
1000 fileName := module pathName. |
1000 fileName := module pathName. |
1001 |
1001 |
1002 self canUnloadSelectedDLL value:true. |
1002 self canUnloadSelectedDLL value:true. |
1003 |
1003 |
1004 module isMethodHandle ifTrue:[ |
1004 module isMethodHandle ifTrue:[ |
1005 |method nm entry entries| |
1005 |method nm entries| |
1006 |
1006 |
1007 self canUnloadSelectedModule value:self readOnly not. |
1007 self canUnloadSelectedModule value:self readOnly not. |
1008 |
1008 |
1009 self middleLabelHolder value:'Compiled Method:'. |
1009 self middleLabelHolder value:'Compiled Method:'. |
1010 |
1010 |
1025 "/ listView1 middleButtonMenu:menu. |
1025 "/ listView1 middleButtonMenu:menu. |
1026 |
1026 |
1027 nm := (method whoString) colorizeAllWith:Color blue. |
1027 nm := (method whoString) colorizeAllWith:Color blue. |
1028 ]. |
1028 ]. |
1029 entries := OrderedCollection new. |
1029 entries := OrderedCollection new. |
1030 entry := InfoRow new. |
1030 newEntry := InfoRow new. |
1031 entry name:'Compiled method'; value:nm. |
1031 newEntry name:'Compiled method'; value:nm. |
1032 entries add:entry. |
1032 entries add:newEntry. |
1033 |
1033 |
1034 entry := InfoRow new. |
1034 newEntry := InfoRow new. |
1035 entry name:'Path'; value:fileName. |
1035 newEntry name:'Path'; value:fileName. |
1036 entries add:entry. |
1036 entries add:newEntry. |
1037 |
1037 |
1038 (method notNil and:[method code notNil]) ifTrue:[ |
1038 (method notNil and:[method code notNil]) ifTrue:[ |
1039 entry := InfoRow new. |
1039 newEntry := InfoRow new. |
1040 entry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)). |
1040 newEntry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)). |
1041 entries add:entry. |
1041 entries add:newEntry. |
1042 ]. |
1042 ]. |
1043 |
1043 |
1044 self infoTable2ListHolder value:entries. |
1044 self infoTable2ListHolder value:entries. |
1045 self table1VisibleHolder value:false. |
1045 self table1VisibleHolder value:false. |
1046 self table2VisibleHolder value:true. |
1046 self table2VisibleHolder value:true. |
1068 self table1VisibleHolder value:false. |
1068 self table1VisibleHolder value:false. |
1069 self table2VisibleHolder value:true. |
1069 self table2VisibleHolder value:true. |
1070 ^ self. |
1070 ^ self. |
1071 ]. |
1071 ]. |
1072 |
1072 |
1073 entry := InfoRow new. |
1073 newEntry := InfoRow new. |
1074 entry name:'Unknown'. |
1074 newEntry name:'Unknown'. |
1075 self infoTable2ListHolder value:(Array with:entry). |
1075 self infoTable2ListHolder value:(Array with:newEntry). |
1076 self table1VisibleHolder value:false. |
1076 self table1VisibleHolder value:false. |
1077 self table2VisibleHolder value:true. |
1077 self table2VisibleHolder value:true. |
1078 |
1078 |
1079 "Modified: / 05-10-2007 / 13:01:33 / cg" |
1079 "Modified: / 05-10-2007 / 13:01:33 / cg" |
1080 ! |
1080 ! |