method copy () =
      match self#selected_rr with
        None -> ()
      |        Some rr ->
          let row = rr#iter in
          match self#build_report_desc ~row () with
            rep_desc :: _ ->
              clipboard := Some rep_desc
          | [] -> ()