--- a/FlyByHelp.st	Fri Nov 22 15:57:48 2019 +0100
+++ b/FlyByHelp.st	Mon Nov 25 17:13:14 2019 +0100
@@ -17,7 +17,7 @@
 
 ActiveHelp subclass:#FlyByHelp
 	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess
-		helpTextProcess currentDeveloperMenu'
+		helpTextProcess developerMenuShown'
 	classVariableNames:'MaxNumberOfColumns MaxNumberOfLines'
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -132,18 +132,17 @@
     
     self hideHelp.
 
-    "/ does not work, because menuPanel showAtPointer does not give us the menu
-    "/ currentDeveloperMenu notNil ifTrue:[
-    "/    currentDeveloperMenu hide.
-    "/    currentDeveloperMenu := nil.
-    "/].
-
     topView := aView topView.
     app := topView application.
     app isNil ifTrue:[ 
         Transcript showCR:'no app for view: %1' with:aView. 
         "/ ^ self 
     ].
+    developerMenuShown == true ifTrue:[
+        topView windowGroup process interruptWith:[AbortOperationRequest raise].
+        developerMenuShown := false.
+    ].
+
     topView sensor 
         pushAction:
         "/ app enqueueDelayedAction:
@@ -277,6 +276,7 @@
 
         "/ does not work, because menuPanel showAtPointer does not give us the menu
         "/ currentDeveloperMenu := m.
+        developerMenuShown := true.
         m showAtPointer.
     ].