[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)