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