with GNATCOM.Dispinterface;

package MSHTML.IDOMMSManipulationEvent_Interface is

   type IDOMMSManipulationEvent_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Initialize (This : in out IDOMMSManipulationEvent_Type);

   function Pointer (This : IDOMMSManipulationEvent_Type)
     return Pointer_To_IDOMMSManipulationEvent;

   procedure Attach (This    : in out IDOMMSManipulationEvent_Type;
                     Pointer : in     Pointer_To_IDOMMSManipulationEvent);

   function Get_lastState
     (This : IDOMMSManipulationEvent_Type)
     return Interfaces.C.long;

   function Get_currentState
     (This : IDOMMSManipulationEvent_Type)
     return Interfaces.C.long;

   procedure initMSManipulationEvent
     (This         : IDOMMSManipulationEvent_Type;
      eventType    : GNATCOM.Types.BSTR;
      canBubble    : GNATCOM.Types.VARIANT_BOOL;
      cancelable   : GNATCOM.Types.VARIANT_BOOL;
      viewArg      : Pointer_To_IHTMLWindow2;
      detailArg    : Interfaces.C.long;
      lastState    : Interfaces.C.long;
      currentState : Interfaces.C.long;
      Free         : Boolean := True);

end MSHTML.IDOMMSManipulationEvent_Interface;

