let custom_string ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ())) ~to_string ~of_string label v =
String_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 ;
}
)