let list ?(editable=true) ?help
?(f=(fun (_:'a list) -> ()))
?(eq=Pervasives.(=))
?(edit:('a -> 'a) option)
?(add=(fun () -> ([] : 'a list)))
?titles ?(color=(fun (_:'a) -> (None : string option)))
label (f_strings : 'a -> string list) v =
List_param
(fun tt ->
Obj.magic
(new list_param_box
{
list_label = label ;
list_help = help ;
list_value = v ;
list_editable = editable ;
list_titles = titles;
list_eq = eq ;
list_strings = f_strings ;
list_color = color ;
list_f_edit = edit ;
list_f_add = add ;
list_f_apply = f ;
}
tt
)
)