let vbox = GPack.vbox ~packing: window#add ()