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

Remove NSApp.terminate to enable lcl cleanup and unit finalization calls. Application.terminate still works.

Browse Source 
git-svn-id: trunk@43596 -
This commit is contained in:
freq 2013-12-27 10:44:52 +00:00
parent 0b22143078
commit 14cfd3b843
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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