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

better popup

Browse source
This commit is contained in:
Swrup 2022-01-26 07:54:29 +01:00
parent e7cb530186
commit 827023a056
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/js_newthread.ml
View file

@ -7,8 +7,9 @@ module Leaflet = struct
| Some l -> l | Some l -> l
| None -> failwith "can't load leaflet" | None -> failwith "can't load leaflet"
(* get popup object *) (* get popup object, with no close button*)
let popup = Jv.call leaflet "popup" [||] let popup =
Jv.call leaflet "popup" [| Jv.obj [| ("closeButton", Jv.false') |] |]
(* create a map *) (* create a map *)
let map = let map =
@ -81,7 +82,8 @@ let on_click e =
let lat_lng = Jv.get e "latlng" in let lat_lng = Jv.get e "latlng" in
ignore @@ Jv.call Leaflet.popup "setLatLng" [| lat_lng |]; ignore @@ Jv.call Leaflet.popup "setLatLng" [| lat_lng |];
ignore @@ Jv.call Leaflet.popup "setContent" [| Jv.of_string "euujjj" |]; ignore
@@ Jv.call Leaflet.popup "setContent" [| Jv.of_string "create thread here" |];
ignore @@ Jv.call Leaflet.popup "openOn" [| Leaflet.map |]; ignore @@ Jv.call Leaflet.popup "openOn" [| Leaflet.map |];
let lat = Jv.get lat_lng "lat" in let lat = Jv.get lat_lng "lat" in