--- 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