external _ref_and_sink : [>`gtk] obj -> unit
    = "ml_gtk_object_ref_and_sink"