Added _URL class and _URL property to Dom_html.window.

maxigue · Apr 12, 2016 · d465c90 · d465c90
1 parent f5f6689
commit d465c90
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/lib/dom_html.ml b/lib/dom_html.ml
@@ -1186,6 +1186,11 @@ class type applicationCache = object
 
 end
 
+class type _URL = object
+  method createObjectURL : #File.blob t -> js_string t meth
+  method revokeObjectURL : js_string t -> unit meth
+end
+
 class type window = object
   inherit eventTarget
 
@@ -1249,8 +1254,11 @@ class type window = object
 
   method ononline : (window t, event t) event_listener writeonly_prop
   method onoffline : (window t, event t) event_listener writeonly_prop
+
+  method _URL : _URL t readonly_prop
 end
 
+
 let window : window t = Js.Unsafe.global (* The toplevel object *)
 
 let document = window##document

diff --git a/lib/dom_html.mli b/lib/dom_html.mli
@@ -1139,6 +1139,11 @@ type interval_id
 type timeout_id
 type animation_frame_request_id
 
+class type _URL = object
+  method createObjectURL : #File.blob t -> js_string t meth
+  method revokeObjectURL : js_string t -> unit meth
+end
+
 (** Specification of window objects *)
 class type window = object
   inherit eventTarget
@@ -1203,6 +1208,8 @@ class type window = object
 
   method ononline : (window t, event t) event_listener writeonly_prop
   method onoffline : (window t, event t) event_listener writeonly_prop
+
+  method _URL : _URL t readonly_prop
 end
 
 val window : window t