method paste () =
match !clipboard with
None -> ()
| Some ele ->
let rr = self#selected_rr in
match rr with
None ->
self#insert_rep_desc ele ;
tv#selection#unselect_all ()
| Some rr ->
match store#get ~row: rr#iter ~column: col_data with
Cond _ -> ()
| _ ->
self#insert_rep_desc ~parent: rr ele ;
tv#selection#unselect_all ()