sig
  external cut_clipboard : [> GnomeCanvas.rich_text ] Gobject.obj -> unit
    = "ml_gnome_canvas_rich_text_cut_clipboard"
  external copy_clipboard : [> GnomeCanvas.rich_text ] Gobject.obj -> unit
    = "ml_gnome_canvas_rich_text_copy_clipboard"
  external paste_clipboard : [> GnomeCanvas.rich_text ] Gobject.obj -> unit
    = "ml_gnome_canvas_rich_text_paste_clipboard"
  external get_buffer :
    [> GnomeCanvas.rich_text ] Gobject.obj -> Gtk.text_buffer
    = "ml_gnome_canvas_rich_text_get_buffer"
end