/[mldonkey]/mldonkey/src/gtk2/gui/guiNetworks.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiNetworks.ml

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

revision 1.1 by spiralvoice, Wed Mar 2 19:45:11 2005 UTC revision 1.2 by spiralvoice, Mon Oct 31 18:34:02 2005 UTC
# Line 50  let enable_network (num, b) = Line 50  let enable_network (num, b) =
50    (if !!verbose then lprintf' "Enable network %d %b\n" num b);    (if !!verbose then lprintf' "Enable network %d %b\n" num b);
51    GuiCom.send (EnableNetwork (num, b))    GuiCom.send (EnableNetwork (num, b))
52    
 let update_networks () = ()  
 (*  
 TODO :  
   the core should update the values ... but it doesn't  
     Hashtbl.iter (fun num n ->  
       (* Printf.printf "Update network %d %b\n" num n.net_enabled;  
       flush stdout; *)  
       if n.net_enabled  
         then GuiCom.send (GetNetworkInfo num)  
   ) G.networks  
 *)  
   
53  (*************************************************************************)  (*************************************************************************)
54  (*                                                                       *)  (*                                                                       *)
55  (*                         Global tables                                 *)  (*                         Global tables                                 *)
# Line 334  let networks_box gui = Line 322  let networks_box gui =
322           n := 0;           n := 0;
323         end         end
324    ) net_list;    ) net_list;
   (*  
   networks_timerID := Timeout.add ~ms:6000 ~callback:  
     (fun _ ->  
       (* Printf.printf "Update networks\n";  
       flush stdout; *)  
       update_networks ();  
       true);  
 *)  
325    vbox#coerce    vbox#coerce

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

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