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)