Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv29501
Modified Files: syntax.lisp Log Message: Improved cursor redisplay.
Thanks to Alastair Bridgewater
Date: Mon Dec 27 18:43:09 2004 Author: rstrandh
Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.9 climacs/syntax.lisp:1.10 --- climacs/syntax.lisp:1.9 Mon Dec 27 17:47:45 2004 +++ climacs/syntax.lisp Mon Dec 27 18:43:08 2004 @@ -163,10 +163,13 @@ (multiple-value-bind (x y) (stream-cursor-position pane) (setf cursor-x x cursor-y y))) - (draw-line* pane - cursor-x (- cursor-y (* 0.2 height)) - cursor-x (+ cursor-y (* 0.8 height)) - :ink +red+)))))) + (maybe-updating-output (pane :all-new t :fixed-position t) + (draw-line* pane + ;; cursors with odd x-positions were invisible + ;; so we strip off the low bit to make them even. + (logand -2 cursor-x) (- cursor-y (* 0.2 height)) + (logand -2 cursor-x) (+ cursor-y (* 0.8 height)) + :ink +red+)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;