3

onmouseover イベントを割り当てたい js_of_ocaml に div があります。

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

ただし、期待される関数型は

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

このイベントリスナーを構築する方法は? deck_divメソッドはありませんaddEventListener。

4

1 に答える 1

5

私は数ヶ月前に同じ質問について考えていました.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
       ....
于 2013-08-08T09:35:54.910 に答える