package body MSHTML.IHTMLDialog_Object is

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

   function Get_dialogTop
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_dialogTop);
   end Get_dialogTop;

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

   function Get_dialogLeft
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_dialogLeft);
   end Get_dialogLeft;

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

   function Get_dialogWidth
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_dialogWidth);
   end Get_dialogWidth;

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

   function Get_dialogHeight
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_dialogHeight);
   end Get_dialogHeight;

   function Get_dialogArguments
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_dialogArguments);
   end Get_dialogArguments;

   function Get_menuArguments
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_menuArguments);
   end Get_menuArguments;

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

   function Get_returnValue
     (This : IHTMLDialog_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLDialog_Get_returnValue);
   end Get_returnValue;

   procedure close
     (This : IHTMLDialog_Type)
   is
   begin
      Invoke (This, IHTMLDialog_close);
   end close;

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

end MSHTML.IHTMLDialog_Object;

