package body MSHTML.IHTMLAreaElement_Object is

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

   function Get_shape
     (This : IHTMLAreaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAreaElement_Get_shape);
   end Get_shape;

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

   function Get_coords
     (This : IHTMLAreaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAreaElement_Get_coords);
   end Get_coords;

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

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

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

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

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

   function Get_alt
     (This : IHTMLAreaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAreaElement_Get_alt);
   end Get_alt;

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

   function Get_noHref
     (This : IHTMLAreaElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAreaElement_Get_noHref);
   end Get_noHref;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   procedure focus
     (This : IHTMLAreaElement_Type)
   is
   begin
      Invoke (This, IHTMLAreaElement_focus);
   end focus;

   procedure blur
     (This : IHTMLAreaElement_Type)
   is
   begin
      Invoke (This, IHTMLAreaElement_blur);
   end blur;

end MSHTML.IHTMLAreaElement_Object;

