From 7f16078d08a89f69865aa565ea61143cea8d64b4 Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Mon, 20 Jun 2005 11:10:56 -0700
Subject: [PATCH] added edit-instance function

darcs-hash:20050620181056-39164-eaeb160023130936165f8a1e47edde7b8a41f8aa.gz
---
 src/mewa/presentations.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index dd68185..f10d1cb 100644
--- a/src/mewa/presentations.lisp
+++ b/src/mewa/presentations.lisp
@@ -1,5 +1,8 @@
 (in-package :mewa)
 
+(defaction edit-instance ((self mewa))
+  (call-presentation (instance self) :type :editor))
+
 ;;;one-line objects
 (defcomponent mewa-one-line-presentation (mewa one-line-presentation)
   ()
-- 
2.20.1