From d884d5168984d36a5c08f4814e81b070d7c964d3 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 17 Nov 2009 16:18:15 +0100 Subject: Use getters instead of direct access to structures This will hopefully fix remaining GUI issues on PPC64. Needs further testing! Also, libgtk_kylix sources have been altered for use with gtk2forpascal-1.0.7 for Kylix compilation. --- libgtk_kylix/GTKView.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libgtk_kylix/GTKView.pas') diff --git a/libgtk_kylix/GTKView.pas b/libgtk_kylix/GTKView.pas index 85a13a0..db1dc93 100644 --- a/libgtk_kylix/GTKView.pas +++ b/libgtk_kylix/GTKView.pas @@ -378,6 +378,7 @@ var sort_column_id: gint; order: TGtkSortType; begin Result := -1; + sort_column_id := -1; if (FTreeModelSort <> nil) and gtk_tree_sortable_get_sort_column_id(PGtkTreeSortable(FTreeModelSort), @sort_column_id, @order) then Result := sort_column_id; end; @@ -419,6 +420,7 @@ var sort_column_id: gint; order: TGtkSortType; begin Result := soNone; + order := 0; if (FTreeModelSort <> nil) and gtk_tree_sortable_get_sort_column_id(PGtkTreeSortable(FTreeModelSort), @sort_column_id, @order) then Result := TGTKTreeViewSortOrder(order); end; -- cgit v1.2.3