with GNATCOM.Dispinterface;

package MSHTML.IHTMLElement4_Object is

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

   procedure Put_onmousewheel
     (This : IHTMLElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onmousewheel
     (This : IHTMLElement4_Type)
     return GNATCOM.Types.VARIANT;

   procedure normalize
     (This : IHTMLElement4_Type);

   function getAttributeNode
     (This     : IHTMLElement4_Type;
      bstrName : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function setAttributeNode
     (This  : IHTMLElement4_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeAttributeNode
     (This  : IHTMLElement4_Type;
      pattr : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeactivate
     (This : IHTMLElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeactivate
     (This : IHTMLElement4_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfocusin
     (This : IHTMLElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfocusin
     (This : IHTMLElement4_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onfocusout
     (This : IHTMLElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onfocusout
     (This : IHTMLElement4_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.IHTMLElement4_Object;

