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