anchor.diff:  
   
   
  +
  
positive.code: 
  (defclass text-field-pane (text-field clim-stream-pane) ())
  
  (defclass clx-text-field-pane (text-field-pane) ())
  
  
  
negative.code: 	    (draw-line* pane x1 y1 x2 y1 :ink +black+)
  	    (draw-line* pane x1 y1 x1 y2 :ink +black+)
  	    (draw-line* pane x1 y2 x2 y2 :ink +white+)
  	    (draw-line* pane x2 y1 x2 y2 :ink +white+))
  	  (progn
  	    (draw-line* pane x1 y1 x2 y1 :ink +white+)
  	    (draw-line* pane x1 y1 x1 y2 :ink +white+)
  