let make_hbox (parent:GPack.box) =
  GPack.hbox ~homogeneous:true ~packing:parent#pack ()