# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1470739809 -7200
# Node ID a3f528d8797db85b35e1a0ad63a7c6afb9665a61
# Parent  c658333e6e722a75e87d46a18e3e6b7fe31cad60
DisplayView extension in Inspector2

diff -r c658333e6e72 -r a3f528d8797d extensions.st
--- a/extensions.st	Tue Aug 09 04:39:24 2016 +0200
+++ b/extensions.st	Tue Aug 09 12:50:09 2016 +0200
@@ -1253,8 +1253,7 @@
 !Image methodsFor:'inspecting'!
 
 inspector2TabImage
-
-    ^self newInspector2Tab
+    ^ self newInspector2Tab
         label: 'Image';
         priority: 50;
         view: ((HVScrollableView for:ImageView) image: self; yourself)
@@ -1265,7 +1264,7 @@
 !Image methodsFor:'inspecting'!
 
 inspector2Tabs
-    ^ super inspector2Tabs , #( inspector2TabImage )
+    ^ super inspector2Tabs copyWith:#inspector2TabImage
 
     "Created: / 11-10-2011 / 17:11:21 / cg"
     "Modified: / 13-02-2015 / 21:02:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1720,6 +1719,17 @@
 
 !Object methodsFor:'inspecting'!
 
+inspector2TabDisplayObject
+    ^ self newInspector2Tab
+        label: 'DisplayObject';
+        priority: 50;
+        view: ((HVScrollableView for:DisplayObjectView) model: self; yourself)
+
+    "Created: / 11-10-2011 / 17:12:01 / cg"
+! !
+
+!Object methodsFor:'inspecting'!
+
 inspector2TabForBasicInspect
     "a tab, showing the old basic inspector"
 
@@ -1765,6 +1775,12 @@
                 ifTrue:[#( inspector2TabCommon inspector2TabForBasicInspect )]
                 ifFalse:[#( inspector2TabCommon )].
 
+    ((self class whichClassIncludesSelector:#displayOn:x:y:) ~~ Object
+     or:[(self class whichClassIncludesSelector:#displayOn:x:y:opaque:) ~~ Object
+     or:[(self class whichClassIncludesSelector:#displayOpaqueOn:x:y:) ~~ Object]]) ifTrue:[
+        tabs := tabs copyWith:#inspector2TabDisplayObject.
+    ].
+
     "/ Workaround for stc bug
     ((self class lookupMethodFor: #inspector2TabClass) annotationAt: #inspector2Tab) isNil ifTrue:[ 
         tabs := tabs copyWith:#inspector2TabClass