--- a/FlyByHelp.st	Tue Jul 23 10:23:19 2019 +0200
+++ b/FlyByHelp.st	Thu Jul 25 16:59:05 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -129,6 +127,8 @@
     
     |app helpText helpKey|
     
+    self hideHelp.
+
     app := aView topView application.
     app isNil ifTrue:[ Transcript showCR:'no app for view: %1' with:aView. ^ self ].
     
@@ -338,7 +338,7 @@
             ^ false
         ].
         Smalltalk isStandAloneApp ifFalse:[
-            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
@@ -349,7 +349,6 @@
             ].
             (#(#'Shift' #'Shift_L' #'Shift_R') includes:key) ifTrue:[
                 aView device ctrlDown ifTrue:[
-                    self hideHelp.
                     self openDeveloperMenuFor:aView at:x@y
                 ].
                 ^ false
@@ -366,7 +365,6 @@
             (#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
                 aView device leftShiftDown ifTrue:[
                     aView device rightShiftDown ifTrue:[
-                        self hideHelp.
                         self openDeveloperMenuFor:aView at:x@y
                     ].
                 ].