package body MSHTML.IHTMLDOMAttribute3_Object is

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

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

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

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

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

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

end MSHTML.IHTMLDOMAttribute3_Object;

