anchor.diff:  ;;; Boston, MA  02111-1307  USA.
   
   (in-package :CLIM-INTERNALS)
  +
  +;;; for gray streams
  +#+cmu(progn (shadow 'collect) (use-package :ext))
   
   ;;; Note: in the methods defined on output streams, I often use
   ;;;	  the sheet's medium as the argument to the draw-* routines.
  
positive.code: 	  (medium (sheet-medium stream))
  	  (port (port stream))
  	  (text-style (medium-text-style medium))
  	  (new-baseline (text-style-ascent port text-style))
  	  (new-height (text-style-height port text-style))
  	  (margin (stream-text-margin stream))
  	  (view-height (port-mirror-height port stream)))
       (if visible
  
negative.code: (defmethod stream-line-height ((stream extended-output-stream) &key (text-style nil))
    (line-height (port stream) (or text-style (medium-text-style (sheet-medium stream)))))
  
  (defmethod stream-line-column ((stream extended-output-stream))
    (multiple-value-bind (x y) (stream-cursor-position stream)
      (declare (ignore y))
      (floor x (stream-string-width stream " "))))
  
  (defmethod stream-start-line-p ((stream extended-output-stream))
    (multiple-value-bind (x y) (stream-cursor-position stream)
      (zerop x)))
  
  (defmacro with-room-for-graphics ((&optional (stream t)
  				   &key (move-cursor t) height record-type)
  				  &body body)
  