let custom_text ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ())) ~to_string ~of_string label v =
  Text_param
    (Configwin_types.mk_custom_text_string_param
       {
         string_label = label ;
         string_help = help ;
         string_value = v ;
         string_editable = editable ;
         string_f_apply = f ;
         string_expand = expand ;
         string_to_string = to_string;
         string_of_string = of_string ;
       }
    )