let
vbox_list =
GPack
.vbox ~packing: wpane
#
add2 ()