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 crash in GtkIconView by unref GtkColumn which isn't GtkObject.

Browse Source 
git-svn-id: trunk@38896 -
This commit is contained in:
zeljko 2012-09-29 08:33:44 +00:00
parent 24625416e6
commit 0eef8e9087
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -616,9 +616,10 @@ begin
else begin // No Column Needed
if GtkColumn <> nil then
begin
if GTK_IS_TREE_VIEW(Widgets^.MainView) then
if GTK_IS_TREE_VIEW(Widgets^.MainView) and GTK_IS_TREE_VIEW_COLUMN(GtkColumn) then
gtk_tree_view_remove_column(PGtkTreeView(Widgets^.MainView), GtkColumn)
else
if GTK_IS_TREE_VIEW_COLUMN(GtkColumn) and G_IS_OBJECT(GtkColumn) then
g_object_unref(GtkColumn);
g_object_set_data(G_OBJECT(Widgets^.MainView), 'LCL_DEFAULT_COLUMN', nil);
end;
@ -731,7 +732,7 @@ begin
Exit;
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(Widgets^.MainView), AIndex);
if GtkColumn<>nil then
if (GtkColumn<>nil) and GTK_IS_TREE_VIEW_COLUMN(GtkColumn) then
gtk_tree_view_remove_column(PGtkTreeView(Widgets^.MainView), GtkColumn);
end;