sig
class type gLatLng = object end
external new_GLatLng : float -> float -> Gmaps.gLatLng = "$new" "GLatLng"
class type gLatLngBounds = object end
external new_GLatLngBounds :
Gmaps.gLatLng -> Gmaps.gLatLng -> Gmaps.gLatLngBounds = "$new"
"GLatLngBounds"
class type gCopyright = object end
external new_GCopyright :
string -> Gmaps.gLatLngBounds -> int -> string -> Gmaps.gCopyright
= "$new" "GCopyright"
class type gCopyrightCollection =
object method addCopyright : Gmaps.gCopyright -> unit end
external new_GCopyrightCollection : unit -> Gmaps.gCopyrightCollection
= "$new" "GCopyrightCollection"
class type gPoint = object method _get_x : int method _get_y : int end
external new_GPoint : int -> int -> Gmaps.gPoint = "$new" "GPoint"
class type gSize = object end
external new_GSize : int -> int -> Gmaps.gSize = "$new" "GSize"
class type gIcon =
object
method _set_iconAnchor : Gmaps.gPoint -> unit
method _set_iconSize : Gmaps.gSize -> unit
method _set_image : string -> unit
method _set_infoWindowAnchor : Gmaps.gPoint -> unit
method _set_shadow : string -> unit
method _set_shadowSize : Gmaps.gSize -> unit
end
external new_GIcon : unit -> Gmaps.gIcon = "$new" "GIcon"
class type gOverlay = object end
class type gMap2 =
object
method addOverlay : #Gmaps.gOverlay -> unit
method panTo : Gmaps.gLatLng -> unit
method setCenter_zoom_ : Gmaps.gLatLng -> int -> unit
end
external new_GMap2 : Dom.element -> Gmaps.gMap2 = "$new" "GMap2"
class type gTileLayer =
object
method _set_getOpacity : (unit -> float) -> unit
method _set_getTileUrl : (Gmaps.gPoint -> int -> string) -> unit
method _set_isPng : (unit -> bool) -> unit
end
external new_GTileLayer :
Gmaps.gCopyrightCollection -> int -> int -> Gmaps.gTileLayer = "$new"
"GTileLayer"
class type gTileLayerOverlay = object end
external new_GTileLayerOverlay :
Gmaps.gTileLayer -> Gmaps.gTileLayerOverlay = "$new" "GTileLayerOverlay"
class type gMarker =
object
method openInfoWindow : #Dom.node -> unit
method openInfoWindow_string_ : string -> unit
end
external new_GMarker : Gmaps.gLatLng -> Gmaps.gIcon -> Gmaps.gMarker
= "$new" "GMarker"
end