paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: always expect an application defined event

Browse Source 
git-svn-id: trunk@61258 -
This commit is contained in:
dmitry 2019-05-21 17:08:27 +00:00
parent c33f7b3553
commit 66422a9b19
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

@ -504,8 +504,14 @@ function TCocoaApplication.nextEventMatchingMask_untilDate_inMode_dequeue(
var
cb : ICommonCallback;
begin
// always look application defined mask (these are defined by LCL)
// for sync and PostMessage processing.
// Cocoa MainMenu would not ask for AppDefined events.
// Thus it's possible NOT to get any messages while main menu is selected
mask := mask or NSApplicationDefinedMask;
{$ifdef BOOLFIX}
Result:=inherited nextEventMatchingMask_untilDate_inMode_dequeue_(mask,
Result:=inherited nextEventMatchingMask_untilDate_inMode_dequeue_(
mask,
expiration, mode, Ord(deqFlag));
{$else}
Result:=inherited nextEventMatchingMask_untilDate_inMode_dequeue(mask,