anchor.diff:  
   ;;; SCROLLER-PANE
   
  -(defparameter *scrollbar-thickness* 12)
  +(defparameter *scrollbar-thickness* 16)
   
   (defclass scroller-pane (composite-pane)
     ((scroll-bar :type (member '(t :vertical :horizontal))
  
positive.code: 	  and y = 0 then (+ y nh)
  	  and nw = (/ (* width (get-pane-width child)) (get-pane-width box))
  	  do (move-sheet child 0 y)
  	     (setf nw (do-in nw (sr-min-width child) (sr-max-width child)))
  	     (allocate-space child (round nw) nh)))
    
  ;;; HRACK-PANE
  
negative.code: (defun make-pane (type &rest args)
    (apply #'make-pane-1 *pane-realizer* *application-frame* type args))
  
  #||
  ;; dummy but useful
  (defmacro do-in (size min max)
    `(max ,min (min ,max ,size)))
  ;; moved as clamp into utils.lisp
  ||#
  
  (defun get-pane-width (pane)
    ;; Give the region size if already set, otherwise, give the space-requirement
  