Source file `windows_chrome_lwt.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Ezjs_min_lwt
open Promise
include Chrome_common.Windows

let get ?info id =
  to_lwt_cb (fun cb -> windows##get id (Optdef.option info) cb)
let getCurrent ?info () =
  to_lwt_cb (fun cb -> windows##getCurrent (Optdef.option info) cb)
let getLastFocused ?info () =
  to_lwt_cb (fun cb -> windows##getLastFocused (Optdef.option info) cb)
let getAll ?info () =
  to_lwt_cb_tr to_list (fun cb -> windows##getAll (Optdef.option info) cb)
let create ?info ?callback () =
  to_lwt_cb_opt callback (fun cb -> windows##create (Optdef.option info) cb)
let update ?callback id info =
  to_lwt_cb_opt callback (fun cb -> windows##update id info cb)
let remove ?callback id =
  to_lwt_cb_opt callback (fun cb -> windows##remove id cb)