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

MG: close application object in gtkint.pp

Browse Source 
git-svn-id: trunk@279 -
This commit is contained in:
lazarus 2001-06-04 07:54:59 +00:00
parent eb92e596e0
commit 2703d29631
3 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazarus.pp
View File

@ -53,16 +53,15 @@ begin
Application.Run; Application.Run;
SplashForm.Free; SplashForm.Free;
writeln('LAZARUS close application...');
// workaround till lcl closes clean
Application.Free;
Application:=nil;
writeln('LAZARUS END'); writeln('LAZARUS END');
end. end.
{ {
$Log$ $Log$
Revision 1.19 2001/06/04 07:50:42 lazarus
MG: close application object in gtkint.pp
Revision 1.18 2001/03/19 14:00:46 lazarus Revision 1.18 2001/03/19 14:00:46 lazarus
MG: fixed many unreleased DC and GDIObj bugs MG: fixed many unreleased DC and GDIObj bugs

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -236,8 +236,6 @@ var
initialization initialization
gtk_handler_quark := g_quark_from_static_string('gtk-signal-handlers'); gtk_handler_quark := g_quark_from_static_string('gtk-signal-handlers');
Target_Table[0].Target := 'STRING'; Target_Table[0].Target := 'STRING';
@ -258,6 +256,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.14 2001/06/04 07:50:42 lazarus
MG: close application object in gtkint.pp
Revision 1.13 2001/04/06 22:25:14 lazarus Revision 1.13 2001/04/06 22:25:14 lazarus
* TTimer uses winapi-interface now instead of sendmessage-interface, stoppok * TTimer uses winapi-interface now instead of sendmessage-interface, stoppok

13
lcl/interfaces/gtk/interfaces.pp
View File

@ -21,7 +21,7 @@
unit interfaces; unit interfaces;
{$mode objfpc} {$mode objfpc}{$H+}
interface interface
@ -34,7 +34,13 @@ var
implementation implementation
uses uses
GTKInt; 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 initialization
@ -42,6 +48,9 @@ initialization
finalization finalization
Application.Free;
Application:=nil;
InterfaceObject.Free; InterfaceObject.Free;
end. end.