let set_column w ?widget ?title ?title_active ?justification
?visibility ?resizeable ?auto_resize ?width ?min_width ?max_width
col =
let may_set f param = may param ~f:(f w col) in
may_set set_column_widget widget;
may_set set_column_title title;
may title_active
~f:(fun active -> if active then column_title_active w col
else column_title_passive w col);
may_set set_column_justification justification;
may_set set_column_visibility visibility;
may_set set_column_resizeable resizeable;
may_set set_column_auto_resize auto_resize;
may_set set_column_width width;
may_set set_column_min_width min_width;
may_set set_column_max_width max_width