anchor.diff:  (defclass viewport-pane (single-child-composite-pane) ())
   
   (defmethod allocate-space ((pane viewport-pane) width height)
  -  (layout-child (first (sheet-children pane)) 
  -                :left :top
  -                0 0 width height))
  +  (with-slots (hscrollbar vscrollbar) (sheet-parent pane)
  +    (move-and-resize-sheet (first (sheet-children pane))
  +                           (if hscrollbar (- (gadget-value hscrollbar)) 0)
  +                           (if vscrollbar (- (gadget-value vscrollbar)) 0)
  +                           (max (space-requirement-width (compose-space (first (sheet-children pane))))
  +                                width)
  +                           (max (space-requirement-height (compose-space (first (sheet-children pane))))
  +                                height)) ))
   
   ;;;;
   ;;;; SCROLLER-PANE
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.86 2002/06/26 02:11:29 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code: (defmethod text-style-width (ts (sheet sheet))
    (text-style-width ts (sheet-medium sheet)))
  
  