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

cocoa: using KVC approach to set application running flag, instead of overriding a property method

Browse Source 
git-svn-id: trunk@61362 -
This commit is contained in:
dmitry 2019-06-12 04:38:19 +00:00
parent 85ba39c0d9
commit 5a04cfe2d6
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,12 +66,10 @@ type
TCocoaApplication = objcclass(NSApplication) TCocoaApplication = objcclass(NSApplication)
aloop : TApplicationMainLoop; aloop : TApplicationMainLoop;
isrun : Boolean;
modals : NSMutableDictionary; modals : NSMutableDictionary;
procedure dealloc; override; procedure dealloc; override;
{$ifdef COCOALOOPOVERRIDE} {$ifdef COCOALOOPOVERRIDE}
function isRunning: LCLObjCBoolean; override;
procedure run; override; procedure run; override;
{$endif} {$endif}
procedure sendEvent(theEvent: NSEvent); override; procedure sendEvent(theEvent: NSEvent); override;
@ -400,14 +398,9 @@ begin
end; end;
{$ifdef COCOALOOPOVERRIDE} {$ifdef COCOALOOPOVERRIDE}
function TCocoaApplication.isRunning: LCLObjCBoolean;
begin
Result:=isrun;
end;
procedure TCocoaApplication.run; procedure TCocoaApplication.run;
begin begin
isrun:=true; setValue_forKey(NSNumber.numberWithBool(true), NSSTR('_running'));
aloop(); aloop();
end; end;
{$endif} {$endif}