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:      :min-value 0
       :max-value 1
       :orientation :vertical))
  
  (defmethod compose-space ((pane pixie-scroll-bar-pane) &key width height)
    (declare (ignore width height))
  
negative.code: ; Toggle Button (for checkboxes and radio-buttons)
  
  (defclass pixie-toggle-button-pane (pixie-gadget toggle-button-pane) ())
  
  (define-pixie-gadget toggle-button pixie-toggle-button-pane)
  
  (defmethod draw-toggle-button-indicator ((pane pixie-toggle-button-pane) (type (eql :one-of)) value x1 y1 x2 y2)
    (multiple-value-bind (cx cy) (values (/ (+ x1 x2) 2) (/ (+ y1 y2) 2))
  