anchor.diff:        ;; XXX: We cannot use `scroll-extent', because McCLIM ignores it
         ;; unless the scrollee happens to be drawing. Very weird, should
         ;; be fixed.
  +
  +      ;; It's not a bug, it's a feature. This requires further thought. -Hefner
         (move-sheet child
                     (round (- (if (> (+ horizontal-scroll viewport-width)
                                      child-width)
                                   (- child-width viewport-width)
                                   horizontal-scroll)))
                     (round (- (if (> (+ vertical-scroll viewport-height)
  -                                   child-width)
  +                                   child-height)
                                   (- child-height viewport-height)
                                   vertical-scroll))))
  -      (scroller-pane/update-scroll-bars (sheet-parent pane)))))
  +      (scroller-pane/update-scroll-bars (sheet-parent pane))
  +      #+NIL
  +      (scroll-extent child
  +                     (if (> (+ horizontal-scroll viewport-width)
  +                            child-width)
  +                         (max 0 (- child-width viewport-width))
  +                         horizontal-scroll)
  +                     (if (> (+ vertical-scroll viewport-height)
  +                            child-height)
  +                         (max 0 (- child-height viewport-height))
  +                         vertical-scroll)))))
   
   ;;;;
   ;;;; SCROLLER PANE
  
positive.code:     (setq viewport (first (sheet-children pane)))
      ;; make the background of the viewport match the background of the
      ;; things scrolled.
      (when (first (sheet-children viewport))
        (setf (slot-value pane 'background)  ;### hmm ...
              (pane-background (first (sheet-children viewport)))))
  
negative.code: 	    (stream-output-history pane)
  	    ;; Should we now get rid of the output history?
              ;; Why should we? --GB 2003-03-16
              (reset-output-history pane)
  	    (let ((width (- x2 x1))
  		  (height (- y2 y1)))
                ;; I don't want this letf here --GB 2003-01-23
  