anchor.diff:  	    (stream-output-history pane)
   	    ;; Should we now get rid of the output history?
               ;; Why should we? --GB 2003-03-16
  -	    (reset-output-history pane)
  +            (reset-output-history pane)
   	    (let ((width (- x2 x1))
   		  (height (- y2 y1)))
                 ;; I don't want this letf here --GB 2003-01-23
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.177 2007-01-07 19:53:05 thenriksen Exp $
  
  (in-package :clim-internals)
  
  
negative.code:       ;; 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-height)
                                  (- child-height viewport-height)
                                  vertical-scroll))))
        (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
  