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

Correct missing line - TCocoaWidgetSet.AppTerminate;

Browse Source 
git-svn-id: trunk@43599 -
This commit is contained in:
freq 2013-12-27 10:52:05 +00:00
parent cd6227e4c9
commit 340c0f0266
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,12 +139,11 @@ end;
Tells Carbon to halt the application
------------------------------------------------------------------------------}
procedure TCocoaWidgetSet.AppTerminate;
begin
if FTerminating then Exit;
// TODO: Check if there is more cleanup to do here
// NSApp.terminate(nil); // causes app to quit directly
// TODO: Check if there is more cleanup to do here
// NSApp.terminate(nil); // causes app to quit directly
end;
{------------------------------------------------------------------------------