let size_params ~cont pl ?width ?height = let may_cons = Property.may_cons in cont ( may_cons P.width_request width ( may_cons P.height_request height pl))