sig
  external add : [> `widget ] Gtk.obj -> unit = "ml_gtk_grab_add"
  external remove : [> `widget ] Gtk.obj -> unit = "ml_gtk_grab_remove"
  external get_current : unit -> Gtk.widget Gtk.obj
    = "ml_gtk_grab_get_current"
end