method private tag_dir dir () =
      let f () =
        let tag_opt = GToolbox.input_string
            M.tag_dir
            (M.enter_tag_for_dir dir)
        in
        match tag_opt with
          None -> ()
        | Some tag ->
            let confirm s =
            (GToolbox.question_box
               ~title: M.confirm
               ~buttons: [ M.yes ; M.no ]
               s
            ) = 1
            in
            cvs#cvs_tag_dir confirm tag dir
      in
      handle_error f () ()