From 000bfb281d568dfff54b3e491c9eab9c9fa068b3 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Thu, 6 Jun 2019 21:06:31 +0000
Subject: [PATCH] cocoa: prevent blocking of LCL only messages. Previous
 revision is causing issues with menu tracking loop

git-svn-id: trunk@61331 -
---
 lcl/interfaces/cocoa/cocoaint.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index 901bd5dfc8..829eba348f 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -565,7 +565,7 @@ begin
         end
        end;
     end;
-  until done;
+  until true;
 end;
 
 function TCocoaApplication.runModalForWindow(theWindow: NSWindow): NSInteger;