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 3654 ef4d3adadd1e
parent 3625 cc9005a9b132
child 3655 1398556ec619 
--- a/ActiveHelpView.st	Mon Apr 18 01:11:32 2016 +0200
+++ b/ActiveHelpView.st	Tue Apr 19 15:27:44 2016 +0200
@@ -90,7 +90,7 @@
 for:someText onDevice:aDevice
     "create a bubble-view for some text"
 
-    |helpView textView|
+    |helpView textView textShown|
 
     helpView := self onDevice:aDevice.
     ((someText startsWith:'<HTML>') or:[ someText startsWith:'<html>' ]) ifTrue:[
@@ -103,9 +103,13 @@
         textView contents:someText.
         ^ helpView withView:textView 
     ] ifFalse:[
+        textShown := someText.
+        (textShown isString and:[textShown endsWith:Character cr]) ifTrue:[
+            textShown := textShown copyButLast.
+        ].    
         textView := Label onDevice:aDevice.
         textView font:(helpView font onDevice:aDevice). 
-        ^ (helpView withView:textView) contents:someText
+        ^ (helpView withView:textView) contents:textShown
     ].
 
     "
hg/stx-libview2