(defmacro present-view ((object &optional (type :viewer) (parent 'self))
&body attributes-and-args)
(arnesi:with-unique-names (view)
(defmacro present-view ((object &optional (type :viewer) (parent 'self))
&body attributes-and-args)
(arnesi:with-unique-names (view)
:type ,type
,@(when (car attributes-and-args)
`(:attributes ',(car attributes-and-args)))
,@ (cdr attributes-and-args))))
(setf (ucw::parent ,view) ,parent)
:type ,type
,@(when (car attributes-and-args)
`(:attributes ',(car attributes-and-args)))
,@ (cdr attributes-and-args))))
(setf (ucw::parent ,view) ,parent)