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