anchor.diff:  (defparameter *fbar-path* (truename "~/"))
   (defparameter *fbar-buffer* nil)
   (defparameter *fbar-window* nil)
  +(defparameter *fbar-width* 32)
   
   (defparameter *old-window* nil)
   (defparameter *old-buffer* nil)
  
positive.code:     (setf *fbar-window*
  	  (lem::make-floating-window
  	   *fbar-buffer*
  	   0 0 20 (- (window-height (current-window)) 2) nil))
      
      (setf lem::*current-window* *fbar-window*)
      (setf (current-buffer) *fbar-buffer*)
  
negative.code: ;;==============================================================================
  
  (defun fbar-insert-entry (pt path dirp tab)
    (flet ((spaces (count) (format nil "~v,,,v<~>" count #\space))
  	 (dname ()  (format nil "+ ~A" (car (last (pathname-directory path)))))
  	 (fname ()  (let ((suffix (pathname-type path)))
  		      (if suffix
  			  (format nil "~A.~A" (pathname-name path) suffix)
  			  (format nil "~A" (pathname-name path))))))
      ;;pad the filename to create a 'background'
      (let* ((nstring (if dirp (dname) (fname)))
  	   (rem (max 0 (- *fbar-width* (length nstring) tab))))
        (setf nstring (concatenate 'string
  				 (spaces tab)
  				 nstring
  				 (spaces rem)
  				 "
  "))
        (insert-string
         pt nstring
         :attribute  (if dirp 'fbar-dir  'fbar-file)
         'type (make-fb :tab tab :path path  :dir dirp :open nil)))))
  
  (define-command fbar-select () ()
    (let ((prop (text-property-at (current-point) 'type)))
  