diff options
| author | Joris | 2020-07-26 18:16:59 +0200 |
|---|---|---|
| committer | Joris | 2020-07-26 18:16:59 +0200 |
| commit | 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 (patch) | |
| tree | 5f73adaf57354e0070acaa9a6b60dc49c0c48526 /src/Lib/Dom/Element.ml | |
| parent | 447f43995ae8d83c82d98d9d8968e90d6c4518e7 (diff) | |
| download | map-4ee0dfae75fda3a8b6347d55c728b50ce5c210d9.tar.gz map-4ee0dfae75fda3a8b6347d55c728b50ce5c210d9.tar.bz2 map-4ee0dfae75fda3a8b6347d55c728b50ce5c210d9.zip | |
Allow to customize icons
Diffstat (limited to 'src/Lib/Dom/Element.ml')
| -rw-r--r-- | src/Lib/Dom/Element.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Lib/Dom/Element.ml b/src/Lib/Dom/Element.ml index 3e3b78a..a72b783 100644 --- a/src/Lib/Dom/Element.ml +++ b/src/Lib/Dom/Element.ml @@ -1,4 +1,6 @@ -external setValue : Dom.element -> string -> unit = "value" [@@bs.set] +external set_value : Dom.element -> string -> unit = "value" [@@bs.set] + +external value : Dom.element -> string = "value" [@@bs.get] external setTextContent : Dom.element -> string -> unit = "textContent" [@@bs.set] @@ -34,9 +36,9 @@ let removeFirstChild element = true | _ -> false -let rec removeChildren element = - if removeFirstChild element then removeChildren element else () +let rec remove_children element = + if removeFirstChild element then remove_children element else () -let mountOn base element = - let () = removeChildren base in +let mount_on base element = + let () = remove_children base in appendChild base element |