[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Fixed truly obscure case where stale information from old strokes was
accidentally reused.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/17 13:42:22	1.42
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/17 17:25:31	1.43
@@ -381,7 +381,7 @@
          (old-end-offset (stroke-end-offset stroke))
          (old-drawing-options (stroke-drawing-options stroke)))
     (prog1 (stroke-pump view stroke pump-state)
-      (unless (and old-end-offset
+      (unless (and old-start-offset
                    (= (+ old-start-offset line-change) (stroke-start-offset stroke))
                    (= (+ old-end-offset line-change) (stroke-end-offset stroke))
                    (drawing-options-equal old-drawing-options
@@ -580,7 +580,15 @@
   (end-line line line-x1 line-y1 line-width line-height)
   (setf (max-line-width view)
         (max (max-line-width view)
-             (dimensions-width (line-dimensions line)))))
+             (dimensions-width (line-dimensions line))))
+  ;; This way, strokes that have at one point been left undisplayed
+  ;; will always be considered modified when they are filled
+  ;; again. The return is for optimisation, we know that an unused
+  ;; stroke can only be followed by other unused strokes.
+  (do-undisplayed-line-strokes (stroke line)
+    (if (null (stroke-start-offset stroke))
+        (return)
+        (setf (stroke-start-offset stroke) nil))))
 
 (defun draw-line-strokes (pane view initial-pump-state
                           start-offset cursor-x cursor-y)