paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: fixed close popup menu, issue #41315

Browse Source
This commit is contained in:
mattias 2025-01-16 15:31:32 +01:00
parent 4c39c0d55f
commit eab78cf044
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2wsmenus.pp
View File

@ -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;