(defdisplay (:description (attribute many-to-many))
- (let ((instances (select-instances object))
+ (let ((instances (select-instances object t))
new-instance)
(<:ul
(<:li (<ucw:button :action (add-new-relation component object (getp slot-name))
- (<:as-html "Add New")))
+ (<:as-html "Add New")))
(<:li (<ucw:button :action (add-new-relation component object new-instance)
(<:as-html "Add:"))
(<ucw:select :accessor new-instance
default action is to FUNCALL-WITH-LAYERS the DISPLAY-USING-DESCRIPTION method."))
(define-layered-method display
- ((component t) (object standard-object) &rest args &key layers (type 'viewer) &allow-other-keys)
+ ((component t) (object t) &rest args &key layers (type 'viewer) &allow-other-keys)
(let* ((occurence (find-occurence object))
(plist (attribute.plist
(find-attribute occurence (intern (format nil "~A" type) :KEYWORD))))
(define-layered-method display
- ((component t) (object t) &rest args &key (layers '(+ viewer)) &allow-other-keys)
+ ((component t) (object t) &rest args &key layers (type 'viewer) &allow-other-keys)
(funcall-with-layers
layers
#'display-using-description t component object args))