anchor.diff:  (defmethod text-style-width (ts (sheet sheet))
     (text-style-width ts (sheet-medium sheet)))
   
  -
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.86 2002-06-26 02:11:29 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:    "This class implements a pane that supports the CLIM graphics,
      extended input and output, and output recording protocols."))
  
  (defmethod window-clear ((pane clim-stream-pane))
    (let ((output-history (pane-output-history pane)))
      (with-bounding-rectangle* (left top right bottom) output-history
  