extensions.st
changeset 17100 9b62a75af74f
parent 17068 5fb10da2bf01
child 17128 c3284e91065f
child 17137 2c2f7c9fc909
--- a/extensions.st	Thu Nov 24 09:38:30 2016 +0100
+++ b/extensions.st	Thu Nov 24 09:55:30 2016 +0100
@@ -1288,6 +1288,9 @@
 !Image methodsFor:'inspecting'!
 
 inspector2TabImage
+    "an extra tab showing the image;
+     Q: is this needed? (the displayObject tab already shows this)"
+    
     ^ self newInspector2Tab
         label: 'Image';
         priority: 50;
@@ -1299,7 +1302,11 @@
 !Image methodsFor:'inspecting'!
 
 inspector2Tabs
-    ^ super inspector2Tabs copyWith:#inspector2TabImage
+    |tabs|
+    
+    tabs := super inspector2Tabs.
+    tabs := tabs copyWithout:#inspector2TabDisplayObject.
+    ^ tabs copyWith:#inspector2TabImage
 
     "Created: / 11-10-2011 / 17:11:21 / cg"
     "Modified: / 13-02-2015 / 21:02:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -1789,7 +1796,7 @@
     "a tab, showing the old basic inspector"
 
     ^ Tools::Inspector2Tab new
-            priority: 40;
+            priority: 90;
             label:'Basic';
             view: (InspectorView new inspect:self);
             yourself