diff options
| author | Joris | 2020-08-09 08:37:18 +0200 |
|---|---|---|
| committer | Joris | 2020-08-09 08:37:18 +0200 |
| commit | ad6abcd5fc5e4e66062c8a01b511a1bd4bda2e94 (patch) | |
| tree | 0dee6c63c45e34ce960ca6c445b4ee9dbdcb3087 /src/Lib/Dom/Element.ml | |
| parent | 2cb752123d15916496e872c9fbd423c788c86c64 (diff) | |
Export as CSV
Diffstat (limited to 'src/Lib/Dom/Element.ml')
| -rw-r--r-- | src/Lib/Dom/Element.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Lib/Dom/Element.ml b/src/Lib/Dom/Element.ml index 3c63ef4..90c0321 100644 --- a/src/Lib/Dom/Element.ml +++ b/src/Lib/Dom/Element.ml @@ -27,6 +27,9 @@ external first_child : Dom.element -> Dom.element Js.Nullable.t = "firstChild" external remove_child : Dom.element -> Dom.element -> unit = "removeChild" [@@bs.send] +external click : Dom.element -> unit = "click" + [@@bs.send] + let remove_first_child element = match Js.toOption (first_child element) with | Some child -> |