external run : [>`dialog] obj -> int
      = "ml_gtk_dialog_run"