with GNATCOM.IInterface;

with GNATCOM.Errors;

package body MSHTML.IHTMLWindow7_Interface is

   procedure Initialize (This : in out IHTMLWindow7_Type) is
   begin
      Set_IID (This, IID_IHTMLWindow7);
   end Initialize;

   function Pointer (This : IHTMLWindow7_Type)
     return Pointer_To_IHTMLWindow7
   is
   begin
      return To_Pointer_To_IHTMLWindow7 (Address (This));
   end Pointer;

   procedure Attach (This    : in out IHTMLWindow7_Type;
                     Pointer : in     Pointer_To_IHTMLWindow7)
   is
   begin
      Attach (This, GNATCOM.IInterface.To_Pointer_To_IUnknown
              (Pointer.all'Address));
   end Attach;

   function getSelection
     (This             : IHTMLWindow7_Type)
     return Pointer_To_IHTMLSelection
   is
       RetVal : aliased Pointer_To_IHTMLSelection;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.getSelection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end getSelection;

   function getComputedStyle
     (This            : IHTMLWindow7_Type;
      varArgIn        : Pointer_To_IHTMLDOMNode;
      bstrPseudoElt   : GNATCOM.Types.BSTR;
      Free            : Boolean := True)
     return Pointer_To_IHTMLCSSStyleDeclaration
   is
       RetVal : aliased Pointer_To_IHTMLCSSStyleDeclaration;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.getComputedStyle
         (Pointer (This),
          varArgIn,
          bstrPseudoElt,
          RetVal'Unchecked_Access));

      if Free then
               GNATCOM.IInterface.Free (bstrPseudoElt);
      
      end if;

      return RetVal;
   end getComputedStyle;

   function Get_styleMedia
     (This : IHTMLWindow7_Type)
     return Pointer_To_IHTMLStyleMedia
   is
       RetVal : aliased Pointer_To_IHTMLStyleMedia;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_styleMedia
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_styleMedia;

   procedure Put_performance
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_performance
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_performance;

   function Get_performance
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_performance
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_performance;

   function Get_innerWidth
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_innerWidth
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_innerWidth;

   function Get_innerHeight
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_innerHeight
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_innerHeight;

   function Get_pageXOffset
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_pageXOffset
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_pageXOffset;

   function Get_pageYOffset
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_pageYOffset
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_pageYOffset;

   function Get_screenX
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_screenX
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_screenX;

   function Get_screenY
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_screenY
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_screenY;

   function Get_outerWidth
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_outerWidth
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_outerWidth;

   function Get_outerHeight
     (This : IHTMLWindow7_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_outerHeight
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_outerHeight;

   procedure Put_onabort
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onabort
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onabort;

   function Get_onabort
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onabort
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onabort;

   procedure Put_oncanplay
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_oncanplay
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_oncanplay;

   function Get_oncanplay
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_oncanplay
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_oncanplay;

   procedure Put_oncanplaythrough
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_oncanplaythrough
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_oncanplaythrough;

   function Get_oncanplaythrough
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_oncanplaythrough
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_oncanplaythrough;

   procedure Put_onchange
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onchange
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onchange;

   function Get_onchange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onchange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onchange;

   procedure Put_onclick
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onclick
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onclick;

   function Get_onclick
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onclick
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onclick;

   procedure Put_oncontextmenu
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_oncontextmenu
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_oncontextmenu;

   function Get_oncontextmenu
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_oncontextmenu
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_oncontextmenu;

   procedure Put_ondblclick
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondblclick
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondblclick;

   function Get_ondblclick
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondblclick
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondblclick;

   procedure Put_ondrag
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondrag
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondrag;

   function Get_ondrag
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondrag
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondrag;

   procedure Put_ondragend
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondragend
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondragend;

   function Get_ondragend
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondragend
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondragend;

   procedure Put_ondragenter
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondragenter
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondragenter;

   function Get_ondragenter
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondragenter
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondragenter;

   procedure Put_ondragleave
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondragleave
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondragleave;

   function Get_ondragleave
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondragleave
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondragleave;

   procedure Put_ondragover
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondragover
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondragover;

   function Get_ondragover
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondragover
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondragover;

   procedure Put_ondragstart
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondragstart
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondragstart;

   function Get_ondragstart
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondragstart
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondragstart;

   procedure Put_ondrop
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondrop
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondrop;

   function Get_ondrop
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondrop
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondrop;

   procedure Put_ondurationchange
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ondurationchange
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ondurationchange;

   function Get_ondurationchange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ondurationchange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ondurationchange;

   procedure Put_onfocusin
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onfocusin
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onfocusin;

   function Get_onfocusin
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onfocusin
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onfocusin;

   procedure Put_onfocusout
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onfocusout
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onfocusout;

   function Get_onfocusout
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onfocusout
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onfocusout;

   procedure Put_oninput
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_oninput
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_oninput;

   function Get_oninput
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_oninput
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_oninput;

   procedure Put_onemptied
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onemptied
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onemptied;

   function Get_onemptied
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onemptied
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onemptied;

   procedure Put_onended
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onended
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onended;

   function Get_onended
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onended
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onended;

   procedure Put_onkeydown
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onkeydown
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onkeydown;

   function Get_onkeydown
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onkeydown
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onkeydown;

   procedure Put_onkeypress
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onkeypress
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onkeypress;

   function Get_onkeypress
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onkeypress
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onkeypress;

   procedure Put_onkeyup
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onkeyup
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onkeyup;

   function Get_onkeyup
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onkeyup
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onkeyup;

   procedure Put_onloadeddata
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onloadeddata
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onloadeddata;

   function Get_onloadeddata
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onloadeddata
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onloadeddata;

   procedure Put_onloadedmetadata
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onloadedmetadata
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onloadedmetadata;

   function Get_onloadedmetadata
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onloadedmetadata
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onloadedmetadata;

   procedure Put_onloadstart
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onloadstart
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onloadstart;

   function Get_onloadstart
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onloadstart
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onloadstart;

   procedure Put_onmousedown
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmousedown
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmousedown;

   function Get_onmousedown
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmousedown
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmousedown;

   procedure Put_onmouseenter
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmouseenter
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmouseenter;

   function Get_onmouseenter
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmouseenter
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmouseenter;

   procedure Put_onmouseleave
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmouseleave
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmouseleave;

   function Get_onmouseleave
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmouseleave
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmouseleave;

   procedure Put_onmousemove
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmousemove
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmousemove;

   function Get_onmousemove
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmousemove
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmousemove;

   procedure Put_onmouseout
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmouseout
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmouseout;

   function Get_onmouseout
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmouseout
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmouseout;

   procedure Put_onmouseover
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmouseover
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmouseover;

   function Get_onmouseover
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmouseover
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmouseover;

   procedure Put_onmouseup
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmouseup
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmouseup;

   function Get_onmouseup
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmouseup
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmouseup;

   procedure Put_onmousewheel
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onmousewheel
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onmousewheel;

   function Get_onmousewheel
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onmousewheel
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onmousewheel;

   procedure Put_onoffline
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onoffline
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onoffline;

   function Get_onoffline
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onoffline
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onoffline;

   procedure Put_ononline
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ononline
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ononline;

   function Get_ononline
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ononline
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ononline;

   procedure Put_onprogress
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onprogress
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onprogress;

   function Get_onprogress
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onprogress
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onprogress;

   procedure Put_onratechange
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onratechange
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onratechange;

   function Get_onratechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onratechange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onratechange;

   procedure Put_onreadystatechange
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onreadystatechange
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onreadystatechange;

   function Get_onreadystatechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onreadystatechange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onreadystatechange;

   procedure Put_onreset
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onreset
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onreset;

   function Get_onreset
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onreset
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onreset;

   procedure Put_onseeked
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onseeked
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onseeked;

   function Get_onseeked
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onseeked
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onseeked;

   procedure Put_onseeking
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onseeking
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onseeking;

   function Get_onseeking
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onseeking
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onseeking;

   procedure Put_onselect
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onselect
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onselect;

   function Get_onselect
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onselect
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onselect;

   procedure Put_onstalled
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onstalled
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onstalled;

   function Get_onstalled
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onstalled
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onstalled;

   procedure Put_onstorage
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onstorage
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onstorage;

   function Get_onstorage
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onstorage
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onstorage;

   procedure Put_onsubmit
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onsubmit
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onsubmit;

   function Get_onsubmit
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onsubmit
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onsubmit;

   procedure Put_onsuspend
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onsuspend
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onsuspend;

   function Get_onsuspend
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onsuspend
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onsuspend;

   procedure Put_ontimeupdate
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_ontimeupdate
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_ontimeupdate;

   function Get_ontimeupdate
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ontimeupdate
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ontimeupdate;

   procedure Put_onpause
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onpause
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onpause;

   function Get_onpause
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onpause
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onpause;

   procedure Put_onplay
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onplay
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onplay;

   function Get_onplay
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onplay
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onplay;

   procedure Put_onplaying
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onplaying
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onplaying;

   function Get_onplaying
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onplaying
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onplaying;

   procedure Put_onvolumechange
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onvolumechange
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onvolumechange;

   function Get_onvolumechange
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onvolumechange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onvolumechange;

   procedure Put_onwaiting
     (This : IHTMLWindow7_Type;
      p    : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Put_onwaiting
         (Pointer (This),
          p));

      if Free then
               GNATCOM.IInterface.Free (p);
      
      end if;

   end Put_onwaiting;

   function Get_onwaiting
     (This : IHTMLWindow7_Type)
     return GNATCOM.Types.VARIANT
   is
       RetVal : aliased GNATCOM.Types.VARIANT;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_onwaiting
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_onwaiting;

end MSHTML.IHTMLWindow7_Interface;

