--- a/extensions.st Tue Oct 11 13:56:37 2011 +0200
+++ b/extensions.st Tue Oct 11 17:15:44 2011 +0200
@@ -683,6 +683,26 @@
!Image methodsFor:'inspecting'!
+inspector2TabImage
+
+ ^self newInspector2Tab
+ label: 'Image';
+ priority: 50;
+ view: ((ScrollableView for:ImageView) image: self; yourself)
+
+ "Created: / 11-10-2011 / 17:12:01 / cg"
+! !
+
+!Image methodsFor:'inspecting'!
+
+inspector2Tabs
+ ^ #( inspector2TabForBasicInspect inspector2TabImage )
+
+ "Created: / 11-10-2011 / 17:11:21 / cg"
+! !
+
+!Image methodsFor:'inspecting'!
+
inspectorClass
"redefined to launch an ImageInspector
(instead of the default InspectorView)."
@@ -1766,5 +1786,5 @@
!stx_libtool class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.63 2011-10-10 15:53:55 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.64 2011-10-11 15:15:44 cg Exp $'
! !
\ No newline at end of file