[Mldonkey-commits] Changes to mldonkey/src/gtk/gui/gui_queries.ml

[mldonkey-commits]

Index: mldonkey/src/gtk/gui/gui_queries.ml
diff -u mldonkey/src/gtk/gui/gui_queries.ml:1.5 
mldonkey/src/gtk/gui/gui_queries.ml:1.6
--- mldonkey/src/gtk/gui/gui_queries.ml:1.5     Sun Oct 16 20:42:52 2005
+++ mldonkey/src/gtk/gui/gui_queries.ml Tue Oct 18 20:52:08 2005
@@ -283,14 +283,14 @@
       let size = 
         try 
           Int64.to_string
-            ((Int64.of_string we#text) ** (Gui_misc.unit_of_string we2#text))
+            (Int64.mul (Int64.of_string we#text) (Gui_misc.unit_of_string 
we2#text))
         with _ -> ""
       in
       Q_MINSIZE ("", size)
   | QF_MAXSIZE (we,we2) -> 
       let size = 
         try Int64.to_string
-            ((Int64.of_string we#text) ** (Gui_misc.unit_of_string we2#text))
+            (Int64.mul (Int64.of_string we#text) (Gui_misc.unit_of_string 
we2#text))
         with _ -> ""
       in
       Q_MAXSIZE ("", size)