Tools__Inspector2.st
branchjv
changeset 17163 4bf9cb558e1c
parent 17140 c2a83a451e3b
parent 17153 52b99321786d
child 17215 4a42de8e888a
--- a/Tools__Inspector2.st	Wed Dec 07 06:44:00 2016 +0100
+++ b/Tools__Inspector2.st	Mon Dec 12 11:58:14 2016 +0000
@@ -1529,8 +1529,8 @@
     tabs := OrderedCollection new.        
 
     "/ Old style - tabs are specified by method #inspector2Tabs
-    (theObject isProtoObject or:[theObject isNil]) ifTrue:[
-        "kludge for ProtoObject, which does not implement this selector
+    (theObject isProtoObject or:[theObject isNil or:[theObject isStructure]]) ifTrue:[
+        "kludge for ProtoObject and Structure, which does not implement this selector
          nor #perform: -- see #initializeTab:"
         selectors := #(inspector2TabForBasicInspect).
     ] ifFalse:[