package body MSHTML.IHTMLMSCSSKeyframesRule_Object is

   procedure Put_name
     (This : IHTMLMSCSSKeyframesRule_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLMSCSSKeyframesRule_Put_name,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_name;

   function Get_name
     (This : IHTMLMSCSSKeyframesRule_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMSCSSKeyframesRule_Get_name);
   end Get_name;

   function Get_cssRules
     (This : IHTMLMSCSSKeyframesRule_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLMSCSSKeyframesRule_Get_cssRules);
   end Get_cssRules;

   procedure appendRule
     (This     : IHTMLMSCSSKeyframesRule_Type;
      bstrRule : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLMSCSSKeyframesRule_appendRule,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrRule),
         Free);
   end appendRule;

   procedure deleteRule
     (This    : IHTMLMSCSSKeyframesRule_Type;
      bstrKey : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLMSCSSKeyframesRule_deleteRule,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrKey),
         Free);
   end deleteRule;

   function findRule
     (This    : IHTMLMSCSSKeyframesRule_Type;
      bstrKey : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLMSCSSKeyframesRule_findRule,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrKey),
         Free);
   end findRule;

end MSHTML.IHTMLMSCSSKeyframesRule_Object;

