sig
  val cast : 'a Gobject.obj -> Gtk.old_editable Gtk.obj
  module P :
    sig val text_position : ([> `oldeditable ], int) Gobject.property end
  module S :
    sig
      val activate : ([> `oldeditable ], unit -> unit) GtkSignal.t
      val copy_clipboard : ([> `oldeditable ], unit -> unit) GtkSignal.t
      val cut_clipboard : ([> `oldeditable ], unit -> unit) GtkSignal.t
      val paste_clipboard : ([> `oldeditable ], unit -> unit) GtkSignal.t
      val move_cursor : ([> `oldeditable ], int -> int -> unit) GtkSignal.t
      val move_word : ([> `oldeditable ], int -> unit) GtkSignal.t
      val move_page : ([> `oldeditable ], int -> unit) GtkSignal.t
      val move_to_row : ([> `oldeditable ], int -> unit) GtkSignal.t
      val move_to_column : ([> `oldeditable ], int -> unit) GtkSignal.t
    end
  external claim_selection :
    [> `oldeditable ] Gtk.obj -> claim:bool -> time:int -> unit
    = "ml_gtk_old_editable_claim_selection"
  external changed : [> `oldeditable ] Gtk.obj -> unit
    = "ml_gtk_old_editable_changed"
end