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:                                  (< (/ (- now last-click-time) internal-time-units-per-second) *double-click-delay*))
                         (setf last-click-time now))))
                   (end-it ()
                     (unless all-done
                       (setf all-done t)
                       (throw 'popup-list-box-done nil))))
            
            (catch 'popup-list-box-done
              (setf (slot-value list-pane 'value-changed-callback)
                    (lambda (pane value)
                      (declare (ignore pane value))
                      (when ready-to-exit (end-it))))
              
              (tracking-pointer (list-pane :multiple-window t :highlight nil)
                (:pointer-motion (&key event window x y)
                   (cond (inner-grab (handle-event inner-grab (rewrite-event-for-grab inner-grab event)))
  
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
  