package body MSHTML.DispHTMLDOMAttribute_Object is

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

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

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

   function Get_specified
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_specified);
   end Get_specified;

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

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

   function Get_value
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_value);
   end Get_value;

   function Get_expando
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_expando);
   end Get_expando;

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

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

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

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

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

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

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

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

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

   function insertBefore
     (This     : DispHTMLDOMAttribute_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,
         DispHTMLDOMAttribute_insertBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => refChild,
          2 => newChild),
         Free);
   end insertBefore;

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

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

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

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

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

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

   function Get_ie8_nodeValue
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie8_nodeValue);
   end Get_ie8_nodeValue;

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

   function Get_ie8_value
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie8_value);
   end Get_ie8_value;

   function Get_ie8_specified
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie8_specified);
   end Get_ie8_specified;

   function Get_ownerElement
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ownerElement);
   end Get_ownerElement;

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

   function Get_ie9_nodeValue
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_nodeValue);
   end Get_ie9_nodeValue;

   function Get_ie9_nodeName
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_nodeName);
   end Get_ie9_nodeName;

   function Get_ie9_name
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_name);
   end Get_ie9_name;

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

   function Get_ie9_value
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_value);
   end Get_ie9_value;

   function Get_ie9_firstChild
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_firstChild);
   end Get_ie9_firstChild;

   function Get_ie9_lastChild
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_lastChild);
   end Get_ie9_lastChild;

   function Get_ie9_childNodes
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_childNodes);
   end Get_ie9_childNodes;

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

   function ie9_hasChildNodes
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, DispHTMLDOMAttribute_ie9_hasChildNodes);
   end ie9_hasChildNodes;

   procedure normalize
     (This : DispHTMLDOMAttribute_Type)
   is
   begin
      Invoke (This, DispHTMLDOMAttribute_normalize);
   end normalize;

   function Get_ie9_specified
     (This : DispHTMLDOMAttribute_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLDOMAttribute_Get_ie9_specified);
   end Get_ie9_specified;

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

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

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

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

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

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

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

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

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

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

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

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

   function ie9_insertBefore
     (This     : DispHTMLDOMAttribute_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,
         DispHTMLDOMAttribute_ie9_insertBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => refChild,
          2 => newChild),
         Free);
   end ie9_insertBefore;

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

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

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

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

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

end MSHTML.DispHTMLDOMAttribute_Object;

