#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 07 Mar 2017 07:31:05 +0100
changeset 3939 a64b6880178b
parent 3938 0fcfd5e383f1
child 3940 d5fb7f7790eb
#FEATURE by cg class: ActiveHelpView changed: #for:onDevice: also look for strings starting with '<body>' (in addition to '<html>')
ActiveHelpView.st
--- 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