+ :parent container :child child args))))
+
+(defmethod container-add ((container container) (widget widget) &rest args)
+ (%container-add container widget)
+ (init-child-slots container widget args)
+ widget)
+
+(defmethod container-add ((container container) (widgets list) &rest args)
+ (dolist (widget widgets)
+ (apply #'container-add container widget args)))