-(defmethod default-attributes ((model t))
- (append (mapcar #'(lambda (s) (cons (car s) (gen-pslot (if (meta-model:foreign-key-p model (car s))
- 'ucw::foreign-key
- (cadr s))
- (string (car s)) (car s))))
- (meta-model:list-slot-types model))
- (mapcar #'(lambda (s) (cons s (append (gen-pslot 'ucw::has-many (string s) s) `(:presentation (make-presentation ,model :type :one-line)))))
- (meta-model:list-has-many model))))
-
-(defmethod set-default-attributes ((model t))
- (mapcar #'(lambda (x)
- (setf (find-attribute model (car x)) (cdr x)))
- (default-attributes model)))
-
-
-(defcomponent mewa-object-presentation (mewa ucw:object-presentation) ())
-
-(defcomponent mewa-list-presentation (mewa ucw:list-presentation)
- ((it.bese.ucw::instances :accessor instances :initarg :instances :initform nil)
- (instance :accessor instance))) ;to make make-presentation happy
-
-(defmethod get-all-instances ((self mewa-list-presentation))
- (instances self))
-
-