# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1528969094 -7200
# Node ID f6e152e7c3285a9d3bf50be444d393ebc6500e28
# Parent  ece71c589eff7e650eafab9f9fb686ab7b8460af
#DOCUMENTATION by cg
class: FlyByHelp
comment/format in: #showHelp:for:

diff -r ece71c589eff -r f6e152e7c328 FlyByHelp.st
--- a/FlyByHelp.st	Thu Jun 14 11:37:36 2018 +0200
+++ b/FlyByHelp.st	Thu Jun 14 11:38:14 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -138,7 +136,7 @@
     |prevView|
 
     currentHelpView notNil ifTrue:[
-        key == $§ ifTrue:[
+        key == $§ ifTrue:[
             "/ generate a line suitable for the resources file (a null translation)
             "/ into the clipboard; makes it easy to add missing translations to a .rs file,
             "/ by pressing paragraph whenever you see an untranslated helptext
@@ -471,13 +469,14 @@
     lastHelpWidget := view.
     lastHelpText := aHelpText.
     helpTextShown := aHelpText.
+    
     "/ the text originator must already have generated CRs;
     "/ no longer done here (otherwise, we could not generate tooltips with Windows filenames in it)
     textLines := helpTextShown isStringCollection 
                     ifTrue:[helpTextShown]
                     ifFalse:[ 
                         helpTextShown isString 
-                            ifTrue:[helpTextShown "withCRs" asCollectionOfLines asStringCollection]
+                            ifTrue:[helpTextShown asCollectionOfLines asStringCollection]
                             ifFalse:[nil]].
     textLines notNil ifTrue:[
         textLines size > (self class maxNumberOfLines) ifTrue:[
@@ -563,6 +562,7 @@
     "Modified: / 06-06-2017 / 15:06:41 / cg"
     "Modified (format): / 16-04-2018 / 17:29:10 / stefan"
     "Modified: / 08-06-2018 / 10:28:32 / Claus Gittinger"
+    "Modified (format): / 14-06-2018 / 08:29:43 / Claus Gittinger"
 !
 
 stopHelpDisplayProcess