package body MSHTML.IHTMLDOMConstructor_Object is

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

   function LookupGetter
     (This     : IHTMLDOMConstructor_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDOMConstructor_LookupGetter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => propname),
         Free);
   end LookupGetter;

   function LookupSetter
     (This     : IHTMLDOMConstructor_Type;
      propname : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDOMConstructor_LookupSetter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => propname),
         Free);
   end LookupSetter;

   procedure DefineGetter
     (This         : IHTMLDOMConstructor_Type;
      propname     : GNATCOM.Types.VARIANT;
      pdispHandler : GNATCOM.Types.VARIANT;
      Free         : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMConstructor_DefineGetter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdispHandler,
          2 => propname),
         Free);
   end DefineGetter;

   procedure DefineSetter
     (This         : IHTMLDOMConstructor_Type;
      propname     : GNATCOM.Types.VARIANT;
      pdispHandler : GNATCOM.Types.VARIANT;
      Free         : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLDOMConstructor_DefineSetter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdispHandler,
          2 => propname),
         Free);
   end DefineSetter;

end MSHTML.IHTMLDOMConstructor_Object;

