let list ?(editable=true) ?help
    ?(f=(fun (_:'a list) -> ()))
    ?(eq=Pervasives.(=))
    ?(edit:('-> 'a) option)
    ?(add=(fun () -> ([] : 'a list)))
    ?titles ?(color=(fun (_:'a) -> (None : string option)))
    label (f_strings : '-> 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
        )
    )