anchor.diff:  (defmethod* (setf window-viewport-position) (x y (pane clim-stream-pane))
     (scroll-extent pane x y))
   
  -#+NIL
   (defun scroll-area (pane dx dy)
     (let ((transform (sheet-transformation pane)))
       ;; Region has been "scrolled" already.
       (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane)
  -      (multiple-value-bind (destx desty)
  -	  (transform-position transform x1 y1)
  -	(multiple-value-bind (srcx srcy)
  -	    (transform-position transform (- x1 dx) (- y1 dy))
  -	  (format *debug-io* "dx ~S dy ~S srcx ~S srcy ~S destx ~S desty ~S~%"
  -		  dx dy srcx srcy destx desty)
  +      (multiple-value-bind (srcx srcy)
  +	  (untransform-position transform 0 0)
  +	(multiple-value-bind (destx desty)
  +	    (untransform-position transform dx dy)
   	  (copy-area pane  srcx srcy (- x2 x1) (- y2 y1) destx desty))))))
   
  -#+NIL
   (defmethod scroll-extent ((pane clim-stream-pane) x y)
     (when (is-in-scroller-pane pane)
       (let ((new-x (max x 0))
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.79 2002-05-05 03:41:03 adejneka Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:     (sheet-parent (sheet-parent pane))))
  
  (defun update-scroll-bars (pane entire-region x y)
    #+ignore(multiple-value-bind (min-x min-y max-x max-y) (bounding-rectangle* entire-region)
      (with-slots (vscrollbar hscrollbar viewport) (pane-scroller pane)
        (when vscrollbar
  	(with-slots (value) vscrollbar
  