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