let
vbox_tree =
GPack
.vbox ~width: 200 ~packing: wpane
#
add1 ()