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