anchor.diff:                (t (values nil :above height)))))))
   
   (defun popup-init (parent manager frame)
  -  (let ((list-pane (make-pane-1 manager frame 'generic-list-pane
  +  (let ((list-pane (apply #'make-pane-1 manager frame 'generic-list-pane
                                   :items (list-pane-items parent)
                                   :mode  (list-pane-mode parent)
  -                                :value (gadget-value parent)
                                   :name-key (list-pane-name-key parent)
                                   :value-key (list-pane-value-key parent)
  -                                :test (list-pane-test parent))))
  +                                :test (list-pane-test parent)
  +                                (and (slot-boundp parent 'value)
  +                                     (list :value (gadget-value parent))))))
       (multiple-value-bind (scroll-p position height)
           (popup-compute-height parent list-pane)
         (with-bounding-rectangle* (cx0 cy0 cx1 cy1) parent
  
positive.code: ;; things in their list pane. Instead of :exclusive and :nonexclusive modes,
  ;; they call them :one-of and :some-of. I've supported these aliases for
  ;; compatibility. They also state the default mode is :some-of, which
  ;; contradicts the CLIM 2.0 Spec. Our default does not.
  
  (define-abstract-pane-mapping 'list-pane 'generic-list-pane)
  
  
negative.code:   ((mode        :initarg :mode
                  :initform :exclusive
                  :reader list-pane-mode
                  :type (member :one-of :some-of :exclusive :nonexclusive))
     (items       :initarg :items
                  :initform nil
                  :reader list-pane-items
  