let set_child_ipadding w ?x ?y () = set_child_ipadding w ~x:(may_default get_child_ipadx w ~opt:x) ~y:(may_default get_child_ipady w ~opt:y)