| changeset 3768 | d9739e1f43f5 |
| parent 3728 | 6b88a699ecf3 |
| child 3939 | a64b6880178b |
--- a/ActiveHelpView.st Wed Nov 02 19:23:32 2016 +0100 +++ b/ActiveHelpView.st Wed Nov 02 19:23:59 2016 +0100 @@ -93,6 +93,12 @@ |helpView textView textShown| helpView := self onDevice:aDevice. + someText isString ifFalse:[ + textView := Label onDevice:aDevice. + textView logo:someText. + ^ (helpView withView:textView) + ]. + ((someText startsWith:'<HTML>') or:[ someText startsWith:'<html>' ]) ifTrue:[ textView := HTMLView onDevice:aDevice. textView level:0.