[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Slight change of how full-redisplay works and fix of docstring (oops).


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2006/11/08 17:52:55	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2006/11/09 00:52:01	1.3
@@ -420,8 +420,7 @@
     (if (full-redisplay-p drei-pane)
         (progn (reposition-pane drei-pane)
                (adjust-pane-bot drei-pane)
-               (setf (full-redisplay-p drei-pane) nil)
-               (window-clear drei-pane))
+               (setf (full-redisplay-p drei-pane) nil))
         (adjust-pane drei-pane))
     (update-syntax-for-display buffer (syntax buffer) top bot)
     (display-drei-contents drei-pane drei-pane (syntax buffer))
@@ -432,8 +431,7 @@
     (fix-pane-viewport drei-pane)))
 
 (defgeneric full-redisplay (pane)
-  (:documentation "Return T if `pane' is queued to do a full
-redisplay, NIL otherwise."))
+  (:documentation "Queue a full redisplay for `pane'."))
 
 (defmethod full-redisplay ((pane drei-pane))
   (setf (full-redisplay-p pane) t))