let color ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ())) label v =
Color_param
{
color_label = label ;
color_help = help ;
color_value = v ;
color_editable = editable ;
color_f_apply = f ;
color_expand = expand ;
}