mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 08:13:28 +02:00
57 lines
1.6 KiB
ObjectPascal
57 lines
1.6 KiB
ObjectPascal
{
|
|
/***************************************************************************
|
|
Interfaces.pp - determines what interface to use
|
|
-------------------
|
|
|
|
Initial Revision : Thu July 1st CST 1999
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
}
|
|
|
|
|
|
unit interfaces;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
InterfaceBase;
|
|
|
|
var
|
|
InterfaceObject : TInterfaceBase;
|
|
|
|
implementation
|
|
|
|
uses
|
|
GTKInt,
|
|
Forms; // MG: GTKInt uses forms, so the application object is destroyed
|
|
// in the forms finalization section AFTER this finalization
|
|
// section. But the lcl objects need the gtk to close clean.
|
|
// Therefore the application object is freed here.
|
|
// P.S.: This is only a workaround till the interfaces are below
|
|
// the lcl.
|
|
|
|
initialization
|
|
|
|
InterfaceObject := TgtkObject.Create;
|
|
|
|
finalization
|
|
|
|
Application.Free;
|
|
Application:=nil;
|
|
|
|
InterfaceObject.Free;
|
|
|
|
end.
|