package body MSHTML.IHTMLDocument7_Object is

   function Get_defaultView
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_defaultView);
   end Get_defaultView;

   function createCDATASection
     (This : IHTMLDocument7_Type;
      text : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createCDATASection,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => text),
         Free);
   end createCDATASection;

   function getSelection
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IHTMLDocument7_getSelection);
   end getSelection;

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

   function createElementNS
     (This    : IHTMLDocument7_Type;
      pvarNS  : GNATCOM.Types.VARIANT;
      bstrTag : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createElementNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrTag,
          2 => pvarNS),
         Free);
   end createElementNS;

   function createAttributeNS
     (This         : IHTMLDocument7_Type;
      pvarNS       : GNATCOM.Types.VARIANT;
      bstrAttrName : GNATCOM.Types.VARIANT;
      Free         : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createAttributeNS,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrAttrName,
          2 => pvarNS),
         Free);
   end createAttributeNS;

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

   function Get_onmsthumbnailclick
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_onmsthumbnailclick);
   end Get_onmsthumbnailclick;

   function Get_characterSet
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_characterSet);
   end Get_characterSet;

   function createElement
     (This    : IHTMLDocument7_Type;
      bstrTag : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrTag),
         Free);
   end createElement;

   function createAttribute
     (This         : IHTMLDocument7_Type;
      bstrAttrName : GNATCOM.Types.VARIANT;
      Free         : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrAttrName),
         Free);
   end createAttribute;

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

   function createProcessingInstruction
     (This       : IHTMLDocument7_Type;
      bstrTarget : GNATCOM.Types.VARIANT;
      bstrData   : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_createProcessingInstruction,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrData,
          2 => bstrTarget),
         Free);
   end createProcessingInstruction;

   function adoptNode
     (This        : IHTMLDocument7_Type;
      pNodeSource : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_adoptNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pNodeSource),
         Free);
   end adoptNode;

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

   function Get_onmssitemodejumplistitemremoved
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_onmssitemodejumplistitemremoved);
   end Get_onmssitemodejumplistitemremoved;

   function Get_all
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_all);
   end Get_all;

   function Get_inputEncoding
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_inputEncoding);
   end Get_inputEncoding;

   function Get_xmlEncoding
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_xmlEncoding);
   end Get_xmlEncoding;

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

   function Get_xmlStandalone
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_xmlStandalone);
   end Get_xmlStandalone;

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

   function Get_xmlVersion
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_xmlVersion);
   end Get_xmlVersion;

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

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

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

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

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

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

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

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

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

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

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

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

   function Get_ondrag
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondrag);
   end Get_ondrag;

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

   function Get_ondragend
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondragend);
   end Get_ondragend;

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

   function Get_ondragenter
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondragenter);
   end Get_ondragenter;

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

   function Get_ondragleave
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondragleave);
   end Get_ondragleave;

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

   function Get_ondragover
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondragover);
   end Get_ondragover;

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

   function Get_ondrop
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_ondrop);
   end Get_ondrop;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   function Get_onscroll
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_onscroll);
   end Get_onscroll;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   procedure normalize
     (This : IHTMLDocument7_Type)
   is
   begin
      Invoke (This, IHTMLDocument7_normalize);
   end normalize;

   function importNode
     (This        : IHTMLDocument7_Type;
      pNodeSource : GNATCOM.Types.VARIANT;
      fDeep       : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDocument7_importNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fDeep,
          2 => pNodeSource),
         Free);
   end importNode;

   function Get_parentWindow
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_parentWindow);
   end Get_parentWindow;

   procedure PutRef_body
     (This : IHTMLDocument7_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLDocument7_PutRef_body,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_body;

   function Get_body
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_body);
   end Get_body;

   function Get_head
     (This : IHTMLDocument7_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDocument7_Get_head);
   end Get_head;

end MSHTML.IHTMLDocument7_Object;

