method set_data_from_tables = fun tables name -> self#reset_data name; List.iter (fun t -> ignore (select_w#store1#append_data (t, new constraints_list_store ()))) tables