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