anchor.diff:      (setf *fbar-window*
   	  (lem::make-floating-window
   	   *fbar-buffer*
  -	   0 0 20 (- (window-height (current-window)) 2) nil))
  +	   0 0 *fbar-width*
  +	   (1- (interface-display-height *implementation*))  nil))
       
       (setf lem::*current-window* *fbar-window*)
       (setf (current-buffer) *fbar-buffer*)
  
positive.code: ;;==============================================================================
  
  (defun fbar-insert-entry (pt path dirp tab)
    (flet ((dname ()  (format nil "+ ~A" (car (last (pathname-directory path)))))
  	 (fname ()  (format nil "~A.~A" (pathname-name path)
  			    (or (pathname-type path) ""))))
      
      (let ((name (if dirp (dname) (fname))))
  ;;      (format xcb::*q* "...~A ~A~&" pt path)
        (insert-string pt
  		     (format nil "~v,,,v<~>~A~&" tab #\space name)
  		     :attribute  (if dirp 'fbar-dir  'fbar-file)
  		     'type (make-fb :tab tab :path path  :dir dirp :open nil))
  ;;      (format xcb::*q* "...~A ~A~&" pt path)
        )))
  
  (define-command fbar-select () ()
    (let ((prop (text-property-at (current-point) 'type)))
  
negative.code: (defparameter *fbar-path* (truename "~/"))
  (defparameter *fbar-buffer* nil)
  (defparameter *fbar-window* nil)
  (defparameter *fbar-width* 32)
  
  (defparameter *old-window* nil)
  (defparameter *old-buffer* nil)
  