package body MSHTML.IHTMLPopup_Object is

   procedure Show
     (This     : IHTMLPopup_Type;
      x        : GNATCOM.Types.VARIANT;
      y        : GNATCOM.Types.VARIANT;
      w        : GNATCOM.Types.VARIANT;
      h        : GNATCOM.Types.VARIANT;
      pElement : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLPopup_Show,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pElement,
          2 => h,
          3 => w,
          4 => y,
          5 => x),
         Free);
   end Show;

   procedure Hide
     (This : IHTMLPopup_Type)
   is
   begin
      Invoke (This, IHTMLPopup_Hide);
   end Hide;

   function Get_document
     (This : IHTMLPopup_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLPopup_Get_document);
   end Get_document;

   function Get_isOpen
     (This : IHTMLPopup_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLPopup_Get_isOpen);
   end Get_isOpen;

end MSHTML.IHTMLPopup_Object;

