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