2022-04-07 15:24:25 +02:00
|
|
|
type t = Jv.t
|
2022-04-07 14:45:11 +02:00
|
|
|
|
|
|
|
|
module Event = struct
|
|
|
|
|
(*type for simple Event *)
|
2022-04-07 15:24:25 +02:00
|
|
|
type nonrec t = t
|
2022-04-07 14:45:11 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
module Mouse = struct
|
2022-04-07 15:24:25 +02:00
|
|
|
type nonrec t = t
|
2022-04-07 14:45:11 +02:00
|
|
|
|
|
|
|
|
let latlng e = Latlng.of_jv_t @@ Jv.get e "latlng"
|
|
|
|
|
end
|
