- (dolist (child children)
- (cond
- ((consp child)
- (container-add container (first child))
- (setf
- (slot-value (first child) 'child-slots)
- (apply
- #'make-instance
- (slot-value (class-of container) 'child-class)
- :parent container :child (first child) (cdr child))))
- (t
- (container-add container child)))))
-
-(defbinding %container-child-getv () nil
- (container container)
- (child widget)
- (1 unsigned-int)
- (arg arg))