external set_default_response : [>`dialog] obj -> int -> unit
      = "ml_gtk_dialog_set_default_response"