13 lines
189 B
OCaml
13 lines
189 B
OCaml
|
type type' = Jv.t
|
||
|
|
|
||
|
|
module Event = struct
|
||
|
|
(*type for simple Event *)
|
||
|
|
type t = type'
|
||
|
|
end
|
||
|
|
|
||
|
|
module Mouse = struct
|
||
|
|
type t = type'
|
||
|
|
|
||
|
|
let latlng e = Latlng.of_jv_t @@ Jv.get e "latlng"
|
||
|
|
end
|