mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-17 05:20:48 +01:00
cocoa: sanity check before calling ProcessAsyncCallQueue
git-svn-id: trunk@61209 -
This commit is contained in:
parent
daa05e2732
commit
f256ae1065
@ -519,6 +519,7 @@ begin
|
||||
begin
|
||||
CheckSynchronize;
|
||||
NSApp.updateWindows;
|
||||
if Assigned(Application) then
|
||||
TCrackerApplication(Application).ProcessAsyncCallQueue;
|
||||
Result := nil
|
||||
end
|
||||
|
||||
Loading…
Reference in New Issue
Block a user