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))