equal
deleted
inserted
replaced
1511 "Initializes an extra tab specified by given selector" |
1511 "Initializes an extra tab specified by given selector" |
1512 |
1512 |
1513 | tab | |
1513 | tab | |
1514 |
1514 |
1515 [ |
1515 [ |
1516 selector == #inspector2TabForBasicInspect ifTrue:[ |
1516 (selector == #inspector2TabForBasicInspect and:[theObject isProtoObject]) ifTrue:[ |
1517 "kludge for ProtoObject, which does not implement this selector |
1517 "kludge for ProtoObject, which does neither implement this selector |
1518 nor #perform:" |
1518 nor #perform:" |
1519 tab := Tools::Inspector2Tab new |
1519 tab := Tools::Inspector2Tab new |
1520 priority: 90; |
1520 priority: 90; |
1521 label:'Basic'; |
1521 label:'Basic'; |
1522 view: (InspectorView new inspect:self); |
1522 view: (InspectorView new inspect:theObject); |
1523 yourself |
1523 yourself |
1524 ] ifFalse:[ |
1524 ] ifFalse:[ |
1525 tab := theObject perform:selector. |
1525 tab := theObject perform:selector. |
1526 ]. |
1526 ]. |
1527 ] on: Error do:[:ex| |
1527 ] on: Error do:[:ex| |