anchor.diff:      (touch menu)
       ;; draw the title only when we have a border too, because we draw the title on top of the border.
       (when (and border title)
  +      ;; make a format template depending on the length of the title.
         ;; "|~12:@<~A~>|"
         (flet ((make-title-string (len)
                  (concatenate 'string "|~" (write-to-string (+ len 2)) ":@<~A~>|")))
  
positive.code:                   (:right (setf j (min (1+ j) (1- n)))))))
  
        ;; after updating i,j, update the current-item-number
        (setf item (sub2rmi layout (list i j))))))
  
  (defun format-menu-item (menu item-number)
    "Take a menu and return item item-number as a properly formatted string.
  
negative.code: 
  (defmethod draw-menu ((menu menu-window))
    (with-accessors ((layout .layout) (scrolled-layout .scrolled-layout) (scrolled-region-start .scrolled-region-start)
                     (title .title) (border .border) (sub-win .sub-window)) menu
      (clear sub-win)
      (let ((m  (car  layout))
            (n  (cadr layout))
  