From 6ab7bd1d7c20fb6018c9b0e7ff73b00f5914f8b4 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Sat, 22 Feb 2025 23:50:29 +0100
Subject: [PATCH] Gtk3: we'll use g_main_context_iteration(), better fits our
 needs.

---
 lcl/interfaces/gtk3/gtk3object.inc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/gtk3/gtk3object.inc b/lcl/interfaces/gtk3/gtk3object.inc
index 84bf45f841..e0805e96d0 100644
--- a/lcl/interfaces/gtk3/gtk3object.inc
+++ b/lcl/interfaces/gtk3/gtk3object.inc
@@ -560,7 +560,8 @@ begin
   {$IFDEF GTK3DEBUGCORE}
   DebugLn('TGtk3WidgetSet.AppWaitMessage');
   {$ENDIF}
-  gtk_main_iteration;
+  if not g_main_context_pending(nil) then
+    g_main_context_iteration(nil, True);
 end;
 
 procedure TGtk3WidgetSet.AppProcessMessages;
@@ -568,8 +569,8 @@ begin
   {$IFDEF GTK3DEBUGCORE}
   DebugLn('TGtk3WidgetSet.AppProcessMessages');
   {$ENDIF}
-  while gtk_events_pending do
-    gtk_main_iteration_do(False);
+  if g_main_context_pending(nil) then
+    g_main_context_iteration(nil, False);
 end;
 
 procedure TGtk3WidgetSet.AppTerminate;