anchor.diff:  ;;   call change-space-requirements on parent pane
   ;;   call note-space-requirements-changed
   ;;
  -;; This is splitted into :before, primary and :after method to allow
  -;; for easy overriding of change-space-requirements without needing to
  +;; This is split into :before, primary and :after method to allow for
  +;; easy overriding of change-space-requirements without needing to
   ;; know the details of the space requirement cache and the
   ;; note-space-requirements-changed notifications.
   ;;
  
positive.code: ;;;; Accounting for changed space requirements
  
  (defmethod change-space-requirements ((pane clim-extensions:viewport-pane) &rest ignore)
    (declare (ignore ignore))  
    (let ((client (first (sheet-children pane))))
      (resize-sheet client (max (bounding-rectangle-width pane)
                                (space-requirement-width (compose-space client)))
                    (max (bounding-rectangle-height pane)
                         (space-requirement-height (compose-space client))))
      (allocate-space client
                      (max (bounding-rectangle-width pane)
                           (space-requirement-width (compose-space client)))
                      (max (bounding-rectangle-height pane)
                           (space-requirement-height (compose-space client))))
      (scroller-pane/update-scroll-bars (sheet-parent pane))))
  
  ;;;; 
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.179 2007-02-05 03:02:59 ahefner Exp $
  
  (in-package :clim-internals)
  
  