anchor.diff:  		       :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"))
  -   (fg :accessor fg :initform (pen-from-lemcolor "white"))
  -
  +   (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)
  -  ;; initial expose handler
  +  ;; 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 ;x y 
   		       :UINT32 0 :UINT32 0 ;w h
   		       :UINT32 0 :UINT32 0 ;min
   		       :UINT32 0 :UINT32 0 ;max
  
positive.code: ;;==============================================================================
  (defmethod lem::interface-print
      ((implementation (eql :xcb)) view x y string attribute)
    (dormat "interface-print ~A (~A ~A) |~A| attr:~A ~&"view x y string attribute)
     (textwin-print view x y string attribute))
  
  (defun textwin-print (view col row string attribute)
  
negative.code: ;; attributes, for instance lem::ensure-attribute.
  ;;
  (defmethod lem::interface-display-background-mode ((implementation (eql :xcb)))
    (xbug "background-mode~&")
    :dark)
  ;;==============================================================================
  ;; Display-width request from LEM
  ;;
  (defmethod lem::interface-display-width ((implementation (eql :xcb)))
    (xbug "display-width ~&")
    (nth-value 0 (cell-grid-calc *w*) ))
  (defmethod lem::interface-display-height ((implementation (eql :xcb)))
    (xbug "display-height ~&")
    (nth-value 1 (cell-grid-calc *w*) ))
  
  
  