let make_params ~cont pl ?border_width =
    Widget.size_params pl ~cont:(fun p ->
      cont (Property.may_cons P.border_width border_width p))