package body MSHTML.DispXMLHttpRequestEventTarget_Object is

   procedure addEventListener
     (This       : DispXMLHttpRequestEventTarget_Type;
      utype      : GNATCOM.Types.VARIANT;
      listener   : GNATCOM.Types.VARIANT;
      useCapture : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispXMLHttpRequestEventTarget_addEventListener,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => useCapture,
          2 => listener,
          3 => utype),
         Free);
   end addEventListener;

   procedure removeEventListener
     (This       : DispXMLHttpRequestEventTarget_Type;
      utype      : GNATCOM.Types.VARIANT;
      listener   : GNATCOM.Types.VARIANT;
      useCapture : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispXMLHttpRequestEventTarget_removeEventListener,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => useCapture,
          2 => listener,
          3 => utype),
         Free);
   end removeEventListener;

   function dispatchEvent
     (This : DispXMLHttpRequestEventTarget_Type;
      evt  : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispXMLHttpRequestEventTarget_dispatchEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => evt),
         Free);
   end dispatchEvent;

end MSHTML.DispXMLHttpRequestEventTarget_Object;

