external create : unit -> accel_group = "ml_gtk_accel_group_new"