From eab78cf0440d0045feef4f6c781bb75fcca03d21 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 16 Jan 2025 15:31:32 +0100
Subject: [PATCH] lcl: gtk2: fixed close popup menu, issue #41315

---
 lcl/interfaces/gtk2/gtk2wsmenus.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2wsmenus.pp b/lcl/interfaces/gtk2/gtk2wsmenus.pp
index a30d472806..50413de00c 100644
--- a/lcl/interfaces/gtk2/gtk2wsmenus.pp
+++ b/lcl/interfaces/gtk2/gtk2wsmenus.pp
@@ -685,7 +685,7 @@ begin
                  WidgetInfo, 0, gtk_get_current_event_time());
   TGtk2WidgetSet(WidgetSet).LastFocusIn:=MenuWidget;
   {$IFDEF VerboseGtk2Focus}
-  debugln('TGtk2WSPopupMenu.Popup REPEAT...');
+  debugln('TGtk2WSPopupMenu.Popup REPEAT... ',DbgSName(APopupMenu));
   {$ENDIF}
   repeat
     try
@@ -696,12 +696,12 @@ begin
       else
         raise;
     end;
-    if Application.Terminated or not Assigned(MenuWidget) then
+    if Application.Terminated or not Assigned(TGtk2WidgetSet(WidgetSet).MenuWidget) then
       break;
     Application.Idle(true);
   until False;
   {$IFDEF VerboseGtk2Focus}
-  debugln('TGtk2WSPopupMenu.Popup END');
+  debugln('TGtk2WSPopupMenu.Popup END ',DbgSName(APopupMenu));
   {$ENDIF}
 end;