anchor.diff:  ;;; 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 $
  +;;; $Id: panes.lisp,v 1.86 2002-06-26 02:11:29 gilbert Exp $
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code:   (with-slots (viewport hscrollbar vscrollbar) pane
      (let ((scrollee (first (sheet-children viewport))))
        (scroll-extent scrollee
                       (gadget-value hscrollbar)
                       new-value))))
  
  (defmethod scroller-pane/horizontal-drag-callback ((pane scroller-pane) new-value)
    "Callback for the vertical 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)))))
  
  (defmethod scroller-pane/update-scroll-bars ((pane scroller-pane))
    (with-slots (viewport hscrollbar vscrollbar) pane
  
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))
  