--- a/Tools__Inspector2.st Thu Dec 01 09:29:26 2016 +0000
+++ b/Tools__Inspector2.st Sat Dec 03 09:29:15 2016 +0000
@@ -1491,13 +1491,13 @@
| tab |
[
- selector == #inspector2TabForBasicInspect ifTrue:[
- "kludge for ProtoObject, which does not implement this selector
+ (selector == #inspector2TabForBasicInspect and:[theObject isProtoObject]) ifTrue:[
+ "kludge for ProtoObject, which does neither implement this selector
nor #perform:"
tab := Tools::Inspector2Tab new
priority: 90;
label:'Basic';
- view: (InspectorView new inspect:self);
+ view: (InspectorView new inspect:theObject);
yourself
] ifFalse:[
tab := theObject perform:selector.