anchor.diff:  ;;;
   (defmethod menu-choose
       (items &rest args &key associated-window &allow-other-keys)
  -  (let ((frame-manager (frame-manager (or associated-window
  -                                          *application-frame*))))
  +  (let* ((associated-frame (if associated-window
  +                               (pane-frame associated-window)
  +                               *application-frame*))
  +         (frame-manager (frame-manager associated-frame)))
       (apply #'frame-manager-menu-choose frame-manager items args)))
   
   (defmethod frame-manager-menu-choose
  
positive.code:      &key item-printer
       max-width max-height n-rows n-columns x-spacing y-spacing row-wise
       cell-align-x cell-align-y)
    (declare (ignore default-item max-width max-height n-rows n-columns
                     row-wise)) ; FIXME!!!
    (orf item-printer #'print-menu-item)
    (format-items items
                  :stream stream
  
negative.code: 
  ;;; TODO:
  ;;;
  ;;; - aborting
  ;;; + returned values
  ;;; + menu frame size
  ;;; + layout
  
  (in-package :CLIM-INTERNALS)
  
  