Mercurial Mercurial > hg > stx-libview2 / 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.
ActiveHelpView.st
changeset 3939 a64b6880178b
parent 3768 d9739e1f43f5
child 3963 9e2d653b39e8 
--- a/ActiveHelpView.st	Fri Mar 03 13:43:57 2017 +0100
+++ b/ActiveHelpView.st	Tue Mar 07 07:31:05 2017 +0100
@@ -99,7 +99,8 @@
         ^ (helpView withView:textView)
     ].
     
-    ((someText startsWith:'<HTML>') or:[ someText startsWith:'<html>' ]) ifTrue:[
+    ((someText startsWith:'<HTML>') or:[ (someText startsWith:'<html>') 
+      or:[ (someText startsWith:'<BODY>') or:[ (someText startsWith:'<body>') ]]]) ifTrue:[
         textView := HTMLView onDevice:aDevice.
         textView level:0.
         textView extent:(600@400).
@@ -136,7 +137,7 @@
      v destroy
     "
 
-    "Modified: 28.6.1997 / 14:24:23 / cg"
+    "Modified: / 06-03-2017 / 18:56:24 / cg"
 !
 
 with:aView
hg/stx-libview2