sig
  val copy_clipboard : ([> `label ], unit -> unit) GtkSignal.t
  val move_cursor :
    ([> `label ], GtkEnums.movement_step -> int -> bool -> unit) GtkSignal.t
  val populate_popup : ([> `label ], Gtk.menu Gtk.obj -> unit) GtkSignal.t
end