Tools__Inspector2.st
branchjv
changeset 17140 c2a83a451e3b
parent 17139 bbe5b1ec2b88
parent 17127 ddc52a770246
child 17163 4bf9cb558e1c
--- 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.