anchor.diff:  	      (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+)
   	      (stream-replay pane (sheet-region pane))))))))))
   
  -;;; INTERACTOR PANES 
  +;;; INTERACTOR PANES
   
   (defclass interactor-pane (clim-stream-pane)
     ())
  
positive.code:                       min-foo))
                 0 foo))
              ;;
              (setf max-foo 
                (max foo
                     (cond ((and (consp user-max-foo) (eq (cadr user-max-foo) :relative))
                            (+ foo (car user-max-foo)))
  
negative.code: 	and max-height = 5000000 then (min max-height (sr-max-height child))
  	and min-width = 0 then (max min-width (sr-min-width child))
  	and min-height = 0 then (max min-height (sr-min-height child))
  	finally (return
  		 (make-space-requirement
  		  :width (* width nb-children-pl)
  		  :height (* height nb-children-pc)
  