--- a/extensions.st Fri Nov 04 14:56:17 2011 +0100
+++ b/extensions.st Mon Nov 07 12:37:53 2011 +0100
@@ -211,6 +211,19 @@
!CharacterArray methodsFor:'inspecting'!
+inspector2TabHTML
+
+ ^self newInspector2Tab
+ label: 'HTML';
+ priority: 35;
+ view: ((ScrollableView for:HTMLDocumentView) setText: self; yourself)
+
+ "Created: / 17-02-2008 / 10:10:50 / janfrog"
+ "Created: / 07-11-2011 / 12:35:15 / cg"
+! !
+
+!CharacterArray methodsFor:'inspecting'!
+
inspector2TabText
^self newInspector2Tab
@@ -225,6 +238,11 @@
!CharacterArray methodsFor:'inspecting'!
inspector2Tabs
+ HTMLDocumentView notNil ifTrue:[
+ (self startsWith:'<!!DOCTYPE html') ifTrue:[
+ ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes inspector2TabHTML )
+ ].
+ ].
^ #( inspector2TabCommon inspector2TabText inspector2TabBytes )
"Created: / 05-07-2011 / 13:40:27 / cg"
@@ -1786,5 +1804,5 @@
!stx_libtool class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.66 2011-10-19 22:51:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.67 2011-11-07 11:37:53 cg Exp $'
! !
\ No newline at end of file