/[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.4 by mldonkey, Fri Jan 30 06:11:05 2004 UTC revision 1.5 by spiralvoice, Sun Oct 16 20:42:52 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.mul (Int64.of_string we#text)              ((Int64.of_string we#text) ** (Gui_misc.unit_of_string we2#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.mul (Int64.of_string we#text)              ((Int64.of_string we#text) ** (Gui_misc.unit_of_string we2#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.4  
changed lines
  Added in v.1.5

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