Lib: implement popover API. (#1734)

See:
- https://html.spec.whatwg.org/multipage/popover.html ;
- https://developer.mozilla.org/en-US/docs/Web/API/Popover_API .

Author: SylvainBoilard

CHANGES.md

@@ -137,6 +137,7 @@
 * Runtime: reimplement the runtime of weak and ephemeron (#1707)
 * Lib: Modify Typed_array API for compatibility with WebAssembly
 * Lib: add details element and toggle event (#1728)
+* Lib: implement popover API (#1734)
 * Toplevel: no longer set globals for toplevel initialization
 * Runtime: precompute constants used in `caml_lxm_next` (#1730)
 * Runtime: cleanup runtime

lib/js_of_ocaml/dom_html.ml

@@ -569,6 +569,10 @@ and eventTarget = object ('self)
 
   method onpointerup : ('self t, pointerEvent t) event_listener writeonly_prop
 
+  method onbeforetoggle : ('self t, toggleEvent t) event_listener writeonly_prop
+
+  method ontoggle : ('self t, toggleEvent t) event_listener writeonly_prop
+
   method dispatchEvent : event t -> bool t meth
 end
 
@@ -747,6 +751,8 @@ and element = object
 
   method scrollHeight : int prop
 
+  method popover : js_string t opt prop
+
   method getClientRects : clientRectList t meth
 
   method getBoundingClientRect : clientRect t meth
@@ -759,6 +765,18 @@ and element = object
 
   method blur : unit meth
 
+  method hidePopover : unit meth
+
+  method showPopover : unit meth
+
+  method showPopover_options : _ -> unit meth
+
+  method togglePopover : bool t meth
+
+  method togglePopover_force : bool t -> bool t meth
+
+  method togglePopover_options : _ -> bool t meth
+
   inherit eventTarget
 end
 
@@ -979,6 +997,8 @@ module Event = struct
 
   let waiting = Dom.Event.make "waiting"
 
+  let beforetoggle = Dom.Event.make "beforetoggle"
+
   let toggle = Dom.Event.make "toggle"
 
   let make = Dom.Event.make
@@ -1209,6 +1229,10 @@ class type inputElement = object ('self)
 
   method selectionEnd : int prop
 
+  method popovertarget : element t opt prop
+
+  method popovertargetaction : js_string t prop
+
   method onselect : ('self t, event t) event_listener prop
 
   method onchange : ('self t, event t) event_listener prop
@@ -1284,6 +1308,10 @@ class type buttonElement = object
   method _type : js_string t readonly_prop
 
   method value : js_string t prop
+
+  method popovertarget : element t opt prop
+
+  method popovertargetaction : js_string t prop
 end
 
 class type labelElement = object
@@ -1400,8 +1428,6 @@ class type detailsElement = object ('self)
   method open_ : bool t prop
 
   method name : js_string t prop
-
-  method ontoggle : ('self t, toggleEvent t) event_listener prop
 end
 
 class type imageElement = object ('self)

lib/js_of_ocaml/dom_html.mli

@@ -585,6 +585,10 @@ and eventTarget = object ('self)
 
   method onpointerup : ('self t, pointerEvent t) event_listener writeonly_prop
 
+  method onbeforetoggle : ('self t, toggleEvent t) event_listener writeonly_prop
+
+  method ontoggle : ('self t, toggleEvent t) event_listener writeonly_prop
+
   method dispatchEvent : event t -> bool t meth
 end
 
@@ -767,6 +771,8 @@ and element = object
 
   method scrollHeight : int prop
 
+  method popover : js_string t opt prop
+
   method getClientRects : clientRectList t meth
 
   method getBoundingClientRect : clientRect t meth
@@ -779,6 +785,18 @@ and element = object
 
   method blur : unit meth
 
+  method hidePopover : unit meth
+
+  method showPopover : unit meth
+
+  method showPopover_options : _ -> unit meth
+
+  method togglePopover : bool t meth
+
+  method togglePopover_force : bool t -> bool t meth
+
+  method togglePopover_options : _ -> bool t meth
+
   inherit eventTarget
 end
 
@@ -1021,6 +1039,10 @@ class type inputElement = object ('self)
 
   method selectionEnd : int prop
 
+  method popovertarget : element t opt prop
+
+  method popovertargetaction : js_string t prop
+
   method onselect : ('self t, event t) event_listener prop
 
   method onchange : ('self t, event t) event_listener prop
@@ -1096,6 +1118,10 @@ class type buttonElement = object
   method _type : js_string t readonly_prop
 
   method value : js_string t prop
+
+  method popovertarget : element t opt prop
+
+  method popovertargetaction : js_string t prop
 end
 
 class type labelElement = object
@@ -1212,8 +1238,6 @@ class type detailsElement = object ('self)
   method open_ : bool t prop
 
   method name : js_string t prop
-
-  method ontoggle : ('self t, toggleEvent t) event_listener prop
 end
 
 class type imageElement = object ('self)
@@ -2580,6 +2604,8 @@ module Event : sig
 
   val waiting : mediaEvent t typ
 
+  val beforetoggle : toggleEvent t typ
+
   val toggle : toggleEvent t typ
 
   val make : string -> 'a typ