--- a/FlyByHelp.st	Sun Jul 07 15:05:19 2019 +0200
+++ b/FlyByHelp.st	Thu Jul 11 20:49:20 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -124,8 +122,25 @@
     app enqueueDelayedAction:[
         |editor m canDefineTranslationForLabel canDefineTranslationForHelpText|
 
+        canDefineTranslationForHelpText := lastHelpText notEmptyOrNil.
+        canDefineTranslationForHelpText := canDefineTranslationForHelpText or:[ (helpText := aView helpTextAt:aPoint) notEmptyOrNil].
+        canDefineTranslationForHelpText := canDefineTranslationForHelpText or:[ (helpText := aView helpText) notEmptyOrNil].
+        canDefineTranslationForHelpText := canDefineTranslationForHelpText or:[ (helpKey := aView helpKey) notNil].
+        canDefineTranslationForHelpText := canDefineTranslationForHelpText or:[ (helpText := app helpTextFor:aView) notEmptyOrNil ].
+
         m := Menu new.
         m addItem:(MenuItem 
+            label: 'Copy Helptext'
+            itemValue:[
+                |package key |
+
+                key := (lastHelpText ? helpText ? helpKey) asString string.
+                aView topView setClipboardText:key.
+            ]
+            enabled:canDefineTranslationForHelpText).
+        m addSeparator.
+
+        m addItem:(MenuItem 
             label: 'Edit Resources'
             itemValue:[ 
                 app enqueueDelayedAction:[
@@ -155,18 +170,6 @@
                 (aView isKindOf:Label) or:[aView respondsTo:#label]
             ].    
 
-        canDefineTranslationForHelpText := 
-            [
-                |ok|
-
-                ok := lastHelpText notEmptyOrNil.
-                ok := ok or:[ (helpText := aView helpTextAt:aPoint) notEmptyOrNil].
-                ok := ok or:[ (helpText := aView helpText) notEmptyOrNil].
-                ok := ok or:[ (helpKey := aView helpKey) notNil].
-                ok := ok or:[ (helpText := app helpTextFor:aView) notEmptyOrNil ].
-                ok
-            ].
-
         m addItem:(MenuItem 
             label: 'Define Translation for Label...'
             itemValue:[
@@ -278,7 +281,7 @@
                 with:aView) infoPrintCR.
     ].
     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