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: 	 :type 'application-pane 
  	 options))
  
  
negative.code:   (pane-space-requirement pane))
  
  (defmethod window-clear ((pane clim-stream-pane))
  ;  (setf (pane-output-history pane) (make-instance 'standard-tree-output-history))
    (dispatch-repaint pane (sheet-region pane)))
      ;(let ((cursor (stream-text-cursor pane))) 
     ; (when cursor
      ;  (setf (cursor-position cursor) 0 0))))
  
  