[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	views.lisp 
Log Message:
When a buffer-view is set as the view of a Drei instance, invalidate
all redisplay information.

This fixes a bug in Climacs where old and erroneous redisplay
information could be kept when a view was hidden, and then brought
back.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/24 09:25:17	1.29
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/29 23:34:36	1.30
@@ -584,6 +584,9 @@
 (defmethod (setf syntax) :after (new-value (view drei-buffer-view))
   (invalidate-all-strokes view :modified t))
 
+(defmethod (setf view) :after ((view drei-buffer-view) (object drei))
+  (invalidate-all-strokes view))
+
 (defmethod cache-string :around ((view drei-buffer-view))
   (let ((string (call-next-method)))
     (setf (fill-pointer string) 0)