add resize observer (#171)

* add resize observer

* Correct formatting

Co-authored-by: Glenn Slotte <[email protected]>

Author: clentfort

lib/js/src/Webapi.js

@@ -14,10 +14,13 @@ var $$Performance = 0;
 
 var Url = 0;
 
+var $$ResizeObserver = 0;
+
 exports.Base64 = Base64;
 exports.Canvas = Canvas;
 exports.Dom = Dom;
 exports.$$File = $$File;
 exports.$$Performance = $$Performance;
 exports.Url = Url;
+exports.$$ResizeObserver = $$ResizeObserver;
 /* Webapi__Dom Not a pure module */

lib/js/src/Webapi/Webapi__ResizeObserver.js

@@ -0,0 +1,7 @@
+'use strict';
+
+
+var $$ResizeObserverEntry = 0;
+
+exports.$$ResizeObserverEntry = $$ResizeObserverEntry;
+/* No side effect */

lib/js/src/Webapi/Webapi__ResizeObserver/Webapi__ResizeObserver__ResizeObserverEntry.js

@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

lib/js/tests/Webapi/Webapi__ResizeObserver__test.js

@@ -0,0 +1,25 @@
+'use strict';
+
+var Caml_array = require("bs-platform/lib/js/caml_array.js");
+
+var el = document.createElement("strong");
+
+function handler(entries) {
+  var entry = Caml_array.caml_array_get(entries, 0);
+  entry.contentRect;
+  entry.target;
+  return /* () */0;
+}
+
+var observer = new ResizeObserver(handler);
+
+observer.observe(el);
+
+observer.unobserve(el);
+
+observer.disconnect();
+
+exports.el = el;
+exports.handler = handler;
+exports.observer = observer;
+/* el Not a pure module */

src/Webapi.re

@@ -10,3 +10,4 @@ module Dom = Webapi__Dom;
 module File = Webapi__File;
 module Performance = Webapi__Performance;
 module Url = Webapi__Url;
+module ResizeObserver = Webapi__ResizeObserver;

src/Webapi/Webapi__ResizeObserver.re

@@ -0,0 +1,13 @@
+module ResizeObserverEntry = Webapi__ResizeObserver__ResizeObserverEntry;
+
+type t;
+
+[@bs.new]
+external make: (array(ResizeObserverEntry.t) => unit) => t = "ResizeObserver";
+[@bs.new]
+external makeWithObserver: ((array(ResizeObserverEntry.t), t) => unit) => t =
+  "ResizeObserver";
+
+[@bs.send] external disconnect: t => unit = "";
+[@bs.send] external observe: (t, Dom.element) => unit = "";
+[@bs.send] external unobserve: (t, Dom.element) => unit = "";

src/Webapi/Webapi__ResizeObserver/Webapi__ResizeObserver__ResizeObserverEntry.re

@@ -0,0 +1,4 @@
+type t;
+
+[@bs.get] external contentRect: t => Dom.domRect = "";
+[@bs.get] external target: t => Dom.element = "";

tests/Webapi/Webapi__ResizeObserver__test.re

@@ -0,0 +1,13 @@
+let el = Webapi.Dom.document |> Webapi.Dom.Document.createElement("strong");
+
+let handler = (entries) => {
+  let entry = entries[0];
+  let _: Dom.domRect = Webapi.ResizeObserver.ResizeObserverEntry.contentRect(entry);
+  let _: Dom.element = Webapi.ResizeObserver.ResizeObserverEntry.target(entry);
+}
+
+let observer = Webapi.ResizeObserver.make(handler);
+
+Webapi.ResizeObserver.observe(observer, el);
+Webapi.ResizeObserver.unobserve(observer, el);
+Webapi.ResizeObserver.disconnect(observer);