let itemAdd_binary_files = GMenu.menu_item
    ~label:  Ocvs_messages.m_add_binary_files
    ~packing: menuCvs#add
    ()