external response : [>`dialog] obj -> int -> unit
      = "ml_gtk_dialog_response"