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