added a defualt :size initarg of 30. this should be more customisable.

darcs-hash:20050707024812-5417e-c5fd49d080052edb275c6da430d5e9916ae26720.gz

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 80795c8..1d8916c 100644 (file)
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -241,7 +241,7 @@ attributes is an alist keyed on the attribute nreeame."
              (let ((class-name (or (gethash (second s) ucw::*slot-type-mapping*) 'mewa-object-presentation)))
              (apply #'make-instance 
                     class-name
-                    (append (cddr s) (list :parent self)))))
+                    (append (cddr s) (list :parent self :size 30)))))
          (find-applicable-attributes self)))