method move_constraints_to = fun name (store : constraints_list_store) ->
let to_be_moved = ref [] in
self#foreach
(fun path iter ->
let data = self#get_data ~row:iter in
let t1 = data.jc_column1.SQL_db.col_table.SQL_db.ta_name
and t2 = data.jc_column2.SQL_db.col_table.SQL_db.ta_name in
if name = t1 || name = t2 then
to_be_moved := (self#get_row_reference path) :: !to_be_moved;
false);
List.iter
(fun r ->
let iter = r#iter in
let data = self#get_data ~row:iter in
let data' = { jc_column1 = data.jc_column2;
jc_column2 = data.jc_column1; }
in
i_bool (self#remove iter);
store#append_data data')
!to_be_moved