with GNATCOM.Dispinterface;

package MSHTML.IHTMLStyleSheet2_Interface is

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

   procedure Initialize (This : in out IHTMLStyleSheet2_Type);

   function Pointer (This : IHTMLStyleSheet2_Type)
     return Pointer_To_IHTMLStyleSheet2;

   procedure Attach (This    : in out IHTMLStyleSheet2_Type;
                     Pointer : in     Pointer_To_IHTMLStyleSheet2);

   function Get_pages
     (This : IHTMLStyleSheet2_Type)
     return Pointer_To_IHTMLStyleSheetPagesCollection;

   function addPageRule
     (This         : IHTMLStyleSheet2_Type;
      bstrSelector : GNATCOM.Types.BSTR;
      bstrStyle    : GNATCOM.Types.BSTR;
      lIndex       : Interfaces.C.long;
      Free         : Boolean := True)
     return Interfaces.C.long;

end MSHTML.IHTMLStyleSheet2_Interface;

