diff options
Diffstat (limited to 'viz.js/convert.ml')
| -rwxr-xr-x | viz.js/convert.ml | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/viz.js/convert.ml b/viz.js/convert.ml index 75c4fcd..68bf244 100755 --- a/viz.js/convert.ml +++ b/viz.js/convert.ml @@ -26,13 +26,6 @@ let on_result_svg () end -let download data (filename : Js.js_string Js.t) (mime: Js.js_string Js.t) - = Js.Unsafe.( - fun_call (js_expr "download") - [| inject data - ; inject filename - ; inject mime |]) - (** Message send by the worker *) type message = Process.t type worker = (Js.js_string Js.t, message) Worker.worker Js.t @@ -78,7 +71,10 @@ let load () = (* Download the dot file *) dot_button##.onclick := Dom_html.handler (fun _ev -> - let _ = download input (Js.string "output.dot") (Js.string "text/plain") in + let _ = Elements.Transfert.send + ~mime_type:(Jstr.v "text/plain") + ~filename:(Jstr.v "output.dot") + (Obj.magic input) in Js._false ); @@ -86,7 +82,10 @@ let load () = output_button##.onclick := Dom_html.handler (fun _-> (*download image*) CanvasTool.generate_png image (fun image -> - let _ = download image (Js.string "output.png") (Js.string "text/plain") in + let _ = + Elements.Transfert.send_raw + ~filename:(Jstr.v "output.png") + (Obj.magic image) in () ); Js._false |