external load : string -> unit = "ml_gtk_accel_map_load"