anchor.diff:    (dispatch-repaint pane (sheet-region pane)))
   
   (defmethod window-viewport-position ((pane clim-stream-pane))
  -  (multiple-value-bind (x1 y1 x2 y2)
  -      (rectangle-edges* (sheet-region pane))
  -    (declare (ignore x2 y2))
  +  (multiple-value-bind (x1 y1)
  +      (bounding-rectangle* (sheet-region pane))
       (values x1 y1)))
   
   (defmethod (setf window-viewport-position) (x y (pane clim-stream-pane))
  
positive.code: 			      ,spaces))))
  
  (defun format-children (children number-per-line)
    (let ((formated))
      (do ((i 0 (+ i number-per-line)))
  	((= i (length children)))
  	(setf formated (append formated
  			       (list (subseq children i (+ i number-per-line))))))
      formated))
  
  (defmethod compute-space ((table table-pane))
    (let* ((space (make-space-requirement))
  
negative.code: 	 :type 'application-pane 
  	 options))
  
  
  