blob: 6e658ced9cefc9f3032350b28e1ad0d1038b3ae2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(* 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)
|