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