let font ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ())) label v =
Font_param
{
font_label = label ;
font_help = help ;
font_value = v ;
font_editable = editable ;
font_f_apply = f ;
font_expand = expand ;
}