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