From f3262348c2e37bb543772d6a85b8be5cf376ab6a Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 6 Jul 2005 19:48:12 -0700
Subject: [PATCH] added a defualt :size initarg of 30. this should be more
 customisable.

darcs-hash:20050707024812-5417e-c5fd49d080052edb275c6da430d5e9916ae26720.gz
---
 src/mewa/mewa.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 80795c8..1d8916c 100644
--- 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)))
 
 
-- 
2.20.1