anchor.diff:            (cond
              ((or (not pressedp)
                   (eq dragging :outside))
  -            (draw-rectangle* pane x1 y1 x2 y2 :ink (effective-gadget-foreground pane))
  -            ;; white outline
  -            (draw-line* pane x1 y2 x1 y1 :ink +white+)
  -            (draw-line* pane x2 y1 x1 y1 :ink +white+)
  -            ;; now for the gray inline
  -            (let ((x1 (+ x1 2))
  -                  (y1 (+ y1 2))
  -                  (x2 (- x2 1))
  -                  (y2 (- y2 1)))
  -              (draw-line* pane x1 y2 (+ x2 1) y2 :ink +gray54+) ; <- not a typo
  -              (draw-line* pane x2 y1 x2 (+ y2 1) :ink +gray54+))
  -            ;; now for the black outline
  -            (draw-line* pane x1 y2 (+ x2 1) y2 :ink +black+)
  -            (draw-line* pane x2 y1 x2 (+ y2 1) :ink +black+)
  -            (draw-label* pane x1 y1 x2 y2
  -                       :ink (pane-inking-color pane)))
  +            (draw-up-box pane x1 y1 x2 y2 (effective-gadget-foreground pane)))
              (pressedp
  -            (draw-rectangle* pane x1 y1 x2 y2 :ink (pane-background pane))
  -            ;; white outline
  -            (draw-line* pane x1 y2 x1 y1 :ink +gray58+)
  -            (draw-line* pane x2 y1 x1 y1 :ink +gray58+)
  -            ;; now for the black inline
  -            (let ((x1 (+ x1 1))
  -                  (y1 (+ y1 1))
  -                  (x2 (- x2 2))
  -                  (y2 (- y2 2)))
  -              (draw-line* pane x1 y1 (+ x2 1) y1 :ink +black+)
  -              (draw-line* pane x1 y1 x1 (+ y2 1) :ink +black+))
  -            ;; now for the black outline
  -            (draw-line* pane x1 y2 (+ x2 1) y2 :ink +white+)
  -            (draw-line* pane x2 y1 x2 (+ y2 1) :ink +white+)
  -            (draw-label* pane x1 y1 x2 y2
  -                       :ink (pane-inking-color pane)))))))))
  +            (draw-down-box pane x1 y1 x2 y2 (effective-gadget-foreground pane)))))))))
  
positive.code: (defconstant +pixie-slider-thumb-height+      34)
  (defconstant +pixie-slider-thumb-half-width+   8)
  
  (defclass pixie-slider-pane (pixie-gadget slider-pane arm/disarm-repaint-mixin enter/exit-arms/disarms-mixin)
    ((dragging
      :initform nil)
     (drag-delta
  
negative.code:                      :initform +gray76+
                       :reader pane-background)))
  
  ; Convenience
  
  
  (defun draw-up-box (pane x1 y1 x2 y2 foreground)
    (let ((x2 (- x2 1)))
      (draw-rectangle* pane x1 y1 x2 y2 :ink foreground)
      ;; white outline
      (draw-line* pane x1 y2 x1 y1 :ink +white+)
      (draw-line* pane x2 y1 x1 y1 :ink +white+)
      ;; now for the gray inline
      (let ((x1 (+ x1 2))
            (y1 (+ y1 2))
            (x2 (- x2 1))
            (y2 (- y2 1)))
        (draw-line* pane x1 y2 (+ x2 1) y2 :ink +gray54+) ; <- not a typo
        (draw-line* pane x2 y1 x2 (+ y2 1) :ink +gray54+))
      ;; now for the black outline
      (draw-line* pane x1 y2 (+ x2 1) y2 :ink +black+)
      (draw-line* pane x2 y1 x2 (+ y2 1) :ink +black+)
      (draw-label* pane x1 y1 x2 y2
                        :ink (pane-inking-color pane))))
  
  (defun draw-down-box (pane x1 y1 x2 y2 foreground)
    (draw-rectangle* pane x1 y1 x2 y2 :ink foreground)
    ;; white outline
    (draw-line* pane x1 y2 x1 y1 :ink +gray58+)
    (draw-line* pane x2 y1 x1 y1 :ink +gray58+)
    ;; now for the black inline
    (let ((x1 (+ x1 1))
          (y1 (+ y1 1))
          (x2 (- x2 2))
          (y2 (- y2 2)))
      (draw-line* pane x1 y1 (+ x2 1) y1 :ink +black+)
      (draw-line* pane x1 y1 x1 (+ y2 1) :ink +black+))
    ;; now for the black outline
    (draw-line* pane x1 y2 (+ x2 1) y2 :ink +white+)
    (draw-line* pane x2 y1 x2 (+ y2 1) :ink +white+)
    (draw-label* pane x1 y1 x2 y2
                 :ink (pane-inking-color pane)))
  
  ; Highlighting (could the defaults be less horrible?)
  
  (defmethod gadget-highlight-background ((gadget pixie-gadget))
  