with GNATCOM.Dispinterface;

package MSHTML.IDOMTextEvent_Interface is

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

   procedure Initialize (This : in out IDOMTextEvent_Type);

   function Pointer (This : IDOMTextEvent_Type)
     return Pointer_To_IDOMTextEvent;

   procedure Attach (This    : in out IDOMTextEvent_Type;
                     Pointer : in     Pointer_To_IDOMTextEvent);

   function Get_data
     (This : IDOMTextEvent_Type)
     return GNATCOM.Types.BSTR;

   function Get_inputMethod
     (This : IDOMTextEvent_Type)
     return Interfaces.C.unsigned_long;

   procedure initTextEvent
     (This        : IDOMTextEvent_Type;
      eventType   : GNATCOM.Types.BSTR;
      canBubble   : GNATCOM.Types.VARIANT_BOOL;
      cancelable  : GNATCOM.Types.VARIANT_BOOL;
      viewArg     : Pointer_To_IHTMLWindow2;
      dataArg     : GNATCOM.Types.BSTR;
      inputMethod : Interfaces.C.unsigned_long;
      locale      : GNATCOM.Types.BSTR;
      Free        : Boolean := True);

   function Get_locale
     (This : IDOMTextEvent_Type)
     return GNATCOM.Types.BSTR;

end MSHTML.IDOMTextEvent_Interface;

