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