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) ;
]