35 lines
655 B
OCaml
35 lines
655 B
OCaml
|
type t
|
||
|
|
|
||
|
|
module Event : sig
|
||
|
|
(* TODO do this need to be wrapped in Brr.Ev.type' ?*)
|
||
|
|
val click : Ev.Mouse.t Brr.Ev.type'
|
||
|
|
|
||
|
|
val moveend : Ev.Event.t Brr.Ev.type'
|
||
|
|
|
||
|
|
val zoomend : Ev.Event.t Brr.Ev.type'
|
||
|
|
end
|
||
|
|
|
||
|
|
val create : ?options:Jv.t -> string -> t
|
||
|
|
|
||
|
|
val invalidate_size : t -> unit
|
||
|
|
|
||
|
|
val set_view : Latlng.t -> ?zoom:int -> t -> unit
|
||
|
|
|
||
|
|
val fit_world : t -> unit
|
||
|
|
|
||
|
|
val get_container : t -> Brr.El.t
|
||
|
|
|
||
|
|
val on : event:'a Brr.Ev.type' -> handler:('a -> 'b) -> t -> unit
|
||
|
|
|
||
|
|
val get_center : t -> Latlng.t
|
||
|
|
|
||
|
|
val get_zoom : t -> int
|
||
|
|
|
||
|
|
val wrapped_latlng : Latlng.t -> t -> Latlng.t
|
||
|
|
|
||
|
|
val as_target : t -> Brr.Ev.target
|
||
|
|
|
||
|
|
val of_jv_t : Jv.t -> t
|
||
|
|
|
||
|
|
val to_jv_t : t -> Jv.t
|