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)