move marker to separate module
This commit is contained in:
parent
82f0015761
commit
ce9cdc206d
5 changed files with 117 additions and 117 deletions
|
|
@ -68,42 +68,3 @@ val create_geojson : Jv.t -> geojson_opt list -> [ `Geojson ] t
|
|||
by [url]. Tile server default to [openstreetmap.org]. See
|
||||
{:https://wiki.openstreetmap.org/wiki/Tile_servers} *)
|
||||
val create_tile_osm : string option -> [ `Tile ] t
|
||||
|
||||
(** Marker layers *)
|
||||
|
||||
(** type for marker option, used to create marker *)
|
||||
type marker_opt =
|
||||
| Icon of Icon.t
|
||||
| Keyboard of bool
|
||||
| Title of string
|
||||
| Alt of string
|
||||
| Z_index_offset of int
|
||||
| Opacity of float
|
||||
| Rise_on_hover of bool
|
||||
| Rise_offset of int
|
||||
| Pane of string
|
||||
| Shadow_pane of string
|
||||
| Bubbling_mouse_events of bool
|
||||
| Auto_pan_on_focus of bool
|
||||
|
||||
(** [create_marker latlng options] is a new marker with the same position as
|
||||
[latlng] and with options set to [options] *)
|
||||
val create_marker : Latlng.t -> marker_opt list -> [ `Marker ] t
|
||||
|
||||
(** Returns the current geographical position of the marker. *)
|
||||
val get_latlng : [ `Marker ] t -> Latlng.t
|
||||
|
||||
(** Changes the marker position to the given point. *)
|
||||
val set_latlng : Latlng.t -> [ `Marker ] t -> unit
|
||||
|
||||
(** Changes the zIndex offset of the marker. *)
|
||||
val set_z_index_offset : int -> [ `Marker ] t -> unit
|
||||
|
||||
(** Returns the current icon used by the marker *)
|
||||
val get_icon : [ `Marker ] t -> Icon.t
|
||||
|
||||
(** Changes the marker icon. *)
|
||||
val set_icon : Icon.t -> [ `Marker ] t -> unit
|
||||
|
||||
(** Changes the opacity of the marker. *)
|
||||
val set_opacity : int -> [ `Marker ] t -> unit
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue