[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	views.lisp 
Log Message:
When clearing the undo history, also clear the undo accumulator.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/23 19:01:40	1.28
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/24 09:25:17	1.29
@@ -259,7 +259,8 @@
 
 (defmethod clear-undo-history ((undo-maintainer undo-mixin))
   (setf (slot-value undo-maintainer 'tree)
-        (make-instance 'standard-undo-tree)))
+        (make-instance 'standard-undo-tree)
+        (undo-accumulate undo-maintainer) '()))
 
 ;;; undo-mixin delegation (here because of the package)