sig
  type t
  val create : unit -> Input_edit.t
  val get : Input_edit.t -> string
  val get_pos : Input_edit.t -> int
  val set : Input_edit.t -> string -> int -> unit
  val enter_pressed : Input_edit.t -> unit
  val handle : Input_edit.t -> ?history:bool -> Sdlevent.event -> unit
  val handle_repeat : ('a -> unit) -> 'a -> unit
end