swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

remove on_click popup event on map

Browse source
This commit is contained in:
Swrup 2022-01-18 00:01:56 +01:00
parent 8facf4636c
commit 77ed1f483f
1 changed files with 0 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/js_babillard.ml
View file

@ -46,25 +46,6 @@ module Leaflet = struct
log "adding tile layer@."; log "adding tile layer@.";
let _map : Jv.t = Jv.call tile_layer "addTo" [| map |] in let _map : Jv.t = Jv.call tile_layer "addTo" [| map |] in
() ()
let on_click e =
log "on_click@.";
let lat_lng = Jv.get e "latlng" in
ignore @@ Jv.call popup "setLatLng" [| lat_lng |];
ignore @@ Jv.call popup "setContent" [| Jv.of_string "euujjj" |];
ignore @@ Jv.call popup "openOn" [| map |];
let lat = Jv.get lat_lng "lat" in
let lng = Jv.get lat_lng "lng" in
let lat_input = Jv.get Jv.global "lat_input" in
let lng_input = Jv.get Jv.global "lng_input" in
ignore @@ Jv.call lat_input "setAttribute" [| Jv.of_string "value"; lat |];
ignore @@ Jv.call lng_input "setAttribute" [| Jv.of_string "value"; lng |]
(*add on_click callback to map*)
let () =
ignore @@ Jv.call map "on" [| Jv.of_string "click"; Jv.repr on_click |]
end end
module Marker = struct module Marker = struct