package body MSHTML.IHTMLStyleSheet2_Object is

   function Get_pages
     (This : IHTMLStyleSheet2_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyleSheet2_Get_pages);
   end Get_pages;

   function addPageRule
     (This         : IHTMLStyleSheet2_Type;
      bstrSelector : GNATCOM.Types.VARIANT;
      bstrStyle    : GNATCOM.Types.VARIANT;
      lIndex       : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free         : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLStyleSheet2_addPageRule,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lIndex,
          2 => bstrStyle,
          3 => bstrSelector),
         Free);
   end addPageRule;

end MSHTML.IHTMLStyleSheet2_Object;

