anchor.diff:  
   (in-package :CLIM-INTERNALS)
   
  -;; Generic Functions
  +;;; GENERIC FUNCTIONS
   
   (defgeneric compose-space (pane))
   (defgeneric allocate-space (pane width height))
  -(defgeneric change-space-requirements (pane &rest res))
  +(defgeneric change-space-requirements (pane &rest rest))
   (defgeneric note-space-requirements-changed (sheet pane))
   
  -;; Panes
  +;;; PANES
   
   (defconstant +fill+ :fill)
   
   (defclass space-requirement ()
  -  ((width :initform 0
  +  ((width :initform 1
   	  :initarg :width
   	  :accessor space-requirement-width)
  -   (max-width :initform 0
  +   (max-width :initform 1
   	      :initarg :max-width
   	      :accessor space-requirement-max-width)
  -   (min-width :initform 0
  +   (min-width :initform 1
   	      :initarg :min-width
   	      :accessor space-requirement-min-width)
  -   (height :initform 0
  +   (height :initform 1
   	   :initarg :height
   	   :accessor space-requirement-height)
  -   (max-height :initform 0
  +   (max-height :initform 1
   	       :initarg :max-height
   	       :accessor space-requirement-max-height)
  -   (min-height :initform 0
  +   (min-height :initform 1
   	       :initarg :min-height
   	       :accessor space-requirement-min-height)
      )
  
positive.code: 				       &key contents
  				       &allow-other-keys)
    (declare (ignore args))
    (if contents
        (sheet-adopt-child pane (first contents))))
  
  (defmethod compose-space ((pane single-child-composite-pane))
    (if (sheet-children pane)
        (compute-and-set-space (first (sheet-children pane)))
      (make-space-requirement)))
  
  (defmethod allocate-space ((pane single-child-composite-pane) width height)
    (set-width-and-height pane width height)
    (let ((child (first (sheet-children pane))))
      (when child
        (setf (sheet-transformation child)
  	(make-translation-transformation 0 0))
        (allocate-space child width height))))
  
  ;; TOP-LEVEL-SHEET
  
  (defclass top-level-sheet-pane (composite-pane)
    ()
    (:documentation "For the first pane in the architecture"))
  
  (defmethod compose-space ((pane top-level-sheet-pane))
    (compute-and-set-space (first (sheet-children pane))))
  
  (defmethod allocate-space ((pane top-level-sheet-pane) width height)
    (allocate-space (first (sheet-children pane)) width height))
  
  (defmethod dispatch-event ((pane top-level-sheet-pane) event)
    (handle-event pane event))
  
  (defmethod handle-event ((pane top-level-sheet-pane) (event window-configuration-event))
    (let ((x (window-configuration-event-x event))
  	(y (window-configuration-event-y event))
  	(width (window-configuration-event-width event))
  
negative.code:     (setf (cursor-visibility cursor) t)))
  
  
  ;;; APPLICATION PANES
  
  (defclass application-pane (clim-stream-pane)
    ())
  