From: Drew Crampsie <drewc@tech.coop>
Date: Thu, 7 Jul 2005 02:50:17 +0000 (-0700)
Subject: added the default presentation attributes to class T
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/ab7ef8e9840bea3d12c3b6c8f49d6246fb5b38af

added the default presentation attributes to class T

darcs-hash:20050707025017-5417e-f9b95e6c542ab4a1ef918f96f68c9d78d6f5ca75.gz
---

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index fea4984..35faa16 100644
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -351,6 +351,22 @@ attributes is an alist keyed on the attribute nreeame."
       (setf (modifiedp self) instance
 	    (modifications self)  (append (list new old value slot instance) (modifications self)))))))
 
+;;;; * Finally set up some defaults
+
+(setf (find-attribute t :viewer) 
+      '(mewa-object-presentation :global-properties (:editablep nil))
+      (find-attribute t :editor)
+      '(mewa-object-presentation :global-properties (:editablep t))
+      (find-attribute t :one-line)
+      '(mewa::mewa-one-line-presentation)
+      (find-attribute t :listing)
+      '(mewa::mewa-list-presentation :global-properties (:editablep nil) :editablep t)
+      (find-attribute t :search-presentation)
+      '(mewa-object-presentation))
+
+
+
+
 
 ;; This software is Copyright (c) Drew Crampsie, 2004-2005.
 ;; You are granted the rights to distribute