package body MSHTML.IHTMLWindow4_Object is

   function createPopup
     (This     : IHTMLWindow4_Type;
      varArgIn : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLWindow4_createPopup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => varArgIn),
         Free);
   end createPopup;

   function Get_frameElement
     (This : IHTMLWindow4_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLWindow4_Get_frameElement);
   end Get_frameElement;

end MSHTML.IHTMLWindow4_Object;

