[Mldonkey-commits] mldonkey/src/gtk2/gui guiDownloads.ml guiMisc.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/01/09 00:33:13

Modified files:
        src/gtk2/gui   : guiDownloads.ml guiMisc.ml 

Log message:
        patch #4777

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/gtk2/gui/guiDownloads.ml.diff?tr1=1.12&tr2=1.13&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/gtk2/gui/guiMisc.ml.diff?tr1=1.15&tr2=1.16&r1=text&r2=text

Patches:
Index: mldonkey/src/gtk2/gui/guiDownloads.ml
diff -u mldonkey/src/gtk2/gui/guiDownloads.ml:1.12 
mldonkey/src/gtk2/gui/guiDownloads.ml:1.13
--- mldonkey/src/gtk2/gui/guiDownloads.ml:1.12  Sun Nov 27 14:04:33 2005
+++ mldonkey/src/gtk2/gui/guiDownloads.ml       Mon Jan  9 00:33:13 2006
@@ -72,7 +72,7 @@
   {
      source_num = (-1);
      source_network = 0;
-     source_kind = Indirect_location ("", Md4.null);
+     source_kind = Indirect_location ("", Md4.null, Ip.null, 0);
      source_state = RemovedHost;
      source_type = client_initialized_tag;
      source_tags = [];
Index: mldonkey/src/gtk2/gui/guiMisc.ml
diff -u mldonkey/src/gtk2/gui/guiMisc.ml:1.15 
mldonkey/src/gtk2/gui/guiMisc.ml:1.16
--- mldonkey/src/gtk2/gui/guiMisc.ml:1.15       Sun Nov 27 14:04:33 2005
+++ mldonkey/src/gtk2/gui/guiMisc.ml    Mon Jan  9 00:33:13 2006
@@ -1023,7 +1023,7 @@
 let hash_of_client kind =
   match kind with
       Known_location _ -> "-"
-    | Indirect_location (_, md4) -> Printf.sprintf "%s" (Md4.to_string md4)
+    | Indirect_location (_, md4, _, _) -> Printf.sprintf "%s" (Md4.to_string 
md4)
 
 (*************************************************************************)
 (*                                                                       *)