paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 17:59:22 +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; function runModalForWindow(theWindow: NSWindow): NSInteger; override;
procedure lclSyncCheck(arg: id); message 'lclSyncCheck:'; procedure lclSyncCheck(arg: id); message 'lclSyncCheck:';
{$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY} {$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY}
function isRunning: Boolean; override; function isRunning: {$if FPC_FULLVERSION >= 30200}objc.ObjCBOOL{$else}Boolean{$endif}; override;
procedure stop(sender: id); override; procedure stop(sender: id); override;
{$endif} {$endif}
end; end;
@ -687,7 +687,7 @@ begin
end; end;
{$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY} {$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY}
function TCocoaApplication.isRunning: Boolean; function TCocoaApplication.isRunning: {$if FPC_FULLVERSION >= 30200}objc.ObjCBOOL{$else}Boolean{$endif};
begin begin
Result:=not Stopped; Result:=not Stopped;
end; end;