sig
  val changed : ([> `editable ], unit -> unit) GtkSignal.t
  val delete_text :
    ([> `editable ], start:int -> stop:int -> unit) GtkSignal.t
  val insert_text :
    ([> `editable ], string -> pos:int Pervasives.ref -> unit) GtkSignal.t
end