let
infoFrame = (
Frame
.create ~width:20 commandFrame :
Widget
.frame
Widget
.widget)