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

Modified Files: fundamental-syntax.lisp Log Message: Changed the updating-output cache value for cursors to something a bit more correct.

--- /project/mcclim/cvsroot/mcclim/Drei/fundamental-syntax.lisp 2006/11/11 00:08:30 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/fundamental-syntax.lisp 2007/02/06 09:10:51 1.4 @@ -210,7 +210,7 @@ (multiple-value-bind (cursor-x cursor-y line-height) (offset-to-screen-position stream drei (offset mark)) (updating-output (stream :unique-id (list stream :cursor) - :cache-value (offset mark)) + :cache-value (list* cursor-x cursor-y line-height)) (draw-rectangle* stream (1- cursor-x) cursor-y (+ cursor-x 2) (+ cursor-y line-height)