Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv14733
Modified Files: input-editing-drei.lisp Log Message: Replay used input-editing streams whether they have an input-sensitizer or not.
--- /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/01/30 15:58:14 1.7 +++ /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/01/30 17:08:01 1.8 @@ -109,14 +109,18 @@ (setf (cursor-visibility stream) nil) (let ((real-stream (encapsulating-stream-stream stream)) (record (drei:drei-instance stream))) - (when input-sensitizer - (erase-output-record record real-stream) - (funcall input-sensitizer - real-stream - #'(lambda () - (stream-add-output-record real-stream record) - (when (stream-drawing-p real-stream) - (replay record real-stream))))) + (cond (input-sensitizer + (erase-output-record record real-stream) + (funcall input-sensitizer + real-stream + #'(lambda () + (stream-add-output-record real-stream record) + (when (stream-drawing-p real-stream) + (replay record real-stream))))) + ;; We still want to replay it for the cursor visibility + ;; change... + ((stream-drawing-p real-stream) + (replay record real-stream) )) (setf (stream-cursor-position real-stream) (values 0 (nth-value 3 (input-editing-stream-bounding-rectangle stream))))))