[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
Fixed WITH-INPUT-EDITOR-TYPEOUT for Drei.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/01/30 21:21:43	1.28
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/01/30 21:30:02	1.29
@@ -760,9 +760,9 @@
 (defmethod invoke-with-input-editor-typeout ((stream drei-input-editing-mixin)
                                              (continuation function) &key erase)
   (declare (ignore erase))
-  (let ((drei (drei-instance stream)))
-    (when (minibuffer drei)
-      (funcall continuation (minibuffer drei)))))
+  (with-bound-drei-special-variables ((drei-instance stream))
+    (with-minibuffer-stream (minibuffer)
+      (funcall continuation minibuffer))))
 
 (defmacro with-input-editor-typeout ((&optional (stream t) &rest args
                                                 &key erase)