anchor.diff:      (setq viewport (first (sheet-children pane)))
       ;; make the background of the viewport match the background of the
       ;; things scrolled.
  +    ;; This doesn't appear to work, hence the "gray space" bugs. Actually
  +    ;; handy for observing when the space requirements get messed up.. -Hefner
       (when (first (sheet-children viewport))
         (setf (slot-value pane 'background)  ;### hmm ...
               (pane-background (first (sheet-children viewport)))))
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.177 2007/01/07 19:53:05 thenriksen Exp $
  
  (in-package :clim-internals)
  
  
negative.code: 	    (stream-output-history pane)
  	    ;; Should we now get rid of the output history?
              ;; Why should we? --GB 2003-03-16
              (reset-output-history pane)
  	    (let ((width (- x2 x1))
  		  (height (- y2 y1)))
                ;; I don't want this letf here --GB 2003-01-23
  