paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: we'll use g_main_context_iteration(), better fits our needs.

Browse Source
This commit is contained in:
zeljan1 2025-02-22 23:50:29 +01:00
parent 27bd792656
commit 6ab7bd1d7c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk3/gtk3object.inc
View File

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