let set ?orientation ?style ?tooltips w = may orientation ~f:(set P.orientation w); may style ~f:(set P.toolbar_style w); may tooltips ~f:(set_tooltips w)