anchor.diff:  ;;;
   ;;; - :DIVIDER type menu items.
   
  -(in-package :clim-internals)
  +(in-package #:clim-internals)
   
   ;; Spec function.
   (defgeneric menu-choose
  
positive.code: (defun menu-size (menu frame)
    "Return two values, the height and width of MENU (adjusted for
  maximum size according to `frame')."
    (multiple-value-bind (max-width max-height)
        (max-x-y frame)
      (with-bounding-rectangle* (x1 y1 x2 y2) menu
        (declare (ignore x1 y1))
        (values (min x2 max-width)
  
negative.code:                          ,scroll-bars))))
  
  (defun invoke-with-menu (continuation associated-window deexpose
                           label scroll-bars)
    (let* ((associated-frame (if associated-window
                                 (pane-frame associated-window)
                                 *application-frame*))
  