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

MG: prevented gtk interfaces checksum error

Browse Source 
git-svn-id: trunk@1518 -
This commit is contained in:
lazarus 2002-03-14 21:35:14 +00:00
parent 9789b52598
commit b0139a0c4e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,14 +19,14 @@
} }
unit interfaces; unit Interfaces;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
InterfaceBase,Clipbrd,SysUtils; InterfaceBase;
var var
InterfaceObject : TInterfaceBase; InterfaceObject : TInterfaceBase;
@ -34,7 +34,7 @@ var
implementation implementation
uses uses
GTKInt, GTKInt, Clipbrd, SysUtils,
Forms; // MG: GTKInt uses forms, so the application object is destroyed Forms; // MG: GTKInt uses forms, so the application object is destroyed
// in the forms finalization section AFTER this finalization // in the forms finalization section AFTER this finalization
// section. But the lcl objects need the gtk to close clean. // section. But the lcl objects need the gtk to close clean.