with GNATCOM.Dispinterface;

package MSHTML.HTMLWindowEvents_Object is

   type HTMLWindowEvents_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure onload
     (This : HTMLWindowEvents_Type);

   procedure onunload
     (This : HTMLWindowEvents_Type);

   function onhelp
     (This : HTMLWindowEvents_Type)
     return GNATCOM.Types.VARIANT;

   procedure onfocus
     (This : HTMLWindowEvents_Type);

   procedure onblur
     (This : HTMLWindowEvents_Type);

   procedure onerror
     (This        : HTMLWindowEvents_Type;
      description : GNATCOM.Types.VARIANT;
      url         : GNATCOM.Types.VARIANT;
      line        : GNATCOM.Types.VARIANT;
      Free        : Boolean := True);

   procedure onresize
     (This : HTMLWindowEvents_Type);

   procedure onscroll
     (This : HTMLWindowEvents_Type);

   procedure onbeforeunload
     (This : HTMLWindowEvents_Type);

   procedure onbeforeprint
     (This : HTMLWindowEvents_Type);

   procedure onafterprint
     (This : HTMLWindowEvents_Type);

end MSHTML.HTMLWindowEvents_Object;

