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