package body MSHTML.IDOMCloseEvent_Object is

   function Get_wasClean
     (This : IDOMCloseEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMCloseEvent_Get_wasClean);
   end Get_wasClean;

   procedure initCloseEvent
     (This       : IDOMCloseEvent_Type;
      eventType  : GNATCOM.Types.VARIANT;
      canBubble  : GNATCOM.Types.VARIANT;
      cancelable : GNATCOM.Types.VARIANT;
      wasClean   : GNATCOM.Types.VARIANT;
      code       : GNATCOM.Types.VARIANT;
      reason     : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IDOMCloseEvent_initCloseEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => reason,
          2 => code,
          3 => wasClean,
          4 => cancelable,
          5 => canBubble,
          6 => eventType),
         Free);
   end initCloseEvent;

end MSHTML.IDOMCloseEvent_Object;

