From 23631ab8362d38fe83ca6da88af39548ac61ed16 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Tue, 18 Jun 2019 17:27:49 +0000
Subject: [PATCH] cocoa: calling idle event for nativeloop

git-svn-id: trunk@61412 -
---
 lcl/interfaces/cocoa/cocoaint.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index adce1f2b17..6032b44103 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -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)