anchor.diff:        nil))
   
   (defun print-menu-item (menu-item &optional (stream *standard-output*))
  -  (princ (menu-item-display menu-item) stream))
  +  (let ((style (getf (menu-item-options menu-item) :style '(nil nil nil))))
  +    (with-text-style (stream style)
  +      (princ (menu-item-display menu-item) stream))))
   
   (defun draw-standard-menu
       (stream presentation-type items default-item
  -     &key (item-printer #'print-menu-item)
  +     &key item-printer
        max-width max-height n-rows n-columns x-spacing y-spacing row-wise
  -     (cell-align-x :left) (cell-align-y :top))
  +     cell-align-x cell-align-y)
     (declare (ignore default-item max-width max-height n-rows n-columns
                      row-wise)) ; FIXME!!!
  -  (formatting-table (stream :x-spacing x-spacing
  -                            :y-spacing y-spacing)
  -    (dolist (item items)
  -      (formatting-row (stream)
  -        (formatting-cell (stream :align-x cell-align-x
  -                                 :align-y cell-align-y)
  -          (with-output-as-presentation (stream (menu-item-value item)
  -                                               presentation-type)
  -            (funcall item-printer item stream)))))))
  +  (orf item-printer #'print-menu-item)
  +  (format-items items
  +                :stream stream
  +                :printer item-printer
  +                :presentation-type presentation-type
  +                :x-spacing x-spacing
  +                :y-spacing y-spacing
  +                :cell-align-x cell-align-x
  +                :cell-align-y (or cell-align-y :top)
  +                :row-wise nil))
   
   
   (defmacro with-menu ((menu &optional associated-window
  
positive.code:          (stream (make-pane-1 fm associated-window 'command-menu-pane))
           (frame (make-menu-frame stream)))
      (adopt-frame fm frame)
      (change-space-requirements stream :width 100 :height 100)
      (unwind-protect
           (progn
             (setf (stream-end-of-line-action stream) :allow
  
negative.code: ;;; License along with this library; if not, write to the
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; Long time TODO (if someone wants to implement them - you are welcome):
  ;;;
  ;;; - Menu item options: :items, :type.
  ;;;
  ;;; - VIEW.
  ;;;
  ;;; - Caching.
  ;;;
  ;;; - Default item.
  
  ;;; Mid time TODO:
  ;;;
  ;;; - Menu item options: :active.
  ;;;
  ;;; - Documentation.
  ;;;
  ;;; - Menu position.
  
  ;;; TODO:
  ;;;
  ;;; aborting
  ;;; multiple columns
  ;;; returned values
  ;;; menu frame size
  ;;; layout
  
  (in-package :CLIM-INTERNALS)
  
  