method cvs_tag_dir =
      let sel = view#selection in
      match sel#get_selected_rows with
        [] -> ()
      |        row :: _ ->
          let it = store#get_iter row in
          let dir = store#get ~row: it ~column: col_complete in
           (* A VOIR : demander les autorisations pour les fichiers ? *)
           let tag_opt = GToolbox.input_string
               Ocvs_messages.m_tag_dir
               (Ocvs_messages.enter_tag_for_dir dir)
           in
           match tag_opt with
             None -> ()
           | Some tag ->
               let confirm s =
                 (GToolbox.question_box
                    ~title: Ocvs_messages.mConfirm
                    ~buttons: [ Ocvs_messages.mYes ; Ocvs_messages.mNo ]
                    s) = 1
               in
               try behav#cvs_tag_dir confirm tag dir
               with Failure s -> GToolbox.message_box Ocvs_messages.error s