[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv8334

Modified Files:
	dialog.lisp 
Log Message:
Always finalize the input-editing stream used in accepting-values.


--- /project/mcclim/cvsroot/mcclim/dialog.lisp	2007/07/21 13:06:45	1.28
+++ /project/mcclim/cvsroot/mcclim/dialog.lisp	2008/02/01 00:22:04	1.29
@@ -240,6 +240,8 @@
                  (finalize-query-records *accepting-values-stream*)
 		 (setf (last-pass *accepting-values-stream*) t)
                  (redisplay arecord stream)))
+          (dolist (query (queries *accepting-values-stream*))
+            (finalize (editing-stream (record query)) nil))
           (erase-output-record arecord stream)
           (setf (stream-cursor-position stream)
                 (values cx cy)))))))