let itemCvs = GMenu.menu_item
    ~label: Ocvs_messages.m_cvs
    ~packing: menubar#add
    ()