package body MSHTML.IHTMLElement6_Object is

   function getAttributeNS
     (This             : IHTMLElement6_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName,
          2 => pvarNS),
         Free);
   end getAttributeNS;

   procedure setAttributeNS
     (This               : IHTMLElement6_Type;
      pvarNS             : GNATCOM.Types.VARIANT;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLElement6_setAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarAttributeValue,
          2 => strAttributeName,
          3 => pvarNS),
         Free);
   end setAttributeNS;

   procedure removeAttributeNS
     (This             : IHTMLElement6_Type;
      pvarNS           : GNATCOM.Types.VARIANT;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLElement6_removeAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName,
          2 => pvarNS),
         Free);
   end removeAttributeNS;

   function getAttributeNodeNS
     (This     : IHTMLElement6_Type;
      pvarNS   : GNATCOM.Types.VARIANT;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getAttributeNodeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrName,
          2 => pvarNS),
         Free);
   end getAttributeNodeNS;

   function setAttributeNodeNS
     (This  : IHTMLElement6_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_setAttributeNodeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end setAttributeNodeNS;

   function hasAttributeNS
     (This   : IHTMLElement6_Type;
      pvarNS : GNATCOM.Types.VARIANT;
      name   : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_hasAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name,
          2 => pvarNS),
         Free);
   end hasAttributeNS;

   function getAttribute
     (This             : IHTMLElement6_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end getAttribute;

   procedure setAttribute
     (This               : IHTMLElement6_Type;
      strAttributeName   : GNATCOM.Types.VARIANT;
      pvarAttributeValue : GNATCOM.Types.VARIANT;
      Free               : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLElement6_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarAttributeValue,
          2 => strAttributeName),
         Free);
   end setAttribute;

   procedure removeAttribute
     (This             : IHTMLElement6_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLElement6_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end removeAttribute;

   function getAttributeNode
     (This             : IHTMLElement6_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => strAttributeName),
         Free);
   end getAttributeNode;

   function setAttributeNode
     (This  : IHTMLElement6_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_setAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end setAttributeNode;

   function removeAttributeNode
     (This  : IHTMLElement6_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_removeAttributeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pattr),
         Free);
   end removeAttributeNode;

   function hasAttribute
     (This : IHTMLElement6_Type;
      name : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_hasAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => name),
         Free);
   end hasAttribute;

   function getElementsByTagNameNS
     (This          : IHTMLElement6_Type;
      varNS         : GNATCOM.Types.VARIANT;
      bstrLocalName : GNATCOM.Types.VARIANT;
      Free          : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getElementsByTagNameNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrLocalName,
          2 => varNS),
         Free);
   end getElementsByTagNameNS;

   function Get_tagName
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_tagName);
   end Get_tagName;

   function Get_nodeName
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_nodeName);
   end Get_nodeName;

   function getElementsByClassName
     (This : IHTMLElement6_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_getElementsByClassName,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => v),
         Free);
   end getElementsByClassName;

   function msMatchesSelector
     (This : IHTMLElement6_Type;
      v    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLElement6_msMatchesSelector,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => v),
         Free);
   end msMatchesSelector;

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

   function Get_onabort
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onabort);
   end Get_onabort;

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

   function Get_oncanplay
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_oncanplay);
   end Get_oncanplay;

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

   function Get_oncanplaythrough
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_oncanplaythrough);
   end Get_oncanplaythrough;

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

   function Get_onchange
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onchange);
   end Get_onchange;

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

   function Get_ondurationchange
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_ondurationchange);
   end Get_ondurationchange;

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

   function Get_onemptied
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onemptied);
   end Get_onemptied;

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

   function Get_onended
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onended);
   end Get_onended;

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

   function Get_onerror
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onerror);
   end Get_onerror;

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

   function Get_oninput
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_oninput);
   end Get_oninput;

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

   function Get_onload
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onload);
   end Get_onload;

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

   function Get_onloadeddata
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onloadeddata);
   end Get_onloadeddata;

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

   function Get_onloadedmetadata
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onloadedmetadata);
   end Get_onloadedmetadata;

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

   function Get_onloadstart
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onloadstart);
   end Get_onloadstart;

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

   function Get_onpause
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onpause);
   end Get_onpause;

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

   function Get_onplay
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onplay);
   end Get_onplay;

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

   function Get_onplaying
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onplaying);
   end Get_onplaying;

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

   function Get_onprogress
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onprogress);
   end Get_onprogress;

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

   function Get_onratechange
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onratechange);
   end Get_onratechange;

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

   function Get_onreset
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onreset);
   end Get_onreset;

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

   function Get_onseeked
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onseeked);
   end Get_onseeked;

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

   function Get_onseeking
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onseeking);
   end Get_onseeking;

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

   function Get_onselect
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onselect);
   end Get_onselect;

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

   function Get_onstalled
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onstalled);
   end Get_onstalled;

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

   function Get_onsubmit
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onsubmit);
   end Get_onsubmit;

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

   function Get_onsuspend
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onsuspend);
   end Get_onsuspend;

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

   function Get_ontimeupdate
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_ontimeupdate);
   end Get_ontimeupdate;

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

   function Get_onvolumechange
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onvolumechange);
   end Get_onvolumechange;

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

   function Get_onwaiting
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElement6_Get_onwaiting);
   end Get_onwaiting;

   function hasAttributes
     (This : IHTMLElement6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IHTMLElement6_hasAttributes);
   end hasAttributes;

end MSHTML.IHTMLElement6_Object;

