javascript - js_of_ocaml 和 event_listener

Question

我在 js_of_ocaml 中有一个 div，我想分配一个 onmouseover 事件，比如

deck_div##onmouseover <- (fun () -> (* do stuff *) )

但是，预期的函数类型是

(Dom_html.divElement Js.t, Dom_html.mouseEvent Js.t) Dom_html.event_listener

如何构造这个事件监听器？deck_div没有办法addEventListener。

Answer 1

几个月前我在考虑同样的问题，而且我已经成功使用 Html.handler。也许这个例子会帮助你

https://github.com/ocsigen/js_of_ocaml/blob/master/examples/hyperbolic/hypertree.ml#L276

let handle_drag element move stop click =
  let fuzz = 4 in
  element##onmousedown <- Html.handler
    (fun ev ->
       let x0 = ev##clientX and y0 = ev##clientY in
       ....