我在 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
.
最佳答案
几个月前我也在考虑同样的问题,AFAIR 我已经成功地使用了 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
....
关于javascript - js_of_ocaml 和 event_listener,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18121975/