method insert_in_selected ele =
      match self#selected_rr with
        None -> self#insert_rep_desc ele
      |        Some rr -> self#insert_rep_desc ~parent: rr ele