anchor.diff:        (when viewport
           (setf (sheet-transformation viewport)
                 (make-translation-transformation
  -                   (+ x-spacing (if vscrollbar *scrollbar-thickness* 0))
  +                   (+ x-spacing 0)
                      (+ y-spacing 0)))
           (allocate-space viewport
                           (- viewport-width (* 2 x-spacing))
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.175 2006/12/19 04:02:14 ahefner Exp $
  
  (in-package :clim-internals)
  
  
negative.code:       
        (when vscrollbar
          (setf (sheet-transformation vscrollbar)
                (make-translation-transformation (- width *scrollbar-thickness*) 0))
          (allocate-space vscrollbar
                          *scrollbar-thickness*
                          (if hscrollbar (- height *scrollbar-thickness*) height)))
        (when hscrollbar
          (move-sheet hscrollbar
  		    0
                      (- height *scrollbar-thickness*))
          (allocate-space hscrollbar
                          (if vscrollbar (- width *scrollbar-thickness*) width)
  