Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |