package body MSHTML.IHTMLAnchorElement_Object is

   procedure Put_href
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_href,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_href;

   function Get_href
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_href);
   end Get_href;

   procedure Put_target
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_target,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_target;

   function Get_target
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_target);
   end Get_target;

   procedure Put_rel
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_rel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_rel;

   function Get_rel
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_rel);
   end Get_rel;

   procedure Put_rev
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_rev,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_rev;

   function Get_rev
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_rev);
   end Get_rev;

   procedure Put_urn
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_urn,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_urn;

   function Get_urn
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_urn);
   end Get_urn;

   procedure Put_Methods
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_Methods,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_Methods;

   function Get_Methods
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_Methods);
   end Get_Methods;

   procedure Put_name
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_name,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_name;

   function Get_name
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_name);
   end Get_name;

   procedure Put_host
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_host,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_host;

   function Get_host
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_host);
   end Get_host;

   procedure Put_hostname
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_hostname,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_hostname;

   function Get_hostname
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_hostname);
   end Get_hostname;

   procedure Put_pathname
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_pathname,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_pathname;

   function Get_pathname
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_pathname);
   end Get_pathname;

   procedure Put_port
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_port,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_port;

   function Get_port
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_port);
   end Get_port;

   procedure Put_protocol
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_protocol,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_protocol;

   function Get_protocol
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_protocol);
   end Get_protocol;

   procedure Put_search
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_search,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_search;

   function Get_search
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_search);
   end Get_search;

   procedure Put_hash
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_hash,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_hash;

   function Get_hash
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_hash);
   end Get_hash;

   procedure Put_onblur
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_onblur,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onblur;

   function Get_onblur
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_onblur);
   end Get_onblur;

   procedure Put_onfocus
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_onfocus,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onfocus;

   function Get_onfocus
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_onfocus);
   end Get_onfocus;

   procedure Put_accessKey
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_accessKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_accessKey;

   function Get_accessKey
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_accessKey);
   end Get_accessKey;

   function Get_protocolLong
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_protocolLong);
   end Get_protocolLong;

   function Get_mimeType
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_mimeType);
   end Get_mimeType;

   function Get_nameProp
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_nameProp);
   end Get_nameProp;

   procedure Put_tabIndex
     (This : IHTMLAnchorElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLAnchorElement_Put_tabIndex,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_tabIndex;

   function Get_tabIndex
     (This : IHTMLAnchorElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAnchorElement_Get_tabIndex);
   end Get_tabIndex;

   procedure focus
     (This : IHTMLAnchorElement_Type)
   is
   begin
      Invoke (This, IHTMLAnchorElement_focus);
   end focus;

   procedure blur
     (This : IHTMLAnchorElement_Type)
   is
   begin
      Invoke (This, IHTMLAnchorElement_blur);
   end blur;

end MSHTML.IHTMLAnchorElement_Object;

