anchor.diff:  (defmethod compose-space ((pane scroller-pane) &key width height)
     (declare (ignore width height))
     (with-slots (viewport vscrollbar hscrollbar suggested-width suggested-height
  -               x-spacing y-spacing scroll-bar)
  +                        x-spacing y-spacing scroll-bar)
         pane
       (if viewport
           (let ((req
  -               ; v-- where does this requirement come from?
  -               ;     a: just an arbitrary default
  -		(make-space-requirement
  +               ;; v-- where does this requirement come from?
  +               ;;     a: just an arbitrary default
  +               (make-space-requirement
                   :width suggested-width :height suggested-height :max-width +fill+ :max-height +fill+
                   :min-width  (max (* 2 x-spacing) (if (null scroll-bar) 0 30))
  -                :min-height (max (* 2 y-spacing) (if (null scroll-bar) 0 30)))
  -		#+nil
  -		(make-space-requirement :height +fill+ :width +fill+)))
  +                :min-height (max (* 2 y-spacing) (if (null scroll-bar) 0 30))))
  +              (viewport-child (first (sheet-children viewport))))
             (when vscrollbar
               (setq req (space-requirement+*
  -                        (space-requirement-combine #'max
  -                              req
  -                              (compose-space vscrollbar))
  -                        :height     *scrollbar-thickness*
  -                        :min-height *scrollbar-thickness*
  -                        :max-height *scrollbar-thickness*)))
  +                       (space-requirement-combine #'max
  +                                                  req
  +                                                  (compose-space vscrollbar))
  +                       :height     *scrollbar-thickness*
  +                       :min-height *scrollbar-thickness*
  +                       :max-height *scrollbar-thickness*)))
             (when hscrollbar
               (setq req (space-requirement+*
  -                        (space-requirement-combine #'max
  -                              req
  -                              (compose-space hscrollbar))
  -                        :width     *scrollbar-thickness*
  -                        :min-width *scrollbar-thickness*
  -                        :max-width *scrollbar-thickness*)))
  +                       (space-requirement-combine
  +                        #'max req (compose-space hscrollbar))
  +                       :width     *scrollbar-thickness*
  +                       :min-width *scrollbar-thickness*
  +                       :max-width *scrollbar-thickness*)))
  +          (let* ((viewport-sr (compose-space viewport
  +                               :width suggested-width
  +                               :height suggested-height))
  +                 (max-width (+ (space-requirement-max-width viewport-sr)
  +                               (if vscrollbar *scrollbar-thickness* 0)
  +                               ;; I don't know why this is necessary.
  +                               (if (extended-output-stream-p viewport-child)
  +                                   (* 4 (stream-vertical-spacing viewport-child))
  +                                   0)))
  +                 (max-height (+ (space-requirement-max-height viewport-sr)
  +                                (if hscrollbar *scrollbar-thickness* 0)
  +                                ;; I don't know why this is necessary.
  +                                (if (extended-output-stream-p viewport-child)
  +                                    (* 4 (stream-vertical-spacing viewport-child))
  +                                    0))))
  +            (setq req (make-space-requirement
  +                       :width (min (space-requirement-width req)
  +                                   max-width)
  +                       :height (min (space-requirement-height req)
  +                                    max-height)
  +                       :min-width (min (space-requirement-min-width req)
  +                                       max-width)
  +                       :min-height (min (space-requirement-min-height req)
  +                                        max-height)
  +                       :max-width max-width
  +                       :max-height max-height)))
  +          
             req)
           (make-space-requirement))))
   
  
positive.code:            sum (space-requirement-max-major sr) into max-major
             maximize (space-requirement-minor sr) into minor
             maximize (space-requirement-min-minor sr) into min-minor
             maximize (space-requirement-max-minor sr) into max-minor
             finally
               (return
                 (space-requirement+*
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.184 2007-08-21 21:45:49 thenriksen Exp $
  
  (in-package :clim-internals)
  
  