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) |