[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp views.lisp 
Log Message:
Invalidate strokes when changing syntax, clear up to
line-vertical-spacing.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/03 17:52:31	1.18
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/03 18:09:27	1.19
@@ -424,7 +424,8 @@
                 (values (- x2 x1) (- y2 y1) nil nil center))
           (declare (ignore ignore1 ignore2 ignore3))
           (clear-rectangle* stream cursor-x cursor-y
-                            (+ cursor-x width) (+ cursor-y text-style-height))
+                            (+ cursor-x width) (+ cursor-y text-style-height
+                                                  (stream-vertical-spacing stream)))
           (draw-text* stream stroke-string cursor-x (+ cursor-y
                                                        (- text-style-ascent
                                                           baseline))
@@ -482,7 +483,8 @@
           (when (> line-height (dimensions-height stroke-dimensions))
             (clear-rectangle* stream stroke-x1 stroke-y2
                               stroke-x2 (+ stroke-y2 (- line-height
-                                                        (dimensions-height stroke-dimensions))))))))
+                                                        (dimensions-height stroke-dimensions))
+                                           (stream-vertical-spacing stream)))))))
     ;; Reset the dimensions of undisplayed lines.
     (do-undisplayed-line-strokes (stroke line)
       (let ((stroke-dimensions (stroke-dimensions stroke)))
--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/03 16:21:20	1.11
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/03 18:09:27	1.12
@@ -548,6 +548,9 @@
 (defmethod (setf buffer) :after (new-value (view drei-buffer-view))
   (invalidate-all-strokes view))
 
+(defmethod (setf syntax) :after (new-value (view drei-buffer-view))
+  (invalidate-all-strokes view :modified t))
+
 (defmethod cache-string :around ((view drei-buffer-view))
   (let ((string (call-next-method)))
     (setf (fill-pointer string) 0)