let itemQuit = GMenu.menu_item
    ~label: Ocvs_messages.m_quit
    ~packing: menuFile#add
    ()