with GNATCOM.Dispinterface;

package MSHTML.IWebGeocoordinates_Interface is

   type IWebGeocoordinates_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Initialize (This : in out IWebGeocoordinates_Type);

   function Pointer (This : IWebGeocoordinates_Type)
     return Pointer_To_IWebGeocoordinates;

   procedure Attach (This    : in out IWebGeocoordinates_Type;
                     Pointer : in     Pointer_To_IWebGeocoordinates);

   function Get_latitude
     (This : IWebGeocoordinates_Type)
     return Interfaces.C.double;

   function Get_longitude
     (This : IWebGeocoordinates_Type)
     return Interfaces.C.double;

   function Get_altitude
     (This : IWebGeocoordinates_Type)
     return GNATCOM.Types.VARIANT;

   function Get_accuracy
     (This : IWebGeocoordinates_Type)
     return Interfaces.C.double;

   function Get_altitudeAccuracy
     (This : IWebGeocoordinates_Type)
     return GNATCOM.Types.VARIANT;

   function Get_heading
     (This : IWebGeocoordinates_Type)
     return GNATCOM.Types.VARIANT;

   function Get_speed
     (This : IWebGeocoordinates_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.IWebGeocoordinates_Interface;

