method private commit_dir dir () =
      let f () =
        let com_opt = GToolbox.input_text
              M.enter_comment
              (M.enter_comment_commit^" : ")
        in
        match com_opt with
          None -> ()
        | Some comment ->
            cvs#cvs_commit_dir ~comment dir;
            Cam_view.refresh_ressource_views dir
      in
      handle_error f () ()