forked from swrup/leaflet
43 lines
815 B
OCaml
43 lines
815 B
OCaml
type _ t =
|
|
| Keyboard : Jv.t -> [> `Keyboard ] t
|
|
| Mouse : Jv.t -> [> `Mouse ] t
|
|
| Error : Jv.t -> [> `Error ] t
|
|
| Basic : Jv.t -> [> `Basic ] t
|
|
|
|
type _ sub =
|
|
| Click : [> `Mouse ] sub
|
|
| Move_end : [> `Basic ] sub
|
|
| Zoom_end : [> `Basic ] sub
|
|
|
|
val of_jv : 'a sub -> Jv.t -> 'a t
|
|
|
|
val sub_to_string : _ sub -> string
|
|
|
|
(** Basic events *)
|
|
|
|
val get_type : _ t -> string
|
|
|
|
val target : _ t -> Brr.Ev.target
|
|
|
|
val source_target : _ t -> Brr.Ev.target
|
|
|
|
val propagated_from : _ t -> Jv.t
|
|
|
|
(** Keyboard & Mouse events *)
|
|
|
|
val original_event : [ `Keyboard | `Mouse ] t -> Jv.t
|
|
|
|
(** Mouse events *)
|
|
|
|
val container_point : [ `Mouse ] t -> Jv.t
|
|
|
|
val layer_point : [ `Mouse ] t -> Jv.t
|
|
|
|
val latlng : [ `Mouse ] t -> Latlng.t
|
|
|
|
(** Error events *)
|
|
|
|
val code : [ `Error ] t -> int
|
|
|
|
val message : [ `Error ] t -> string
|