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