paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 12:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Boolfix (fpc trunk) related compilation fix. Patch by Zoë Peterson. #35694

Browse Source 
git-svn-id: trunk@61306 -
This commit is contained in:
dmitry 2019-06-01 03:23:33 +00:00
parent bd29c5ea1e
commit 2ab93def5e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -99,7 +99,7 @@ begin
{$ifdef BOOLFIX}
event := NSApp.nextEventMatchingMask_untilDate_inMode_dequeue_(NSAnyEventMask, eventExpDate, NSDefaultRunLoopMode, Ord(true));
{$else}
event := NSApp.nextEventMatchingMask_untilDate_inMode_dequeue(NSAnyEventMask, eventExpDatee, NSDefaultRunLoopMode, true);
event := NSApp.nextEventMatchingMask_untilDate_inMode_dequeue(NSAnyEventMask, eventExpDate, NSDefaultRunLoopMode, true);
{$endif}
if event <> nil then
begin

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

@ -881,7 +881,7 @@ begin
{$ifdef BOOLFIX}
SetEnabled_( Ord(AEnabled and NSViewIsLCLEnabled(self.superview) ));
{$else}
SetEnabled( AEnabled and ((not Assigned(superview)) or (superview.lclisEnabled)) );
SetEnabled( AEnabled and NSViewIsLCLEnabled(self.superview) );
{$endif}
inherited lclSetEnabled(AEnabled);
end;