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)))))))