/[mldonkey]/mldonkey/src/gtk/gui/gui_queries.ml
ViewVC logotype

Diff of /mldonkey/src/gtk/gui/gui_queries.ml

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

revision 1.5 by spiralvoice, Sun Oct 16 20:42:52 2005 UTC revision 1.6 by spiralvoice, Tue Oct 18 20:52:08 2005 UTC
# Line 283  let rec entry_of_form qf = Line 283  let rec entry_of_form qf =
283        let size =        let size =
284          try          try
285            Int64.to_string            Int64.to_string
286              ((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))
287          with _ -> ""          with _ -> ""
288        in        in
289        Q_MINSIZE ("", size)        Q_MINSIZE ("", size)
290    | QF_MAXSIZE (we,we2) ->    | QF_MAXSIZE (we,we2) ->
291        let size =        let size =
292          try Int64.to_string          try Int64.to_string
293              ((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))
294          with _ -> ""          with _ -> ""
295        in        in
296        Q_MAXSIZE ("", size)        Q_MAXSIZE ("", size)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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