method private tag_selected_files selection () =
      let files = List.map (fun t -> t.Ocvs_types.cvs_file) selection in
      (* ask for tag *)
      match GToolbox.input_string
          M.tag_files
          (M.enter_tag_for_files files)
      with
      |        None -> ()
      |        Some tag ->
          let f () =
            let confirm s =
              (GToolbox.question_box ~title: M.confirm
                 ~buttons: [ M.yes ; M.no ]
                 s
              ) = 1
            in
            cvs#cvs_tag_files confirm tag files
          in
          handle_error f () ()