anchor.diff:  (defclass viewport-pane (single-child-composite-pane) ())
   
   (defmethod compose-space ((pane viewport-pane) &key width height)
  +  (declare (ignorable width height))
     ; I _think_ this is right, it certainly shouldn't be the requirements of the child.
     (make-space-requirement))
   
  
positive.code: 	(call-next-method))))
  
  (defmethod compose-space ((pane clim-stream-pane) &key width height)
    (let ((w (bounding-rectangle-width (stream-output-history pane)))
          (h (bounding-rectangle-height (stream-output-history pane))))
      (make-space-requirement :width  w :min-width  w :max-width +fill+
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.165 2005-12-01 12:06:40 gbaumann Exp $
  
  (in-package :clim-internals)
  
  