anchor.diff:        (setf x (- (display-width) width)))
       (make-floating-window buffer x y width height nil)))
   
  +(defclass header-window (window)
  +  ())
  +
   (defun redraw-display (&optional force)
     (when *use-tabbar* (tabbar-draw))
     (dolist (window (window-list))
  
positive.code:   (delete-point (%window-point window))
    (screen-delete (window-screen window)))
  
  (defun window-topleft-y () (if *use-tabbar* 1 0))
  (defun window-topleft-x () 0)
  (defun window-max-width () (- (display-width) (window-topleft-x)))
  (defun window-max-height () (- (display-height) (minibuffer-window-height) (window-topleft-y)))
  
negative.code: (defvar *use-tabbar* t)
  
  (defvar *floating-windows* '())
  (defvar *header-windows* '())
  
  (defvar *window-tree*)
  
  