- (1 unsigned-int)
- (arg arg))
-
-(defun container-child-arg (container child name)
- (with-gc-disabled
- (let ((arg (arg-new 0)))
- (setf (arg-name arg) name)
- (container-child-get-arg container child arg) ; probably memory leak
- (let ((type (type-from-number (arg-type arg))))
- (prog1
- (arg-value arg type)
- (arg-free arg nil))))))
-
-(defun (setf container-child-arg) (value container child name)
- (with-gc-disabled
- (let ((arg (arg-new 0)))
- (setf (arg-name arg) name)
- (container-child-get-arg container child arg) ; probably memory leak
- (let ((type (type-from-number (arg-type arg))))
- (setf (arg-value arg type) value)
- (container-child-set-arg container child arg)
- (arg-free arg nil))))
- value)
-
-
-(define-foreign container-add () nil
- (container container)
- (widget widget))