24 lines
642 B
OCaml
24 lines
642 B
OCaml
|
type t = Jv.t
|
||
|
|
|
||
|
|
let add_to map layer = ignore @@ Jv.call layer "addTo" [| Map.to_jv_t map |]
|
||
|
|
|
||
|
|
let remove layer = ignore @@ Jv.call layer "remove" [||]
|
||
|
|
|
||
|
|
let remove_from map layer =
|
||
|
|
ignore @@ Jv.call layer "removeFrom" [| Map.to_jv_t map |]
|
||
|
|
|
||
|
|
let bind_popup el layer =
|
||
|
|
ignore @@ Jv.call layer "bindPopup" [| Brr.El.to_jv el |]
|
||
|
|
|
||
|
|
let unbind_popup layer = ignore @@ Jv.call layer "unbindPopup" [||]
|
||
|
|
|
||
|
|
let open_popup layer = ignore @@ Jv.call layer "openPopup" [||]
|
||
|
|
|
||
|
|
let close_popup layer = ignore @@ Jv.call layer "closePopup" [||]
|
||
|
|
|
||
|
|
let get_popup layer = Popup.of_jv_t @@ Jv.call layer "getPopup" [||]
|
||
|
|
|
||
|
|
let of_jv_t = Fun.id
|
||
|
|
|
||
|
|
let to_jv_t = Fun.id
|