From d75822e6994bf139e0ba2fddf3eee28e0cda5f2c Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 6 Jul 2005 19:48:53 -0700
Subject: [PATCH 1/1] moved display of modified record to below dialog

darcs-hash:20050707024853-5417e-3e05c4366c67a318a93fd97d1b33d5fe8c4341a8.gz
---
 src/mewa/mewa.lisp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 1d8916c..fea4984 100644
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -304,8 +304,8 @@ attributes is an alist keyed on the attribute nreeame."
   ((body :initarg :body)))
 
 (defmethod render-on ((res response) (self about-dialog))
-  (render-on res (slot-value self 'body))
-  (call-next-method))
+  (call-next-method)
+  (render-on res (slot-value self 'body)))
 
 (defaction cancel-save-instance ((self mewa))
   (cond  
@@ -340,10 +340,6 @@ attributes is an alist keyed on the attribute nreeame."
   (ensure-instance-sync self)
   (answer self))
 
-
-
-
-
 (defmethod (setf presentation-slot-value) :around (value (slot slot-presentation) instance)
   (let* ((old (prog1 
 		 (presentation-slot-value slot instance)
-- 
2.20.1