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

[mldonkey-commits]

Index: mldonkey/src/gtk2/gui/guiNetworks.ml
diff -u mldonkey/src/gtk2/gui/guiNetworks.ml:1.1 
mldonkey/src/gtk2/gui/guiNetworks.ml:1.2
--- mldonkey/src/gtk2/gui/guiNetworks.ml:1.1    Wed Mar  2 19:45:11 2005
+++ mldonkey/src/gtk2/gui/guiNetworks.ml        Mon Oct 31 18:34:02 2005
@@ -50,18 +50,6 @@
   (if !!verbose then lprintf' "Enable network %d %b\n" num b);
   GuiCom.send (EnableNetwork (num, b))
 
-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
-*)
-
 (*************************************************************************)
 (*                                                                       *)
 (*                         Global tables                                 *)
@@ -334,12 +322,4 @@
          n := 0;
        end
   ) net_list;
-  (*
-  networks_timerID := Timeout.add ~ms:6000 ~callback:
-    (fun _ ->
-      (* Printf.printf "Update networks\n";
-      flush stdout; *)
-      update_networks ();
-      true);
-*)
   vbox#coerce