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

cocoa: making loop hijacking more robust, if event processing was called prior to Application.Init

Browse Source 
git-svn-id: trunk@61356 -
This commit is contained in:
dmitry 2019-06-11 15:49:21 +00:00
parent a4da0d9e1f
commit a2a2ec1195
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -508,7 +508,7 @@ var
cb : ICommonCallback;
begin
{$ifndef COCOALOOPOVERRIDE}
if not isrun then begin
if not isrun and Assigned(aloop) then begin
isrun := True;
Result := nil;
aloop();