You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

42 lines
815 B

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