extensions.st
changeset 10807 4eddbcaaa085
parent 10795 6f44639ec301
child 10816 a435e49cd6ab
--- 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