[mcclim-cvs] CVS mcclim

[thenriksen]

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