Javascript ocaml和事件侦听器的js_

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

deck#u div#onmouseover（*do stuff*）

但是，函数类型是预期的

（Dom\u html.divElement Js.t、Dom\u html.mouseEvent Js.t）Dom\u html.event\u listener

---

如何构造此事件侦听器

deck_div

没有方法

addEventListener

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

让handle\u拖动元素移动停止单击=
让fuzz=4英寸
元素##onmousedown
让x0=ev###clientX和y0=ev##clientY进入
....

如何正确地将显式键入（键入提示）添加到

ev

参数？

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