let set ?active ?show_toggle ?right_justified w = may active ~f:(set P.active w); may show_toggle ~f:(set_show_toggle w); may right_justified ~f:(MenuItem.set_right_justified w)