package body MSHTML.DispHTMLDOMTextNode_Object is

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

   function Get_data
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_data);
   end Get_data;

   function toString
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLDOMTextNode_toString);
   end toString;

   function Get_length
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_length);
   end Get_length;

   function splitText
     (This   : DispHTMLDOMTextNode_Type;
      offset : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_splitText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => offset),
         Free);
   end splitText;

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

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

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

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

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

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

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

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

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

   function ie9_splitText
     (This   : DispHTMLDOMTextNode_Type;
      offset : GNATCOM.Types.VARIANT;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_ie9_splitText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => offset),
         Free);
   end ie9_splitText;

   function Get_wholeText
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_wholeText);
   end Get_wholeText;

   function replaceWholeText
     (This     : DispHTMLDOMTextNode_Type;
      bstrText : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_replaceWholeText,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrText),
         Free);
   end replaceWholeText;

   function hasAttributes
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLDOMTextNode_hasAttributes);
   end hasAttributes;

   procedure normalize
     (This : DispHTMLDOMTextNode_Type)
   is
   begin
      Invoke (This, DispHTMLDOMTextNode_normalize);
   end normalize;

   function Get_nodeType
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_nodeType);
   end Get_nodeType;

   function Get_parentNode
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_parentNode);
   end Get_parentNode;

   function hasChildNodes
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLDOMTextNode_hasChildNodes);
   end hasChildNodes;

   function Get_childNodes
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_childNodes);
   end Get_childNodes;

   function Get_attributes
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_attributes);
   end Get_attributes;

   function insertBefore
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      refChild : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_insertBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => refChild,
          2 => newChild),
         Free);
   end insertBefore;

   function removeChild
     (This     : DispHTMLDOMTextNode_Type;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_removeChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild),
         Free);
   end removeChild;

   function replaceChild
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_replaceChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild,
          2 => newChild),
         Free);
   end replaceChild;

   function cloneNode
     (This  : DispHTMLDOMTextNode_Type;
      fDeep : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_cloneNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fDeep),
         Free);
   end cloneNode;

   function removeNode
     (This  : DispHTMLDOMTextNode_Type;
      fDeep : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_removeNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => fDeep),
         Free);
   end removeNode;

   function swapNode
     (This      : DispHTMLDOMTextNode_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_swapNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => otherNode),
         Free);
   end swapNode;

   function replaceNode
     (This        : DispHTMLDOMTextNode_Type;
      replacement : GNATCOM.Types.VARIANT;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_replaceNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => replacement),
         Free);
   end replaceNode;

   function appendChild
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_appendChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => newChild),
         Free);
   end appendChild;

   function Get_nodeName
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_nodeName);
   end Get_nodeName;

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

   function Get_nodeValue
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_nodeValue);
   end Get_nodeValue;

   function Get_firstChild
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_firstChild);
   end Get_firstChild;

   function Get_lastChild
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_lastChild);
   end Get_lastChild;

   function Get_previousSibling
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_previousSibling);
   end Get_previousSibling;

   function Get_nextSibling
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_nextSibling);
   end Get_nextSibling;

   function Get_ownerDocument
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_ownerDocument);
   end Get_ownerDocument;

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

   function Get_prefix
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_prefix);
   end Get_prefix;

   function Get_localName
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_localName);
   end Get_localName;

   function Get_namespaceURI
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_namespaceURI);
   end Get_namespaceURI;

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

   function Get_textContent
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_textContent);
   end Get_textContent;

   function isEqualNode
     (This      : DispHTMLDOMTextNode_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_isEqualNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => otherNode),
         Free);
   end isEqualNode;

   function lookupNamespaceURI
     (This       : DispHTMLDOMTextNode_Type;
      pvarPrefix : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_lookupNamespaceURI,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarPrefix),
         Free);
   end lookupNamespaceURI;

   function lookupPrefix
     (This             : DispHTMLDOMTextNode_Type;
      pvarNamespaceURI : GNATCOM.Types.VARIANT;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_lookupPrefix,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarNamespaceURI),
         Free);
   end lookupPrefix;

   function isDefaultNamespace
     (This          : DispHTMLDOMTextNode_Type;
      pvarNamespace : GNATCOM.Types.VARIANT;
      Free          : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_isDefaultNamespace,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarNamespace),
         Free);
   end isDefaultNamespace;

   function ie9_appendChild
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_ie9_appendChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => newChild),
         Free);
   end ie9_appendChild;

   function ie9_insertBefore
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      refChild : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_ie9_insertBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => refChild,
          2 => newChild),
         Free);
   end ie9_insertBefore;

   function ie9_removeChild
     (This     : DispHTMLDOMTextNode_Type;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_ie9_removeChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild),
         Free);
   end ie9_removeChild;

   function ie9_replaceChild
     (This     : DispHTMLDOMTextNode_Type;
      newChild : GNATCOM.Types.VARIANT;
      oldChild : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_ie9_replaceChild,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => oldChild,
          2 => newChild),
         Free);
   end ie9_replaceChild;

   function isSameNode
     (This      : DispHTMLDOMTextNode_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_isSameNode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => otherNode),
         Free);
   end isSameNode;

   function compareDocumentPosition
     (This      : DispHTMLDOMTextNode_Type;
      otherNode : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_compareDocumentPosition,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => otherNode),
         Free);
   end compareDocumentPosition;

   function isSupported
     (This    : DispHTMLDOMTextNode_Type;
      feature : GNATCOM.Types.VARIANT;
      version : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_isSupported,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => version,
          2 => feature),
         Free);
   end isSupported;

   function Get_constructor
     (This : DispHTMLDOMTextNode_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMTextNode_Get_constructor);
   end Get_constructor;

   procedure addEventListener
     (This       : DispHTMLDOMTextNode_Type;
      utype      : GNATCOM.Types.VARIANT;
      listener   : GNATCOM.Types.VARIANT;
      useCapture : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLDOMTextNode_addEventListener,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => useCapture,
          2 => listener,
          3 => utype),
         Free);
   end addEventListener;

   procedure removeEventListener
     (This       : DispHTMLDOMTextNode_Type;
      utype      : GNATCOM.Types.VARIANT;
      listener   : GNATCOM.Types.VARIANT;
      useCapture : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLDOMTextNode_removeEventListener,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => useCapture,
          2 => listener,
          3 => utype),
         Free);
   end removeEventListener;

   function dispatchEvent
     (This : DispHTMLDOMTextNode_Type;
      evt  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLDOMTextNode_dispatchEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => evt),
         Free);
   end dispatchEvent;

end MSHTML.DispHTMLDOMTextNode_Object;

