added old data transfer interface

Author: spocke

lib/js/tests/Webapi/Dom/Webapi__Dom__DataTransfer__test.js

@@ -11,8 +11,23 @@ var items = dataTransfer.items;
 
 dataTransfer.setDragImage(document.createElement("div"), 10, 10);
 
+var types = dataTransfer.types;
+
+var data = dataTransfer.getData("text/plain");
+
+dataTransfer.setData("text/plain", "text");
+
+dataTransfer.clearData("text/plain");
+
+dataTransfer.clearData();
+
+var files = dataTransfer.files;
+
 exports.dataTransfer = dataTransfer;
 exports.dropEffect = dropEffect;
 exports.effectAllowed = effectAllowed;
 exports.items = items;
+exports.types = types;
+exports.data = data;
+exports.files = files;
 /* dataTransfer Not a pure module */

src/Webapi.res

@@ -3,6 +3,7 @@ module Blob = Webapi__Blob
 module Canvas = Webapi__Canvas
 module Dom = Webapi__Dom
 module File = Webapi__File
+module FileList = Webapi__FileList
 module Fetch = Webapi__Fetch
 module FormData = Webapi__FormData
 

src/Webapi/Dom/Webapi__Dom__DataTransfer.res

@@ -6,3 +6,11 @@ type t = Dom.dataTransfer
 @get external effectAllowed: t => string = "effectAllowed"
 @get external items: t => Webapi__Dom__DataTransferItemList.t = "items"
 @send external setDragImage: (t, Dom.element_like<'a>, int, int) => unit = "setDragImage"
+
+// old interface
+@get external types: t => array<string> = "types"
+@send external getData: (t, string) => string = "getData"
+@send external setData: (t, string, string) => unit = "setData"
+@send external clearData: (t, string) => unit = "clearData"
+@send external clearAllData: t => unit = "clearData"
+@get external files: t => Webapi__FileList.t = "files"

src/Webapi/Webapi__FileList.res

@@ -0,0 +1,9 @@
+type t = {
+  length: int
+}
+
+@val external toArray: t => array<Webapi__File.t> = "Array.prototype.slice.call"
+
+@get external length: t => int = "length"
+
+@send @return(nullable) external item: (t, int) => option<Webapi__File.t> = "item"

tests/Webapi/Dom/Webapi__Dom__DataTransfer__test.res

@@ -3,7 +3,14 @@ open DataTransfer
 
 let dataTransfer = make()
 
-let dropEffect = dataTransfer->dropEffect
-let effectAllowed = dataTransfer->effectAllowed
-let items = dataTransfer->items
+let dropEffect: string = dataTransfer->dropEffect
+let effectAllowed: string = dataTransfer->effectAllowed
+let items: Webapi__Dom__DataTransferItemList.t = dataTransfer->items
 dataTransfer->setDragImage(document->Document.createElement("div"), 10, 10)
+
+let types: array<string> = dataTransfer->types
+let data: string = dataTransfer->getData("text/plain")
+dataTransfer->setData("text/plain", "text")
+dataTransfer->clearData("text/plain")
+dataTransfer->clearAllData
+let files: Webapi__FileList.t = dataTransfer->files