;
; ------------------------------------------------------------
;
;   SpiderBasic - Geolocation example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

Procedure Events()
  Debug "GeolocationLatitude: " + GeolocationLatitude()
  Debug "GeolocationLongitude: " + GeolocationLongitude()
  Debug "GeolocationAltitude: " + GeolocationAltitude()
  Debug "GeolocationSpeed: " + GeolocationSpeed()     
  Debug "GeolocationHeading: " + GeolocationHeading()     
  Debug "GeolocationTime: " + GeolocationTime()     
EndProcedure


OpenWindow(0, 0, 0, 300, 45, "Geolocation", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
ButtonGadget(0, 10, 10, 280, 25, "Display geolocation info")

StartGeolocation(100)

BindGadgetEvent(0, @Events())