package body MSHTML.IDOMCustomEvent_Object is

   function Get_detail
     (This : IDOMCustomEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMCustomEvent_Get_detail);
   end Get_detail;

   procedure initCustomEvent
     (This       : IDOMCustomEvent_Type;
      eventType  : GNATCOM.Types.VARIANT;
      canBubble  : GNATCOM.Types.VARIANT;
      cancelable : GNATCOM.Types.VARIANT;
      detail     : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IDOMCustomEvent_initCustomEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => detail,
          2 => cancelable,
          3 => canBubble,
          4 => eventType),
         Free);
   end initCustomEvent;

end MSHTML.IDOMCustomEvent_Object;

