anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.75 2002-04-27 09:02:59 brian Exp $
  +;;; $Id: panes.lisp,v 1.76 2002-04-28 07:56:19 gilbert Exp $
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code:         (height (window-configuration-event-height event)))
      (with-bounding-rectangle* (old-x1 old-y1 old-x2 old-y2) (sheet-region pane)
        (let ((old-width  (- old-x2 old-x1))
              (old-height (- old-y2 old-y2)))
          ;; avoid going into an infinite loop by not using (setf sheet-transformation)
          (setf (slot-value pane 'transformation)
  	      (make-translation-transformation x y))
  
negative.code:               (scroll-bar-thumb-size vscrollbar) (bounding-rectangle-height (sheet-region viewport)))))))
  
  (defmethod initialize-instance :after ((pane scroller-pane) &key contents &allow-other-keys)
    (sheet-adopt-child pane (first contents))
    (with-slots (scroll-bar viewport vscrollbar hscrollbar) pane
      (setq viewport (first (sheet-children pane)))
  