From 063d8ef9eaf874a941f4459e831057dd0a1b7ddd Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Jul 2022 21:55:41 +0200
Subject: Rewrite in TS

---
 src/Lib/ContextMenu.ml | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 src/Lib/ContextMenu.ml

(limited to 'src/Lib/ContextMenu.ml')

diff --git a/src/Lib/ContextMenu.ml b/src/Lib/ContextMenu.ml
deleted file mode 100644
index b9ed7d4..0000000
--- a/src/Lib/ContextMenu.ml
+++ /dev/null
@@ -1,40 +0,0 @@
-let px f =
-  Js.Float.toString f ^ "px"
-
-type entry =
-  { label: string
-  ; action: unit -> unit
-  }
-
-let show mouse_event actions =
-  let menu =
-    H.div
-      [| HA.id "g-ContextMenu"
-      ;  HA.style ("left: " ^ (px (Event.page_x mouse_event)) ^ "; top: " ^ (px (Event.page_y mouse_event)))
-      |]
-      (Js.Array.map
-        (fun entry ->
-          H.div
-            [| HA.class_ "g-ContextMenu__Entry"
-            ;  HE.on_click (fun _ -> entry.action ())
-            |]
-            [| H.text entry.label |])
-        actions)
-  in
-  let () = Element.append_child Document.body menu in
-
-  (* Remove on click or context menu *)
-  let _ =
-    Js.Global.setTimeout
-      (fun _ ->
-        let rec f = (fun _ ->
-          let () = Element.remove_child Document.body menu in
-          let () = Element.remove_event_listener Document.body "click" f in
-          Element.remove_event_listener Document.body "contextmenu" f)
-        in
-        let () = Element.add_event_listener Document.body "click" f in
-        Element.add_event_listener Document.body "contextmenu" f
-      )
-      0
-  in
-  ()
-- 
cgit v1.2.3