with GNATCOM.Dispinterface;

package MSHTML.IHTMLCommentElement2_Object is

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

   procedure Put_data
     (This : IHTMLCommentElement2_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_data
     (This : IHTMLCommentElement2_Type)
     return GNATCOM.Types.VARIANT;

   function Get_length
     (This : IHTMLCommentElement2_Type)
     return GNATCOM.Types.VARIANT;

   function substringData
     (This   : IHTMLCommentElement2_Type;
      offset : GNATCOM.Types.VARIANT;
      Count  : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT;

   procedure appendData
     (This       : IHTMLCommentElement2_Type;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True);

   procedure insertData
     (This       : IHTMLCommentElement2_Type;
      offset     : GNATCOM.Types.VARIANT;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True);

   procedure deleteData
     (This   : IHTMLCommentElement2_Type;
      offset : GNATCOM.Types.VARIANT;
      Count  : GNATCOM.Types.VARIANT;
      Free   : Boolean := True);

   procedure replaceData
     (This       : IHTMLCommentElement2_Type;
      offset     : GNATCOM.Types.VARIANT;
      Count      : GNATCOM.Types.VARIANT;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True);

end MSHTML.IHTMLCommentElement2_Object;

