with GNATCOM.Dispinterface;

package MSHTML.DispHTMLLocation_Object is

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

   procedure Put_href
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_href
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_protocol
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_protocol
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_host
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_host
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_hostname
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_hostname
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_port
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_port
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_pathname
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_pathname
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_search
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_search
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_hash
     (This : DispHTMLLocation_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_hash
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   procedure reload
     (This : DispHTMLLocation_Type;
      flag : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free : Boolean := True);

   procedure replace
     (This : DispHTMLLocation_Type;
      bstr : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   procedure assign
     (This : DispHTMLLocation_Type;
      bstr : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function toString
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

   function Get_constructor
     (This : DispHTMLLocation_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.DispHTMLLocation_Object;

