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:             (let ((ya (translate-range-value v minv (+ maxv thumb-size) y1 y2))
                    (yb (translate-range-value (+ v thumb-size) minv
                                               (+ maxv thumb-size) y1 y2)))
                (make-rectangle* x1 ya x2 yb))))))))
  
  (defmethod gadget-bed-region ((pane pixie-slider-pane))
    (with-bounding-rectangle* (minx miny maxx maxy)
  
negative.code:            (maxx       (+ middle +pixie-slider-thumb-half-width+)))
        (make-rectangle* (+ minx 1) (+ miny 1)
                         (- maxx 1) (- maxy 1)))))
  
  (defmethod handle-event ((pane pixie-slider-pane) (event pointer-button-release-event))
    (with-slots (armed dragging value bounce-value) pane
  