anchor.diff:   
   ;;;
  -;;; Utilities 
  +;;; Utilities
   ;;;
   
   ;; Since, I hate to duplicate code for HBOX and VBOX, I define this
  
positive.code:   (change-space-requirements pane))
  
  (defmethod window-refresh ((pane clim-stream-pane))
    (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane)    
      (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+))
    (stream-replay pane))
  
  
negative.code:                                         max-height)
                         :max-width max-width
                         :max-height max-height)))
  
            req)
          (make-space-requirement))))
  
  