This commit is contained in:
Swrup 2022-06-20 07:57:38 +02:00
parent e33ad46092
commit 69024b75da
5 changed files with 75 additions and 1 deletions

21
src/icon.mli Normal file
View file

@ -0,0 +1,21 @@
(* BSD-2-Clause License *)
type t
(* type for icon option used to create an icon*)
type opt =
| Icon_retina_url of string
| Icon_size of Point.t
| Icon_anchor of Point.t
| Popup_anchor of Point.t
| Tooltip_anchor of Point.t
| Shadow_url of string
| Shadow_retina_url of string
| Shadow_size of Point.t
| Shadow_anchor of Point.t
| Class_name of string
| Cross_origin of string option
(** [create icon_url options] Creates an icon instance with the given [options],
and the required `iconUrl` option set to [icon_url] *)
val create : string -> opt list -> t