/[mldonkey]/mldonkey/src/gtk2/im/guiImAccounts.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/im/guiImAccounts.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by spiralvoice, Mon Oct 31 18:34:03 2005 UTC revision 1.3 by spiralvoice, Sat Nov 12 11:16:36 2005 UTC
# Line 392  let h_update_account account = Line 392  let h_update_account account =
392      let ac = act_of_key (act_key (account_num account)) in      let ac = act_of_key (act_key (account_num account)) in
393      let row = accountstore#find_row (act_key (account_num account)) in      let row = accountstore#find_row (act_key (account_num account)) in
394      lprintf' "Updating Account %d\n" (account_num account);      lprintf' "Updating Account %d\n" (account_num account);
395      accountstore#update_item row ac account;      Gaux.may ~f:(fun r -> accountstore#update_item r ac account) row;
396      lprintf' "Updated Account %d\n" (account_num account)      lprintf' "Updated Account %d\n" (account_num account)
397    with _ ->    with _ ->
398      lprintf' "Adding Account %d\n" (account_num account);      lprintf' "Adding Account %d\n" (account_num account);
399      ignore (accountstore#add_item account);      accountstore#add_item account ();
400      lprintf' "Added Account %d\n" (account_num account)      lprintf' "Added Account %d\n" (account_num account)
401    
402  (*************************************************************************)  (*************************************************************************)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26