--- a/FlyByHelp.st	Fri Nov 22 15:57:31 2019 +0100
+++ b/FlyByHelp.st	Fri Nov 22 15:57:48 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -389,7 +391,7 @@
       or:[debuggedView notNil
     ]]) ifTrue:[
         Smalltalk isStandAloneApp ifFalse:[
-            (#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
+            (#(#'Control' #'Control_L' #'Control_R' #'Ctrl' #'Ctrl_L' #'Ctrl_R') includes:key) ifTrue:[
                 aView device shiftDown ifTrue:[
                     self openDeveloperMenuFor:(debuggedView ? aView) at:x@y.
                     ^ false
@@ -417,7 +419,7 @@
             currentView := prevView.
             ^ false
         ].
-        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
@@ -459,12 +461,12 @@
                 with:aView) infoPrintCR.
     ].
     currentHelpView notNil ifTrue:[
-        (#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
+        (#(#'Control' #'Control_L' #'Control_R' #'Ctrl' #'Ctrl_L' #'Ctrl_R') includes:key) ifTrue:[
             "/ reopen showing the text
             self initiateHelpFor:aView at:(x@y) now:true.
             ^ true
         ].
-        (#('Shift' #'Shift_L' #'Shift_R' #'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
+        (#('Shift' #'Shift_L' #'Shift_R' "#'Control' #'Control_L' #'Control_R'") includes:key) ifTrue:[
             "/ do not close on those...
             ^ false
         ].