method private _cb__right_button_clicked = fun () ->
match view1.st_view#selection#get_selected_rows with
| [path] ->
let iter = store1#get_iter path in
let data = store1#get_data ~row:iter in
i_bool (store1#remove iter);
let row =
store2#get_row_reference
(store2#get_path (store2#append_data data))
in
if not (path_is_valid store1 path) then
ignore(GTree.Path.prev path);
view1.st_view#selection#select_path path;
connect#raise_added row
| _ ->
()