added edit-instance function

[clinton/lisp-on-lines.git] / src / mewa / presentations.lisp

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index dd68185..f10d1cb 100644 (file)
--- 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)
   ()