anchor.diff:  	 :type 'application-pane 
   	 options))
   
  +
  
positive.code:   (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))
      (values x1 y1)))
  
  (defmethod (setf window-viewport-position) (x y (pane clim-stream-pane))
  
negative.code: 			      ,spaces))))
  
  (defun format-children (children number-per-line)
    (let (formated aux)
      (loop for child in children
  	  for i from 1
  	  do (push child aux)
  	  (when (= (mod i number-per-line) 0)
  	    (push (nreverse aux) formated)
  	    (setf aux nil)))
      (nreverse formated)))
  
  (defmethod compute-space ((table table-pane))
    (let* ((space (make-space-requirement))
  