[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImAccounts.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImAccounts.ml |
Date: |
Sat, 12 Nov 2005 06:16:53 -0500 |
Index: mldonkey/src/gtk2/im/guiImAccounts.ml
diff -u mldonkey/src/gtk2/im/guiImAccounts.ml:1.2
mldonkey/src/gtk2/im/guiImAccounts.ml:1.3
--- mldonkey/src/gtk2/im/guiImAccounts.ml:1.2 Mon Oct 31 18:34:03 2005
+++ mldonkey/src/gtk2/im/guiImAccounts.ml Sat Nov 12 11:16:36 2005
@@ -392,11 +392,11 @@
let ac = act_of_key (act_key (account_num account)) in
let row = accountstore#find_row (act_key (account_num account)) in
lprintf' "Updating Account %d\n" (account_num account);
- accountstore#update_item row ac account;
+ Gaux.may ~f:(fun r -> accountstore#update_item r ac account) row;
lprintf' "Updated Account %d\n" (account_num account)
with _ ->
lprintf' "Adding Account %d\n" (account_num account);
- ignore (accountstore#add_item account);
+ accountstore#add_item account ();
lprintf' "Added Account %d\n" (account_num account)
(*************************************************************************)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/gtk2/im/guiImAccounts.ml,
mldonkey-commits <=