[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImRooms.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImRooms.ml |
Date: |
Sat, 12 Nov 2005 06:16:54 -0500 |
Index: mldonkey/src/gtk2/im/guiImRooms.ml
diff -u mldonkey/src/gtk2/im/guiImRooms.ml:1.2
mldonkey/src/gtk2/im/guiImRooms.ml:1.3
--- mldonkey/src/gtk2/im/guiImRooms.ml:1.2 Mon Oct 31 18:34:03 2005
+++ mldonkey/src/gtk2/im/guiImRooms.ml Sat Nov 12 11:16:36 2005
@@ -249,15 +249,15 @@
(* *)
(*************************************************************************)
-let update_identity id_new idstore =
+let update_identity id_new (idstore : g_identity) =
try
let id = Hashtbl.find id_by_num (identity_num id_new) in
let row = idstore#find_row (id_key (identity_num id_new)) in
- idstore#update_item row id id_new;
+ Gaux.may ~f:(fun r -> idstore#update_item r id id_new) row;
Hashtbl.replace id_by_num (identity_num id_new) id_new
with _ ->
begin
- ignore (idstore#add_item id_new);
+ idstore#add_item id_new ();
Hashtbl.add id_by_num (identity_num id_new) id_new
end
@@ -303,7 +303,7 @@
| Room_user_join (_, identity) ->
update_identity identity ro.store
-
+
| Room_user_leave (_, identity) ->
remove_identity identity ro.store
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImRooms.ml,
mldonkey-commits <=