[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.4 
mldonkey/src/gtk/gui/gui_queries.ml:1.5
--- mldonkey/src/gtk/gui/gui_queries.ml:1.4     Fri Jan 30 06:11:05 2004
+++ mldonkey/src/gtk/gui/gui_queries.ml Sun Oct 16 20:42:52 2005
@@ -283,16 +283,14 @@
       let size = 
         try 
           Int64.to_string
-            (Int64.mul (Int64.of_string we#text) 
-            (Gui_misc.unit_of_string we2#text))
+            ((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.mul (Int64.of_string we#text) 
-            (Gui_misc.unit_of_string we2#text))
+            ((Int64.of_string we#text) ** (Gui_misc.unit_of_string we2#text))
         with _ -> ""
       in
       Q_MAXSIZE ("", size)