Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Wed, 02 Nov 2016 19:23:59 +0100
changeset 3768 d9739e1f43f5
parent 3767 d88339439fb4
child 3769 09e08477457d
#QUALITY by cg class: ActiveHelpView changed: #for:onDevice: be more robust against non-strings as help text
ActiveHelpView.st file | annotate | diff | comparison | revisions 
--- 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.
hg/stx-libview2