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:     (when (< (incf y) vh)
        ;;(format *q* "Height ~A; y ~A~&" vh y)
        (mvbind (xx yy ww hh) (view-cell-rect view 0 y vw (- vh y))
  	(pic-rect (pic-scr *w*) (pen-abgr64 (bg *w*)) xx yy ww hh))))
    )
  
  ;;==============================================================================
  (defmethod lem::interface-move-cursor ((implementation (eql :xcb)) view x y)
    (dormat "move-cursor ~A ~A ~A ~&" view x y)
  
    (with-slots (cx cy) view
      (setf cx x
  	  cy y)))
  ;;==============================================================================
  ;; technically this is where we should display.
  (defmethod lem::interface-update-display ((implementation (eql :xcb)))
    (dormat "interface-redraw-display: ~&")
    )
  ;;==============================================================================
  (defmethod lem::interface-redraw-view-after
      ((implementation (eql :xcb)) view focus-window-p)
    (dormat "interface-redraw after: view ~A : ~A~&" view focus-window-p)
    )
  
  ;;==============================================================================
  (defmethod lem::interface-scroll ((implementation (eql :xcb)) view n)
    (dormat "interface-scroll ~A ~A~&" view n)
    )
    
  (defun main ()
    )
  
  
  ;;==============================================================================
  
negative.code: ;; Set default colors from LEM
  (defmethod lem::interface-update-foreground
      ((implementation (eql :xcb)) color-name)
    (xbug "update-foreground ~A~&" color-name)
    (setf (fg *w*) (pen-create color-name)))
  ;;==============================================================================
  (defmethod lem::interface-update-background
      ((implementation (eql :xcb)) color-name)
    (xbug "update-background ~A~&" color-name)
    (setf (bg *w*) (pen-create color-name)))
  
  ;;==============================================================================
  