--- a/ActiveHelp.st	Thu Oct 17 21:02:37 2019 +0200
+++ b/ActiveHelp.st	Thu Oct 17 21:32:13 2019 +0200
@@ -19,7 +19,7 @@
 	instanceVariableNames:'lastHelpText listeningForAll applicationsOrTopViewsWithHelp
 		lastHelpWidget lastPointerPosition pointerPositionAtShowTime
 		suspended'
-	classVariableNames:'Debugging DebuggingEvents DebuggingHelpText Suspended'
+	classVariableNames:'Debugging DebuggingEvents DebuggingHelpText Suspended DoHelpKey'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -547,9 +547,11 @@
     Debugging ifTrue:[
         ('%1: key press: %2' bindWith:self className with:key) infoPrintCR
     ].
-    key == #Help ifTrue:[
-        self initiateHelpFor:view at:(x @ y).
-        ^ true.
+    DoHelpKey == true ifTrue:[
+        key == #Help ifTrue:[
+            self initiateHelpFor:view at:(x @ y).
+            ^ true.
+        ].    
     ].    
     self hideHelpIgnoringErrors.
     ^ false
@@ -565,8 +567,6 @@
         ('%1: key release: %2' bindWith:self className with:key) infoPrintCR
     ].
 
-    "/ key == #Help ifTrue:[
-    "/ ].    
     self hideHelpIgnoringErrors.
     ^ false