Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
extensions.st
changeset 17173 8a29e40204a3
parent 17171 e74741ba46ba
child 17174 c79ff7f30185 
--- a/extensions.st	Mon Dec 19 13:19:13 2016 +0100
+++ b/extensions.st	Tue Dec 20 12:10:08 2016 +0100
@@ -501,9 +501,12 @@
 !CharacterArray methodsFor:'inspecting'!
 
 inspector2TabHTML
-    "/ use smalltalk at, to prevent HTMLDocumentView becoming a prereq of libbasic
+    |lcString|
+    
+    "/ use Smalltalk >> at:, to prevent HTMLDocumentView becoming a prereq of libbasic
     (Smalltalk at:#HTMLDocumentView) notNil ifTrue:[
-        ((self startsWith:'<!!DOCTYPE html') or:[ (self startsWith:'<html>') ]) ifTrue:[
+        lcString := self asLowercase.
+        ((lcString startsWith:'<!!doctype html' ) or:[ (lcString startsWith:'<html>') ]) ifTrue:[
             ^self newInspector2Tab
                 label: 'HTML';
                 priority: 35;
@@ -511,7 +514,7 @@
                 yourself
         ].
     ].
-    "/ If nil is returned, tab is not shown...
+    "/ If nil is returned, the HTML tab is not shown...
     ^ nil
 
     "Created: / 17-02-2008 / 10:10:50 / janfrog"
hg/stx-libtool