let set_child_size w ?width ?height () = set_child_size w ~width:(may_default get_child_width w ~opt:width) ~height:(may_default get_child_height w ~opt:height)