paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 09:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: create toplevel list only in debug mode.

Browse Source
This commit is contained in:
zeljan1 2025-01-08 22:22:18 +01:00
parent 1aa4abc1e4
commit 13ef93cd67
1 changed files with 2 additions and 6 deletions

8
lcl/interfaces/gtk3/gtk3object.inc
View File

@ -485,19 +485,15 @@ begin
if Assigned(FGtk3Application) then
begin
FGtk3Application^.quit;
{$IFDEF GTK3DEBUGCORE}
AList := FGtk3Application^.get_windows;
if Assigned(AList) then
begin
{$IFDEF GTK3DEBUGCORE}
DebugLn('TGtk3WidgetSet.Gtk3Destroy app Windows list ',dbgs(g_list_length(AList)));
{$ENDIF}
g_list_free(AList);
end else
begin
{$IFDEF GTK3DEBUGCORE}
DebugLn('TGtk3WidgetSet.Gtk3Destroy app Windows list is null ');
{$ENDIF}
end;
{$ENDIF}
FGtk3Application^.release;
FGtk3Application^.unref;
FGtk3Application := nil;