anchor.diff:      window))
   
   (defmethod %delete-window ((window floating-window))
  +  (when (eq window (current-window))
  +    (editor-error "Can not delete this window"))
     (setf *floating-windows*
           (delete window *floating-windows*)))
   
  
positive.code:             ((< max height)
               (setf height max))))
      (let ((new-window
             (make-window (window-buffer window)
                          (window-x window)
                          (+ (window-y window) height)
                          (window-width window)
                          (- (window-height window) height)
                          t)))
        (setf (window-%height window) height)
        (split-window-after window new-window :vsplit)
        (lem-if:split-window-vertically (implementation)
  
negative.code:             ((< max width)
               (setf width max))))
      (let ((new-window
              (make-window (window-buffer window)
                           (+ *window-left-margin* (window-x window) width)
                           (window-y window)
                           (- (window-width window) width *window-left-margin*)
                           (window-height window)
                           t)))
        (setf (window-%width window) width)
        (split-window-after window new-window :hsplit)
        (lem-if:split-window-horizontally (implementation)
  