anchor.diff:  
   (defmethod allocate-space ((pane scroller-pane) width height)
     (with-slots (viewport vscrollbar hscrollbar) pane
  -    (when viewport
  -      (setf (sheet-transformation viewport)
  -	(make-translation-transformation (if vscrollbar *scrollbar-thickness* 0) 0))
  -      (allocate-space viewport
  -		      (if vscrollbar (- width *scrollbar-thickness*) width)
  -		      (if hscrollbar (- height *scrollbar-thickness*) height)))
  -    (when vscrollbar
  -      (setf (sheet-transformation vscrollbar)
  -	(make-translation-transformation 0 0))
  -      (allocate-space vscrollbar
  -		      *scrollbar-thickness*
  -		      (if hscrollbar (- height *scrollbar-thickness*) height)))
  -    (when hscrollbar
  -      (move-sheet hscrollbar
  -                  (if vscrollbar
  -                      *scrollbar-thickness*
  -                    0)
  -                  (- height *scrollbar-thickness*))
  -      (allocate-space hscrollbar
  -		      (if vscrollbar (- width *scrollbar-thickness*) width)
  -		      *scrollbar-thickness*))
  -    ;;
  -    (scroller-pane/update-scroll-bars pane)
  -    ))
  +    (let ((viewport-width  (if vscrollbar (- width *scrollbar-thickness*) width))
  +          (viewport-height (if hscrollbar (- height *scrollbar-thickness*) height)))
  +      
  +      (when vscrollbar
  +        (setf (sheet-transformation vscrollbar)
  +              (make-translation-transformation 0 0))
  +        (allocate-space vscrollbar
  +                        *scrollbar-thickness*
  +                        (if hscrollbar (- height *scrollbar-thickness*) height)))
  +      (when hscrollbar
  +        (move-sheet hscrollbar
  +                    (if vscrollbar
  +                        *scrollbar-thickness*
  +                        0)
  +                    (- height *scrollbar-thickness*))
  +        (allocate-space hscrollbar
  +                        (if vscrollbar (- width *scrollbar-thickness*) width)
  +                        *scrollbar-thickness*))
  +      ;;
  +      ;; Recalculate the gadget-values of the scrollbars
  +      ;;
  +      (when vscrollbar
  +        (let* ((scrollee (first (sheet-children viewport)))
  +               (min 0)
  +               (max (- (max (space-requirement-height (compose-space scrollee))
  +                            viewport-height)
  +                       viewport-height))
  +               (ts  viewport-height)
  +               (val (if (zerop (gadget-max-value vscrollbar))
  +                        0
  +                        (* (/ (gadget-value vscrollbar) (gadget-max-value vscrollbar))
  +                           max))))
  +          (setf (gadget-min-value vscrollbar) min
  +                (gadget-max-value vscrollbar) max
  +                (scroll-bar-thumb-size vscrollbar) ts
  +                (gadget-value vscrollbar :invoke-callback nil) val)))
  +      
  +      (when hscrollbar
  +        (let* ((scrollee (first (sheet-children viewport)))
  +               (min 0)
  +               (max (- (max (space-requirement-width (compose-space scrollee))
  +                            viewport-width)
  +                       viewport-width))
  +               (ts  viewport-width)
  +               (val (if (zerop (gadget-max-value hscrollbar))
  +                        0
  +                        (* (/ (gadget-value hscrollbar) (gadget-max-value hscrollbar))
  +                           max))))
  +          (setf (gadget-min-value hscrollbar) min
  +                (gadget-max-value hscrollbar) max
  +                (scroll-bar-thumb-size hscrollbar) ts
  +                (gadget-value hscrollbar :invoke-callback nil) val)))
  +
  +      (when viewport
  +        (setf (sheet-transformation viewport)
  +              (make-translation-transformation (if vscrollbar *scrollbar-thickness* 0) 0))
  +        (allocate-space viewport
  +                        viewport-width
  +                        viewport-height)) )))
   
   ;;;; Initialization
   
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.86 2002/06/26 02:11:29 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:                                                   (- (bounding-rectangle-max-y (sheet-region scrollee))
                                                       (bounding-rectangle-height (sheet-region viewport)))
                                                    (bounding-rectangle-min-y (sheet-region scrollee)))
                (scroll-bar-thumb-size vscrollbar) (bounding-rectangle-height (sheet-region viewport))
                (gadget-value vscrollbar :invoke-callback nil)
                (- (nth-value 1 (transform-position (sheet-transformation scrollee) 0 0)))
                )))))
  
  (defmethod initialize-instance :after ((pane scroller-pane) &key contents &allow-other-keys)
    (sheet-adopt-child pane (first contents))
  