let menubar = GMenu.menu_bar
    ~packing: (vbox#pack ~expand: false)
    ()