paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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