+(def-ui-child-packer toolbar (b d child)
+ (let ((expand-prop (find :expand (ui-child-props d) :key #'ui-prop-name))
+ (homogeneous-prop (find :homogeneous (ui-child-props d) :key #'ui-prop-name)))
+ `(progn
+ (toolbar-insert ,b ,child -1)
+ ,(when expand-prop
+ `(container-call-set-property ,b ,child "expand" ,(ui-prop-value expand-prop) +g-type-boolean+))
+ ,(when homogeneous-prop
+ `(container-call-set-property ,b ,child "homogeneous" ,(ui-prop-value homogeneous-prop) +g-type-boolean+)))))
+