[gentoo-commits] gentoo-x86 commit in dev-lang/lazarus/files: lazarus-0.9.28.2-bug0015627.patch

[Harald van Dijk (truedfx)]

truedfx     10/08/21 18:29:39

  Added:                lazarus-0.9.28.2-bug0015627.patch
  Log:
  Fix access violation in TGtk2WSCustomListBox with some GTK+ versions (#333761 by suilenroc1183@×××××.de)
  (Portage version: 2.2_rc67/cvs/Linux x86_64)

Revision  Changes    Path
1.1                  dev-lang/lazarus/files/lazarus-0.9.28.2-bug0015627.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/lazarus/files/lazarus-0.9.28.2-bug0015627.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/lazarus/files/lazarus-0.9.28.2-bug0015627.patch?rev=1.1&content-type=text/plain

Index: lazarus-0.9.28.2-bug0015627.patch
===================================================================
--- trunk/lcl/interfaces/gtk2/gtk2wsstdctrls.pp	2009/12/08 12:38:50	23028
+++ trunk/lcl/interfaces/gtk2/gtk2wsstdctrls.pp	2010/02/12 02:22:04	23695
@@ -477,16 +477,6 @@
   WidgetInfo: PWidgetInfo;
   Selection: PGtkTreeSelection;
   Path: PGtkTreePath;
-
-  procedure ClearCursor; inline;
-  begin
-    if gtk_tree_row_reference_valid(PGtkTreeView(Widget)^.priv^.cursor) then
-    begin
-      gtk_tree_row_reference_free(PGtkTreeView(Widget)^.priv^.cursor);
-      PGtkTreeView(Widget)^.priv^.cursor := nil;
-    end;
-  end;
-  
 begin
   if not WSCheckHandleAllocated(ACustomListBox, 'SetItemIndex') then
     Exit;
@@ -512,7 +502,9 @@
   end
   else
   begin
-    ClearCursor;
+    Path := gtk_tree_path_new_from_indices(0, -1);
+    if PGtkTreeView(Widget)^.priv^.tree <> nil then
+      gtk_tree_view_set_cursor(PGtkTreeView(Widget), Path, nil, False);
     gtk_tree_selection_unselect_all(Selection);
   end;