-(defmethod container-add ((container container) (widget widget) &rest args)
- (%container-add container widget)
+(defun find-child-class (container-class)
+ (or
+ (gethash container-class *container-to-child-class-mappings*)
+ (setf (gethash container-class *container-to-child-class-mappings*)
+ (or
+ (when (eq container-class (find-class 'container))
+ (find-class 'container-child))
+ (find-child-class (find-class (supertype container-class)))))))
+
+(defun init-child-slots (container child args)