[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	views.lisp 
Log Message:
Delete the line cache when changing the buffer of a Drei buffer view.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/05/03 07:47:17	1.45
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/05/15 13:51:40	1.46
@@ -645,7 +645,7 @@
 
 (defmethod (setf buffer) :after (buffer (view drei-buffer-view))
   (invalidate-all-strokes view)
-  (with-accessors ((top top) (bot bot)
+  (with-accessors ((top top) (bot bot) (lines lines)
                    (lines-prefix lines-prefix-size)
                    (lines-suffix lines-suffix-size)
                    (buffer-size last-seen-buffer-size)) view
@@ -654,6 +654,7 @@
           lines-prefix 0
           lines-suffix 0
           buffer-size 0)
+    (delete-elements* lines 0 (nb-elements lines))
     (update-line-data view)))
 
 (defmethod cache-string :around ((view drei-buffer-view))