anchor.diff:          (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+)
  +  ;; now for the white outline
  +  (draw-line* pane x1 y2 x2 y2 :ink +white+)
  +  (draw-line* pane x2 y1 x2 y2 :ink +white+)
     (draw-label* pane x1 y1 x2 y2
                  :ink (pane-inking-color pane)))
   
  
positive.code:                      (x1     (+ x1 2))
                       (x2     (- x2 3)))
                  (draw-line* pane x1 y1 x2 y1       :ink +gray58+)
                  (draw-line* pane x1 y2 (+ x2 1) y2 :ink +white+)
                  (draw-line* pane x2 y1 x2 (+ y2 1) :ink +white+)))))))))
  
  ; Scrollbar
  
  
negative.code:   (:default-initargs
      :border-style :inset
      :border-width 1))
  
  (define-pixie-gadget slider pixie-slider-pane)
  
  (defmethod compose-space ((pane pixie-slider-pane) &key width height)
    (declare (ignore width height))
  