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

Gtk2: fixed few memleaks with PGList in TGtk2ListView.

Browse Source 
git-svn-id: trunk@38899 -
This commit is contained in:
zeljko 2012-09-29 12:07:16 +00:00
parent eff9f1abee
commit 1f6e44d04f
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -270,6 +270,7 @@ begin
Widgets^.ItemCache.Objects[ListIndex] := TObject(0);
end;
end;
g_list_free(List);
end else
begin
// complete selection is clear !
@ -329,6 +330,7 @@ begin
begin
Path := PGtkTreePath(g_list_first(List)^.data);
Widgets^.ItemCache.Add(gtk_tree_path_to_string(Path));
g_list_free(List);
end else
exit;
end else
@ -1901,8 +1903,11 @@ begin
AList := gtk_icon_view_get_selected_items(PGtkIconView(MainView))
else
Exit;
Result := g_list_length(AList);
g_list_free(AList);
if AList <> nil then
begin
Result := g_list_length(AList);
g_list_free(AList);
end;
end;
end;
@ -1929,8 +1934,10 @@ begin
begin
AList := gtk_icon_view_get_selected_items(PGtkIconView(MainView));
if AList <> nil then
Path := g_list_first(AList)^.data
else
begin
Path := g_list_first(AList)^.data;
g_list_free(AList);
end else
Path := nil;
end;
Path := gtk_tree_model_get_path(TreeModel, @Iter);