let itemAdd_dir = GMenu.menu_item
    ~label: Ocvs_messages.m_add_dir
    ~packing: menuCvs#add
    ()