let
bar = (
Frame
.create ~borderwidth:0 ~relief:
`
Flat
base :
Widget
.frame
Widget
.widget)