anchor.diff:    (delete-point (%window-point window))
     (screen-delete (window-screen window)))
   
  -(defun window-topleft-y () (length (header-windows)))
  +(defun window-topleft-y () (length (frame-header-windows (get-impl-frame))))
   (defun window-topleft-x () 0)
   (defun window-max-width () (- (display-width) (window-topleft-x)))
   (defun window-max-height ()
  
positive.code:          nil)
          ((window-tree-find (window-tree) window)
           nil)
          ((find window (floating-windows))
           nil)
          (t t)))
  
  
negative.code:           (t
             (window-redraw (minibuffer-window) force)
             (window-redraw (current-window) force)))
      (dolist (window (frame-header-windows (get-impl-frame)))
        (window-redraw window (redraw-after-modifying-floating-window (implementation))))
      (dolist (window (frame-floating-windows (get-impl-frame)))
        (window-redraw window (redraw-after-modifying-floating-window (implementation))))
      (update-display)))
  
  (defun change-display-size-hook ()
    (dolist (window (frame-header-windows (get-impl-frame)))
      (window-set-size window (display-width) 1))
    (adjust-windows (window-topleft-x)
                    (window-topleft-y)
  