package body MSHTML.IDOMUIEvent_Object is

   function Get_view
     (This : IDOMUIEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMUIEvent_Get_view);
   end Get_view;

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

   procedure initUIEvent
     (This       : IDOMUIEvent_Type;
      eventType  : GNATCOM.Types.VARIANT;
      canBubble  : GNATCOM.Types.VARIANT;
      cancelable : GNATCOM.Types.VARIANT;
      view       : GNATCOM.Types.VARIANT;
      detail     : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IDOMUIEvent_initUIEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => detail,
          2 => view,
          3 => cancelable,
          4 => canBubble,
          5 => eventType),
         Free);
   end initUIEvent;

end MSHTML.IDOMUIEvent_Object;

