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

cocoa: fix compilation for fpc32rc1

Browse Source 
git-svn-id: trunk@63272 -
This commit is contained in:
dmitry 2020-06-02 02:02:48 +00:00
parent 9566494312
commit 84a3138f6e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -100,7 +100,7 @@ type
function runModalForWindow(theWindow: NSWindow): NSInteger; override;
procedure lclSyncCheck(arg: id); message 'lclSyncCheck:';
{$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY}
function isRunning: Boolean; override;
function isRunning: {$if FPC_FULLVERSION >= 30200}objc.ObjCBOOL{$else}Boolean{$endif}; override;
procedure stop(sender: id); override;
{$endif}
end;
@ -687,7 +687,7 @@ begin
end;
{$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY}
function TCocoaApplication.isRunning: Boolean;
function TCocoaApplication.isRunning: {$if FPC_FULLVERSION >= 30200}objc.ObjCBOOL{$else}Boolean{$endif};
begin
Result:=not Stopped;
end;