- #'make-instance
- (gethash (class-of container) *container-to-child-class-mappings*)
- :parent container :child widget args))))
+ #'make-instance (find-child-class (class-of container))
+ :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)))