# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1320665873 -3600
# Node ID 26a08a701fde8abb71b7e4cb7ed4be0c2da9faa2
# Parent  9c6984507740a5497c3f22b4213326e0bc16f0a0
string: inspector \"knows\" about html

diff -r 9c6984507740 -r 26a08a701fde extensions.st
--- 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