with GNATCOM.Dispinterface;

package MSHTML.IHTMLStyleSheet_Object is

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

   procedure Put_title
     (This : IHTMLStyleSheet_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_title
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_parentStyleSheet
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_owningElement
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_disabled
     (This : IHTMLStyleSheet_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_disabled
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_readOnly
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_imports
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_href
     (This : IHTMLStyleSheet_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_href
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_type
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_id
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function addImport
     (This    : IHTMLStyleSheet_Type;
      bstrURL : GNATCOM.Types.VARIANT;
      lIndex  : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function addRule
     (This         : IHTMLStyleSheet_Type;
      bstrSelector : GNATCOM.Types.VARIANT;
      bstrStyle    : GNATCOM.Types.VARIANT;
      lIndex       : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free         : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure removeImport
     (This   : IHTMLStyleSheet_Type;
      lIndex : GNATCOM.Types.VARIANT;
      Free   : Boolean := True);

   procedure removeRule
     (This   : IHTMLStyleSheet_Type;
      lIndex : GNATCOM.Types.VARIANT;
      Free   : Boolean := True);

   procedure Put_media
     (This : IHTMLStyleSheet_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_media
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_cssText
     (This : IHTMLStyleSheet_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_cssText
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

   function Get_rules
     (This : IHTMLStyleSheet_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.IHTMLStyleSheet_Object;

