method paste_where_selected l =
      match view#selection#get_selected_rows with
        [] -> List.iter (self#insert ?row: None) l
      |        p :: _ ->
          let rec f rr = function
              [] -> ()
            | d :: q ->
                let row = store#insert_before rr#iter in
                let rr = self#rr_of_iter row in
                self#insert ~row d;
                f rr q
          in
          f (self#rr_of_path p) l