method menu_ctx (selection : string option) =
      match selection with
        None ->
          [ `I (Ocvs_messages.m_add_dir, itemAdd_dir#activate) ]
      |        Some s ->
          [ `I (Ocvs_messages.m_add_dir, itemAdd_dir#activate) ;
            `I (Ocvs_messages.m_update_dir, itemUpdate_dir#activate) ;
            `I (Ocvs_messages.m_commit_dir, itemCommit_dir#activate) ;
            `I (Ocvs_messages.m_tag_dir, itemTag_dir#activate) ;
          ]