anchor.diff:    (with-slots (viewport hscrollbar vscrollbar) pane
       (let ((scrollee (first (sheet-children viewport))))
         (scroll-extent scrollee
  -                     (gadget-value hscrollbar)
  +                     (if hscrollbar (gadget-value hscrollbar) 0)
                        new-value))))
   
   (defmethod scroller-pane/horizontal-drag-callback ((pane scroller-pane) new-value)
  -  "Callback for the vertical scroll-bar of a scroller-pane."
  +  "Callback for the horizontal scroll-bar of a scroller-pane."
     (with-slots (viewport hscrollbar vscrollbar) pane
       (let ((scrollee (first (sheet-children viewport))))
         (scroll-extent scrollee
                        new-value
  -                     (gadget-value vscrollbar)))))
  +                     (if vscrollbar (gadget-value vscrollbar) 0)))))
   
   (defmethod scroller-pane/update-scroll-bars ((pane scroller-pane))
     (with-slots (viewport hscrollbar vscrollbar) pane
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.85 2002-06-25 02:01:41 moore Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code: 
  (defmethod allocate-space ((pane label-pane) width height)
    (multiple-value-bind (right top left bottom) (label-pane-margins pane)
      (when (sheet-children pane)
        (multiple-value-bind (x1 y1 x2 y2) (values 0 0 width height)
          (move-sheet (first (sheet-children pane))
                      (+ x1 left) (+ y1 top))
          (allocate-space (first (sheet-children pane))
  