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