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