better popups
This commit is contained in:
parent
23ea827e40
commit
7effdcc577
4 changed files with 57 additions and 16 deletions
|
|
@ -20,11 +20,14 @@ type opt =
|
|||
| Close_on_click of bool
|
||||
| Class_name of string
|
||||
|
||||
(** [set_latlng latlng] changes the popup position to the given point*)
|
||||
val set_latlng : Latlng.t -> unit
|
||||
(** [set_latlng latlng popup] sets [popup] position to the given point*)
|
||||
val set_latlng : Latlng.t -> t -> unit
|
||||
|
||||
(** [set_content s] changes the popup content to [s]*)
|
||||
val set_content : string -> unit
|
||||
(** [set_content s popup] sets [popup] content to [s]*)
|
||||
val set_content : string -> t -> unit
|
||||
|
||||
(** [set_content_to_el el s] sets [popup] content to [el]*)
|
||||
val set_content_to_el : Brr.El.t -> t -> unit
|
||||
|
||||
(** [of_jv jv] is [jv] as {!t} *)
|
||||
val of_jv : Jv.t -> t
|
||||
|
|
@ -38,5 +41,10 @@ val opt_to_string : opt -> string
|
|||
(** [opt_to_jv opt] is [opt] as {!Jv.t} *)
|
||||
val opt_to_jv : opt -> Jv.t
|
||||
|
||||
(** [create options] is a new popup setup withs [options] *)
|
||||
val create : opt list -> t
|
||||
(** [create s latlng options] is a new popup setup with [options], position set
|
||||
to [latlng] and content to [s] *)
|
||||
val create : string option -> latlng:Latlng.t option -> opt list -> t
|
||||
|
||||
(** [create_from_el el latlng options] is a new popup setup with [options],
|
||||
position set to [latlng] and content to [el] *)
|
||||
val create_from_el : Brr.El.t -> latlng:Latlng.t option -> opt list -> t
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue