let set ?active ?accel_group w = may active ~f:(set_active w); may accel_group ~f:(set_accel_group w)