anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.164 2005-11-30 10:30:50 gbaumann Exp $
  +;;; $Id: panes.lisp,v 1.165 2005-12-01 12:06:40 gbaumann Exp $
   
   (in-package :clim-internals)
   
  
positive.code: (defclass viewport-pane (single-child-composite-pane) ())
  
  (defmethod compose-space ((pane viewport-pane) &key width height)
    ; I _think_ this is right, it certainly shouldn't be the requirements of the child.
    (make-space-requirement))
  
  
negative.code:   (typep pane 'spacing-pane))
  
  (defmethod initialize-instance :after ((spacing spacing-pane) &key thickness contents &allow-other-keys)
    (declare (ignorable thickness contents))
    (with-slots (user-width user-min-width user-max-width
                 user-height user-min-height user-max-height)
        spacing
  