diff options
Diffstat (limited to 'src/Lib/Dom')
| -rw-r--r-- | src/Lib/Dom/Element.ml | 3 | ||||
| -rw-r--r-- | src/Lib/Dom/HE.ml | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/Lib/Dom/Element.ml b/src/Lib/Dom/Element.ml index 90c0321..e370cf5 100644 --- a/src/Lib/Dom/Element.ml +++ b/src/Lib/Dom/Element.ml @@ -43,3 +43,6 @@ let rec remove_children element = let mount_on base element = let () = remove_children base in append_child base element + +external files : Dom.element -> string Js.Array.t = "files" + [@@bs.get] diff --git a/src/Lib/Dom/HE.ml b/src/Lib/Dom/HE.ml index c9aac16..6e658ce 100644 --- a/src/Lib/Dom/HE.ml +++ b/src/Lib/Dom/HE.ml @@ -7,3 +7,5 @@ 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) |