anchor.diff:    ()
     )
   
  --
  -;;; Composite-Pane class
  +(defmethod compose-space ((basic basic-pane))
  +  (ask-space-children basic)
  +  (compute-space basic))
  +
  +
  +;;; COMPOSITE PANE
   
   (defclass composite-pane (sheet-multiple-child-mixin
   			  basic-pane)
     (
      )
     )
  +
   
   (defmethod initialize-instance :after ((pane composite-pane)
   				       &rest args
  
positive.code: 			    :max-height 200)))
  
  (defmethod allocate-space ((pane pane) width height)
    (declare (ignore width height)))
  
  
  
  (defclass window-stream (extended-output-stream standard-input-stream)
  
negative.code: ;;; Boston, MA  02111-1307  USA.
  
  (in-package :CLIM-INTERNALS)
  
  ;; Generic Functions
  
  (defgeneric compose-space (pane))
  (defgeneric allocate-space (pane width height))
  (defgeneric change-space-requirements (pane &rest rest &allow-other-keys))
  (defgeneric note-space-requirements-changed (sheet pane))
  
  ;; Panes
  
  (defclass space-requirement ()
    ((width :initform 0
  