kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

better Layer.bind_popup and add Map.open/close_popup

Browse source
This commit is contained in:
Swrup 2022-06-26 04:08:53 +02:00
parent 2affa8b5fa
commit 23ea827e40
6 changed files with 21 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/popup.ml
View file

@ -12,16 +12,10 @@ let set_content content =
let (_ : Jv.t) = Jv.call popup "setContent" [| Jv.of_string content |] in
()
let open_on map =
let (_ : Jv.t) = Jv.call popup "openOn" [| Map.to_jv map |] in
()
let close map =
let (_ : Jv.t) = Jv.call (Map.to_jv map) "closePopup" [||] in
()
let of_jv = Fun.id
let to_jv = Fun.id
type opt =
| Pane of string
| Offset of Point.t