selectionchange event (#161)

* added selection change event

* separated out the selectionchange event into a GlobalsEventHandlers

Author: spocke

src/Webapi/Webapi__Dom/Webapi__Dom__Element.re

@@ -111,6 +111,7 @@ type t = Dom.element;
 
 include Webapi__Dom__Node.Impl({ type nonrec t = t; });
 include Webapi__Dom__EventTarget.Impl({ type nonrec t = t; });
+include Webapi__Dom__GlobalEventHandlers.Impl({ type nonrec t = t; });
 include Webapi__Dom__ParentNode.Impl({ type nonrec t = t; });
 include Webapi__Dom__NonDocumentTypeChildNode.Impl({ type nonrec t = t; });
 include Webapi__Dom__ChildNode.Impl({ type nonrec t = t; });

src/Webapi/Webapi__Dom/Webapi__Dom__GlobalEventHandlers.re

@@ -0,0 +1,9 @@
+/* Mixin */
+module Impl = (T: {type t;}) => {
+  [@bs.send.pipe : T.t] external addSelectionChangeEventListener : ([@bs.as "selectionchange"] _, Dom.focusEvent => unit) => unit = "addEventListener";
+  [@bs.send.pipe : T.t] external addSelectionChangeEventListenerWithOptions : ([@bs.as "selectionchange"] _, Dom.focusEvent => unit, {. "capture": bool, "once": bool, "passive": bool}) => unit = "addEventListener"; /* not widely supported */
+  [@bs.send.pipe : T.t] external addSelectionChangeEventListenerUseCapture : ([@bs.as "selectionchange"] _, Dom.focusEvent => unit, [@bs.as {json|true|json}] _) => unit = "addEventListener";
+  [@bs.send.pipe : T.t] external removeSelectionChangeEventListener : ([@bs.as "selectionchange"] _, Dom.focusEvent => unit) => unit = "removeEventListener";
+  [@bs.send.pipe : T.t] external removeSelectionChangeEventListenerWithOptions : ([@bs.as "selectionchange"] _, Dom.focusEvent => unit, {. "capture": bool, "passive": bool}) => unit = "removeEventListener"; /* not widely supported */
+  [@bs.send.pipe : T.t] external removeSelectionChangeEventListenerUseCapture : ([@bs.as "selectionchange"] _, Dom.focusEvent =>unit, [@bs.as {json|true|json}] _) => unit = "removeEventListener";
+};

src/Webapi/Webapi__Dom/Webapi__Dom__HtmlDocument.re

@@ -59,5 +59,6 @@ type t = Dom.htmlDocument;
 
 include Webapi__Dom__Node.Impl({ type nonrec t = t; });
 include Webapi__Dom__EventTarget.Impl({ type nonrec t = t; });
+include Webapi__Dom__GlobalEventHandlers.Impl({ type nonrec t = t; });
 include Webapi__Dom__Document.Impl({ type nonrec t = t; });
 include Impl({ type nonrec t = t; });

src/Webapi/Webapi__Dom/Webapi__Dom__HtmlElement.re

@@ -99,5 +99,6 @@ type t = Dom.htmlElement;
 
 include Webapi__Dom__Node.Impl({ type nonrec t = t; });
 include Webapi__Dom__EventTarget.Impl({ type nonrec t = t; });
+include Webapi__Dom__GlobalEventHandlers.Impl({ type nonrec t = t; });
 include Webapi__Dom__Element.Impl({ type nonrec t = t; });
 include Impl({ type nonrec t = t; });

src/Webapi/Webapi__Dom/Webapi__Dom__Window.re

@@ -103,4 +103,5 @@ type t = Dom.window;
 
 /* include WindowOrWorkerGlobalScope? not really "dom" though */
 include Webapi__Dom__EventTarget.Impl({ type nonrec t = t; });
+include Webapi__Dom__GlobalEventHandlers.Impl({ type nonrec t = t; });
 include Impl({ type nonrec t = t; });

tests/Webapi/Webapi__Dom/Webapi__Dom__GlobalEventHandlers__test.re

@@ -0,0 +1,33 @@
+open Webapi.Dom;
+
+let handleSelection = (_) => print_endline("change");
+
+let elm = document |> Document.createElement("strong");
+
+Element.addSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "once": true, "capture": false}, elm);
+Element.addSelectionChangeEventListenerUseCapture(handleSelection, elm);
+Element.removeSelectionChangeEventListener(handleSelection, elm);
+Element.removeSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "capture": false}, elm);
+Element.removeSelectionChangeEventListenerUseCapture(handleSelection, elm);
+
+let htmlElm = document |> Document.createElement("strong") |> HtmlElement.ofElement |> TestHelpers.unsafelyUnwrapOption;
+
+HtmlElement.addSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "once": true, "capture": false}, htmlElm);
+HtmlElement.addSelectionChangeEventListenerUseCapture(handleSelection, htmlElm);
+HtmlElement.removeSelectionChangeEventListener(handleSelection, htmlElm);
+HtmlElement.removeSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "capture": false}, htmlElm);
+HtmlElement.removeSelectionChangeEventListenerUseCapture(handleSelection, htmlElm);
+
+let htmlDoc = document |> Document.asHtmlDocument |> TestHelpers.unsafelyUnwrapOption;
+
+HtmlDocument.addSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "once": true, "capture": false}, htmlDoc);
+HtmlDocument.addSelectionChangeEventListenerUseCapture(handleSelection, htmlDoc);
+HtmlDocument.removeSelectionChangeEventListener(handleSelection, htmlDoc);
+HtmlDocument.removeSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "capture": false}, htmlDoc);
+HtmlDocument.removeSelectionChangeEventListenerUseCapture(handleSelection, htmlDoc);
+
+Window.addSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "once": true, "capture": false}, window);
+Window.addSelectionChangeEventListenerUseCapture(handleSelection, window);
+Window.removeSelectionChangeEventListener(handleSelection, window);
+Window.removeSelectionChangeEventListenerWithOptions(handleSelection, {"passive": true, "capture": false}, window);
+Window.removeSelectionChangeEventListenerUseCapture(handleSelection, window);