anchor.diff:     (vscrollbar :initform nil)
      (hscrollbar :initform nil)
      (suggested-width  :initform 300 :initarg :suggested-width)
  -   (suggested-height :initform 300 :initarg :suggested-height)))
  +   (suggested-height :initform 300 :initarg :suggested-height))
  +  (:default-initargs
  +   :x-spacing 4
  +   :y-spacing 4))
   
   (defmacro scrolling ((&rest options) &body contents)
     `(let ((viewport (make-pane 'viewport-pane :contents (list ,@contents))))
  
positive.code:         (make-space-requirement))))
  
  (defmethod allocate-space ((pane scroller-pane) width height)
    (with-slots (viewport vscrollbar hscrollbar) pane
      (let ((viewport-width  (if vscrollbar (- width  *scrollbar-thickness*) width))
            (viewport-height (if hscrollbar (- height *scrollbar-thickness*) height)))
        
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.163 2005/11/29 14:46:53 gbaumann Exp $
  
  (in-package :clim-internals)
  
  