[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)