with GNATCOM.Dispinterface;

package MSHTML.HTMLWindowEvents3_Object is

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

   procedure onhashchange
     (This    : HTMLWindowEvents3_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True);

   procedure onmessage
     (This    : HTMLWindowEvents3_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True);

end MSHTML.HTMLWindowEvents3_Object;

