let combo ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ()))
?(new_allowed=false)
?(blank_allowed=false) label choices v =
Combo_param
{
combo_label = label ;
combo_help = help ;
combo_value = v ;
combo_editable = editable ;
combo_choices = choices ;
combo_new_allowed = new_allowed ;
combo_blank_allowed = blank_allowed ;
combo_f_apply = f ;
combo_expand = expand ;
}