diff options
author | Joris | 2020-08-08 12:49:03 +0200 |
---|---|---|
committer | Joris | 2020-08-08 12:49:03 +0200 |
commit | 081e6aae57719c15bdbc5e973ca7ddba9506a4bb (patch) | |
tree | a8de15bb4165639cf283bde7b7e63eb330e83d88 /src/View/Modal.ml | |
parent | 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 (diff) | |
download | map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.tar.gz map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.tar.bz2 map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.zip |
Show context menu to add, modify and delete markers
Diffstat (limited to 'src/View/Modal.ml')
-rw-r--r-- | src/View/Modal.ml | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/View/Modal.ml b/src/View/Modal.ml deleted file mode 100644 index 9365555..0000000 --- a/src/View/Modal.ml +++ /dev/null @@ -1,27 +0,0 @@ -let hide () = - let body = Document.querySelectorUnsafe "body" in - let modal = Document.querySelectorUnsafe ".g-Modal" in - Element.removeChild body modal - -let show content = - let body = Document.querySelectorUnsafe "body" in - let view = - H.div - [| HA.class_ "g-Modal" |] - [| H.div - [| HA.class_ "g-Modal__Curtain" - ; HE.on_click (fun _ -> hide ()) - |] - [| |] - ; H.div - [| HA.class_ "g-Modal__Window" |] - [| H.button - [| HA.class_ "g-Modal__Close" - ; HE.on_click (fun _ -> hide ()) - |] - [| H.text "X" |] - ; content - |] - |] - in - Element.appendChild body view |