leaflet/src/ev.mli

module Event : sig
  type t

  val type' : t -> string

  val target : t -> Brr.Ev.target

  val source_target : t -> Brr.Ev.target

  (* TODO this should return Point *)
  val propagated_from : t -> Jv.t
end

module Keyboard : sig
  type t

  val type' : t -> string

  val target : t -> Brr.Ev.target

  val source_target : t -> Brr.Ev.target

  val propagated_from : t -> Jv.t

  (* TODO this should return BrrDomEvent*)
  val original_event : t -> Jv.t
end

module Mouse : sig
  type t

  val type' : t -> string

  val target : t -> Brr.Ev.target

  val source_target : t -> Brr.Ev.target

  val propagated_from : t -> Jv.t

  val latlng : t -> Latlng.t

  (* TODO this should return Point *)
  val layer_point : t -> Jv.t

  (* TODO this should return Point *)
  val container_point : t -> Jv.t

  (* TODO this should return BrrDomEvent*)
  val original_event : t -> Jv.t
end

module Error : sig
  type t

  val type' : t -> string

  val target : t -> Brr.Ev.target

  val source_target : t -> Brr.Ev.target

  val propagated_from : t -> Jv.t

  val message : t -> string

  val code : t -> int
end