src/Lib/Dom/HE.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

(* Event listeners *)

let on_click f = H.EventAttr ("click", f)

let on_input f = H.EventAttr ("input", f)

let on_submit f = H.EventAttr ("submit", f)

let on_blur f = H.EventAttr ("blur", f)

let on_change f = H.EventAttr ("change", f)

let on_focus f = H.EventAttr ("focus", f)