anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.81 2002-05-20 20:18:03 mikemac Exp $
  +;;; $Id: panes.lisp,v 1.82 2002-06-02 00:25:31 mikemac Exp $
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code:                                    10))) ; picked an arbitrary number - BTS
                           old-y)))))
  
  (defun is-in-scroller-pane (pane)
    (let ((parent (sheet-parent pane)))
      (and (typep parent 'viewport-pane)
           (typep (sheet-parent parent) 'scroller-pane))))
  
  (defmethod pane-viewport ((pane basic-pane))
    (when (is-in-scroller-pane pane)
      (sheet-parent pane)))
  
  (defmethod pane-viewport-region ((pane basic-pane))
    (when (is-in-scroller-pane pane)
      (sheet-region pane)))
  
  (defmethod pane-scroller ((pane basic-pane))
    (when (is-in-scroller-pane pane)
      (sheet-parent (sheet-parent pane))))
  
  (defun update-scroll-bars (pane entire-region x y)
    (declare (ignore 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
  
negative.code: 	    (untransform-position transform dx dy)
  	  (copy-area pane  srcx srcy (- x2 x1) (- y2 y1) destx desty))))))
  
  (defmethod stream-set-input-focus ((stream clim-stream-pane))
    (with-slots (port) stream
      (prog1
  