anchor.diff:  ;;==============================================================================
   (defmethod lem::interface-set-view-size
       ((implementation (eql :xcb)) view width height)
  -  (dormat "set-view-size ~A ~A ~A ~&" view width height)
  +  (xbug "set-view-size ~A ~A ~A ~&" view width height)
     (with-slots (vw vh modeline) view
       (setf vw width
   	  vh height)
  
positive.code: 		       :UINT32 0 ;grav
  		       ) 
      (check (xcb::set-wm-normal-hints c (id win) hints)))
    (win-set-name win "XLEM")
    ;;  (mvbind (cw ch) (cell-grid-calc win)
    
  ;;  (format *q* "INIT~&")
    )
  
  
  ;;==========================================================================
  ;; window generics are vectored
  ;;
  (defmethod win-on-expose ((win textwin) event)
    ;;  (format *q* "ON-EX; editor thread ~A~&" *editor-thread*)
  
negative.code: 		       :super   (logbitp 3 mod) ;;win
  		       ))))
    t)
  ;;=============================================================================
  ;; The main window
  ;;
  (defclass textwin (win geometry)
    ((lem-state :accessor lem-state :initform nil)
     (bg :accessor bg :initform (pen-from-lemcolor "black"));; TODO: theme
     (fg :accessor fg :initform (pen-from-lemcolor "white")))
  )
  ;;-----------------------------------------------------------------------------
  ;;
  (defmethod initialize-instance :after ((win textwin) &key)
    ;; install initial expose handler
    (setf (%on-expose win) #'lem-start-%on-expose)
    (w-foreign-values (hints
  		       :UINT32 size-hint-p-resize-inc
  		       :UINT32 0 :UINT32 0 ;x y 
  		       :UINT32 0 :UINT32 0 ;w h
  		       :UINT32 0 :UINT32 0 ;min
  		       :UINT32 0 :UINT32 0 ;max
  