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