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

cocoa: calling idle event for nativeloop

Browse Source 
git-svn-id: trunk@61412 -
This commit is contained in:
dmitry 2019-06-18 17:27:49 +00:00
parent d0da669311
commit 23631ab836
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -592,7 +592,13 @@ begin
Result:=inherited nextEventMatchingMask_untilDate_inMode_dequeue(mask,
expiration, mode, deqFlag);
{$endif}
if not Assigned(Result) then Exit;
if not Assigned(Result) then
begin
{$ifdef COCOALOOPNATIVE}
if Assigned(Application) then Application.Idle(true);
{$endif}
Exit;
end;
if ((mode = NSEventTrackingRunLoopMode) or mode.isEqualToString(NSEventTrackingRunLoopMode))
and Assigned(TrackedControl)