package body MSHTML.IDOMMSManipulationEvent_Object is

   function Get_lastState
     (This : IDOMMSManipulationEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMMSManipulationEvent_Get_lastState);
   end Get_lastState;

   function Get_currentState
     (This : IDOMMSManipulationEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMMSManipulationEvent_Get_currentState);
   end Get_currentState;

   procedure initMSManipulationEvent
     (This         : IDOMMSManipulationEvent_Type;
      eventType    : GNATCOM.Types.VARIANT;
      canBubble    : GNATCOM.Types.VARIANT;
      cancelable   : GNATCOM.Types.VARIANT;
      viewArg      : GNATCOM.Types.VARIANT;
      detailArg    : GNATCOM.Types.VARIANT;
      lastState    : GNATCOM.Types.VARIANT;
      currentState : GNATCOM.Types.VARIANT;
      Free         : Boolean := True)
   is
   begin
      Invoke
        (This,
         IDOMMSManipulationEvent_initMSManipulationEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => currentState,
          2 => lastState,
          3 => detailArg,
          4 => viewArg,
          5 => cancelable,
          6 => canBubble,
          7 => eventType),
         Free);
   end initMSManipulationEvent;

end MSHTML.IDOMMSManipulationEvent_Object;

