anchor.diff:          (#\q (return-from event-case)))
         (close menu))))
   
  -;; A one-line menu without a title and border resembling a menu bar
   (defun t19e ()
  +  "A one-line menu without a title and border resembling a menu bar."
     (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
       (let* ((items '("Item 0" "Item 1" "Item 2" "Item 3" "Item 4" "Item 5" "Item 6" "Item 7" "Item 8" "Item 9"))
              (menu (make-instance 'menu-window :input-blocking t :items items :position (list 0 0)
  
positive.code:              (case event
                 (:resize (move scr 1 0)
                          (format scr "~A Y lines x ~A X columns." (.height scr) (.width scr))
                          (refresh scr))
                 (#\q (return)))
               (progn
  
negative.code:          (add-char scr event :y 1 :x 78 :color-pair (list :white :black))
           (setf n (- (char-code event) 48)))
          ;; to raise a window to the top of the stack
          (#\t
           (raise-to-top (nth n winlst))
           (refresh-stack))
          (#\r
           (raise (nth n winlst))
           (refresh-stack))
          (#\l
           (lower (nth n winlst))
           (refresh-stack))
          (#\b
           (lower-to-bottom (nth n winlst))
           (refresh-stack))
          ;; type v to toggle window visibility         
          (#\v
  