From 27bf5d2ba705386ad0bb2dbe1747060b8f01e6e2 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sat, 6 May 2023 19:49:47 +0200
Subject: [PATCH] IDE: Workaround for source-edit popup menu under QT. Issue
 #40161 The editor-toolbar code (or related ide-intf changes) triggers an
 additional popup interfering with the menu.

---
 components/ideintf/toolbarintf.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/ideintf/toolbarintf.pas b/components/ideintf/toolbarintf.pas
index f2da6e3c33..a0a68a5e00 100644
--- a/components/ideintf/toolbarintf.pas
+++ b/components/ideintf/toolbarintf.pas
@@ -327,6 +327,8 @@ var
   ActiveEditor: TSourceEditorInterface;
   ScreenXY: TPoint;
 begin
+  if ActivePopupMenu <> nil then // work around for issue #40161
+    exit;
   ActiveEditor := SourceEditorManagerIntf.ActiveEditor;
   if ActiveEditor=nil then
     Exit;