anchor.diff:                              (+ x1 (bounding-rectangle-width (pane-viewport-region pane))))
                              (t 0)))
                   (max y2 (+ y1 height)))))))
  +
  +(defmethod bounding-rectangle ((drei drei-area))
  +  (with-bounding-rectangle* (x1 y1 x2 y2) drei
  +    (make-rectangle* x1 y1 x2 y2)))
   
   ;; XXX: Full redraw for every replay, should probably use the `region'
   ;; parameter to only invalidate some strokes.
  
positive.code:            (descent (text-style-descent style pane))
             (height (+ ascent descent)))
        (multiple-value-bind (x1 y1 x2 y2)
            (call-next-method)
          (values x1 y1
                  (max x2 (+ x1 style-width)
                       (cond ((numberp min-width)
  
negative.code:       (if (adjust-pane drei-pane)
            (display-drei-pane frame drei-pane)
            ;; Point must be on top of all other cursors.
            (dolist (cursor (cursors drei-pane)
                     (fix-pane-viewport drei-pane (view drei-pane)))
              (replay cursor drei-pane))))))
  
  (defgeneric full-redisplay (pane)
    (:documentation "Queue a full redisplay for `pane'."))
  