[Mldonkey-commits] Changes to mldonkey/src/gtk2/gui/guiTemplates.ml

[mldonkey-commits]

Index: mldonkey/src/gtk2/gui/guiTemplates.ml
diff -u mldonkey/src/gtk2/gui/guiTemplates.ml:1.6 
mldonkey/src/gtk2/gui/guiTemplates.ml:1.7
--- mldonkey/src/gtk2/gui/guiTemplates.ml:1.6   Mon Nov 14 18:25:44 2005
+++ mldonkey/src/gtk2/gui/guiTemplates.ml       Wed Nov 16 10:18:52 2005
@@ -418,9 +418,11 @@
     method private remove_item_while_idle () =
       ignore (Glib.Idle.add (fun _ ->
         try
-          let it = Queue.take queue_remove in
+          let (key, it) = Queue.take queue_remove in
           Gaux.may ~f:(fun p ->
-            ignore (store#remove p.path_tree_iter)) it.item_tree_path;
+            ignore (store#remove p.path_tree_iter);
+            Hashtbl.remove table key;
+            ) it.item_tree_path;
           true
         with Queue.Empty -> false))
 
@@ -433,10 +435,10 @@
             let is_empty = Queue.is_empty queue_remove in
             it.item_tree_removed <- true;
             Gaux.may ~f:(fun p ->
-              store#set ~row:p.path_tree_iter ~column:filter_col (filter_func 
key)) it.item_tree_path;
-            Queue.add it queue_remove;
-            Hashtbl.remove table key;
-            nitems <- nitems - 1;
+              store#set ~row:p.path_tree_iter ~column:filter_col (filter_func 
key);
+              nitems <- nitems - 1;
+              ) it.item_tree_path;
+            Queue.add (key, it) queue_remove;
             if is_empty then self#remove_item_while_idle ()
           end
       with _ -> ()