anchor.diff:            (let ((y0 (+ sy0 (* index item-height)))
                   (y1 (+ sy0 (* (1+ index) item-height))))
               (multiple-value-bind (background foreground)
  -                (if (if (list-pane-exclusive-p pane)
  +                (cond ((not (slot-boundp pane 'value))
  +                       (values (pane-background pane) (pane-foreground pane)))
  +                      ((if (list-pane-exclusive-p pane)
                           (funcall (list-pane-test pane)
                                    (elt (generic-list-pane-item-values pane) index)
                                    (gadget-value pane))
                           (member (elt (generic-list-pane-item-values pane) index) (gadget-value pane)
                                   :test (list-pane-test pane)))
  -                    (values highlight-ink (pane-background pane))
  -                    (values (pane-background pane) (pane-foreground pane)))
  +                       (values highlight-ink (pane-background pane)))
  +                      (t (values (pane-background pane) (pane-foreground pane))))
                 (draw-rectangle* pane rx0 y0 rx1 y1 :filled t :ink background)
                 (draw-text* pane (elt (generic-list-pane-item-strings pane) index)
                             sx0
  
positive.code:    ;; ACTIVATE-GADGET after creating a gadget?
     ;;
     ;; I think, T is correct here --GB
     (active-p            :initform t
                          :reader gadget-active-p)
     ;;
     ;; I am not so lucky with the armed slot in GADGET --GB
  
negative.code:   (let* ((frame *application-frame*)
           (manager (frame-manager frame))
           ;; Popup state
           (final-change nil) ;; Menu should exit after next value change         
           (inner-grab nil)    ;; Gadget is grabbing the pointer, used to simulate
                               ;; X implicit pointer grabbing (for the scrollbar)
           (retain-value nil)
           (consume-and-exit nil) ;; If true, wait until a button release then exit
           (last-click-time nil)
           (last-item-index nil))
      (with-look-and-feel-realization (manager *application-frame*)
  