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

Modified Files: drei-redisplay.lisp Log Message: Fix :to-line-end keyword parameter for invalidate-strokes-in-region.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/02/17 14:54:47 1.67 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/02/18 12:22:47 1.68 @@ -344,11 +344,10 @@ :cleared cleared) ;; Only part of the line is within the region. else do (do-displayed-line-strokes (stroke line) - (when (if to-line-end - (<= start-offset (stroke-start-offset stroke)) - (overlaps start-offset end-offset - (stroke-start-offset stroke) - (stroke-end-offset stroke))) + (when (overlaps start-offset + (if to-line-end (line-end-offset line) end-offset) + (stroke-start-offset stroke) + (stroke-end-offset stroke)) (invalidate-stroke stroke :modified modified :cleared cleared))) if (= line1-index line2-index) do (loop-finish)