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

Gtk2: Fix compliation on MacOS

Browse Source
This commit is contained in:
rich2014 2023-05-28 17:07:32 +08:00
parent 1d7346c7e9
commit 568a92fe1c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1055,7 +1055,9 @@ begin
FMainPoll := nil; FMainPoll := nil;
if not FIsLibraryInstance then if not FIsLibraryInstance then
begin begin
{$IFDEF HASX}
FWSFrameRect := Rect(0, 0, 0, 0); FWSFrameRect := Rect(0, 0, 0, 0);
{$ENDIF}
Gtk2MPF := g_main_context_get_poll_func(g_main_context_default); Gtk2MPF := g_main_context_get_poll_func(g_main_context_default);
g_main_context_set_poll_func(g_main_context_default, @Gtk2PollFunction); g_main_context_set_poll_func(g_main_context_default, @Gtk2PollFunction);
end else end else