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