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
      | _ ->
          ()