package body MSHTML.IHTMLDOMTextNode2_Object is

   function substringData
     (This   : IHTMLDOMTextNode2_Type;
      offset : GNATCOM.Types.VARIANT;
      Count  : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDOMTextNode2_substringData,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Count,
          2 => offset),
         Free);
   end substringData;

   procedure appendData
     (This       : IHTMLDOMTextNode2_Type;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMTextNode2_appendData,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrstring),
         Free);
   end appendData;

   procedure insertData
     (This       : IHTMLDOMTextNode2_Type;
      offset     : GNATCOM.Types.VARIANT;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMTextNode2_insertData,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrstring,
          2 => offset),
         Free);
   end insertData;

   procedure deleteData
     (This   : IHTMLDOMTextNode2_Type;
      offset : GNATCOM.Types.VARIANT;
      Count  : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMTextNode2_deleteData,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => Count,
          2 => offset),
         Free);
   end deleteData;

   procedure replaceData
     (This       : IHTMLDOMTextNode2_Type;
      offset     : GNATCOM.Types.VARIANT;
      Count      : GNATCOM.Types.VARIANT;
      bstrstring : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMTextNode2_replaceData,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrstring,
          2 => Count,
          3 => offset),
         Free);
   end replaceData;

end MSHTML.IHTMLDOMTextNode2_Object;

