anchor.diff:    (format *q* "destyr~&"))
   ||#
   ;;=============================================================================
  -;; A window in the X sense
  +;; A view is an area of a window:
  +;;
   (defclass textview ()
     ((win :accessor win :initform *w* :initarg :win)
  -   ;; bounds, in pixels
  +   ;; bounds, in cells
      (vx :accessor vx :initarg :vx)
      (vy :accessor vy :initarg :vy)
      (vw :accessor vw :initarg :vw)
  
positive.code: 
  (defmethod win-on-resize :after ((win textwin) w h)
  ;;    (format *q* "ON-RESIZE;  ~A ~A~&" w h)
      (funcall (%on-resize win) win w h))
  
  (defmethod win-on-key-press ((win textwin) key state)
    (funcall (%on-key-press win) win key state))
  
negative.code: 		  c OP-OVER (pen-pic penfg)
  		  (pic-scr *w*) +ARGB32+ (glyphset font)
  		  0 0 xbuflen xbuf))))
        )))
  ;;==============================================================================
  (defmethod lem::interface-print-modeline
      ((implementation (eql :xcb)) view x y string attribute)
    (xbug "interface-print-modeline: view ~A x: ~A y ~A |~A| ~A~&"
  	view x y string attribute)
    (with-slots (modeline) view
      (if modeline
  	(textwin-print view x (+ (modeline view) y) string attribute)
  	(xbug "No modeline to print~&"))))
  
  ;;==============================================================================
  (defmethod lem::interface-clear-eol ((implementation (eql :xcb)) view x y)
    (xbug "interface-clear-eol view ~A x: ~A y ~A~&" view x y )
    (with-slots (vx vy vw vh) view 
      (mvbind (xx yy ww hh) (view-cell-rect view x y (- vw x) 1)
        ;; (format *q* "actual rect :~A ~A ~A ~A~&" xx yy ww hh)
        (pic-rect (pic-scr *w*) (pen-abgr64 (bg *w*)) xx yy ww hh)))
    )
  ;;==============================================================================
  (defmethod lem::interface-clear-eob ((implementation (eql :xcb)) view x y)
    (xbug "interface-clear-eol view ~A x: ~A y ~A~&" view x y )
    (with-slots (vx vy vw vh) view
      (if (< y vh)
  	(mvbind (xx yy ww hh) (view-cell-rect view x y (- vw x) 1)
  