method menu_ctx (selection : cvs_info list) =
match selection with
[] ->
[ `I (Ocvs_messages.m_add_files, itemAdd_files#activate) ;
`I (Ocvs_messages.m_add_binary_files, itemAdd_binary_files#activate) ;
]
| _ ->
[ `I (Ocvs_messages.m_add_files, itemAdd_files#activate) ;
`I (Ocvs_messages.m_add_binary_files, itemAdd_binary_files#activate) ;
`I (Ocvs_messages.m_commit_files, itemCommit_files#activate) ;
`I (Ocvs_messages.m_tag_files, itemTag_files#activate) ;
`I (Ocvs_messages.m_tags_of_file, itemTags_of_file#activate) ;
`I (Ocvs_messages.m_remove_files, itemRemove_files#activate) ;
`I (Ocvs_messages.m_last_diff, itemLast_diff#activate) ;
`I (Ocvs_messages.m_diff_with, itemDiff_with#activate) ;
`I (Ocvs_messages.m_diff_between, itemDiff_between#activate) ;
`I (Ocvs_messages.m_resolve_conflicts, itemResolve_conflicts#activate);
`I (Ocvs_messages.m_log, itemLog_file#activate);
]