Added cancel and close events

ocsigen · Feb 29, 2024 · 6a69eb6 · 6a69eb6
1 parent 005e668
commit 6a69eb6
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/lib/js_of_ocaml/dom_html.ml b/lib/js_of_ocaml/dom_html.ml
@@ -770,8 +770,12 @@ let invoke_handler = Dom.invoke_handler
 module Event = struct
   type 'a typ = 'a Dom.Event.typ
 
+  let cancel = Dom.Event.make "cancel"
+
   let click = Dom.Event.make "click"
 
+  let close = Dom.Event.make "close"
+
   let copy = Dom.Event.make "copy"
 
   let cut = Dom.Event.make "cut"
@@ -1304,6 +1308,10 @@ class type dialogElement =
     method show : unit meth
 
     method showModal : unit meth
+
+    method oncancel : ('self t, event t) event_listener prop
+
+    method onclose : ('self t, event t) event_listener prop
   end
 
 class type divElement = element

diff --git a/lib/js_of_ocaml/dom_html.mli b/lib/js_of_ocaml/dom_html.mli
@@ -1129,6 +1129,10 @@ class type dialogElement =
     method show : unit meth
 
     method showModal : unit meth
+
+    method oncancel : ('self t, event t) event_listener prop
+
+    method onclose : ('self t, event t) event_listener prop
   end
 
 class type divElement = element
@@ -2314,8 +2318,12 @@ val eventRelatedTarget : #mouseEvent t -> element t opt
 module Event : sig
   type 'a typ = 'a Dom.Event.typ
 
+  val cancel : event t typ
+
   val click : mouseEvent t typ
 
+  val close : event t typ
+
   val copy : clipboardEvent t typ
 
   val cut : clipboardEvent t typ