package body MSHTML.IHTMLObjectElement_Object is

   function Get_object
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_object);
   end Get_object;

   function Get_classid
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_classid);
   end Get_classid;

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

   procedure PutRef_recordset
     (This : IHTMLObjectElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLObjectElement_PutRef_recordset,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_recordset;

   function Get_recordset
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_recordset);
   end Get_recordset;

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

   function Get_align
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_align);
   end Get_align;

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

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

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

   function Get_codeBase
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_codeBase);
   end Get_codeBase;

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

   function Get_codeType
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_codeType);
   end Get_codeType;

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

   function Get_code
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_code);
   end Get_code;

   function Get_BaseHref
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_BaseHref);
   end Get_BaseHref;

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

   function Get_type
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_type);
   end Get_type;

   function Get_form
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_form);
   end Get_form;

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

   function Get_width
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_width);
   end Get_width;

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

   function Get_height
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_height);
   end Get_height;

   function Get_readyState
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_readyState);
   end Get_readyState;

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

   function Get_onreadystatechange
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_onreadystatechange);
   end Get_onreadystatechange;

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

   function Get_onerror
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_onerror);
   end Get_onerror;

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

   function Get_altHtml
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_altHtml);
   end Get_altHtml;

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

   function Get_vspace
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_vspace);
   end Get_vspace;

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

   function Get_hspace
     (This : IHTMLObjectElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLObjectElement_Get_hspace);
   end Get_hspace;

end MSHTML.IHTMLObjectElement_Object;

