let wpane = GPack.paned `HORIZONTAL
    ~packing: (vbox#pack ~expand: true) ()