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

MG: fixed synedit crash on exit

Browse Source 
git-svn-id: trunk@1161 -
This commit is contained in:
lazarus 2002-02-09 01:48:00 +00:00
parent 1fbe65619e
commit bc261e943c
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/application.inc
View File

@ -394,6 +394,9 @@ end;
{ =============================================================================
$Log$
Revision 1.18 2002/03/04 10:01:01 lazarus
MG: fixed synedit crash on exit
Revision 1.17 2002/01/27 23:35:33 lazarus
MG: added error message, when lcl has abstract widget interface object

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

@ -38,9 +38,10 @@ uses
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.
// Therefore the application object is freed here before the
// InterfaceObject.
// Probably this is the case for all interfaces, so this should be
// moved to forms.pp.
initialization