anchor.diff:             (ds (text-style-descent (pane-text-style gadget) gadget))
              (w  (+ (text-size gadget label :text-style (pane-text-style gadget)) wider))
              (h  (+ as ds higher)))
  -      (make-space-requirement :width w  :min-width w  :max-width  w
  -                              :height h :min-height h :max-height h))))
  +      (make-space-requirement :width w  :min-width w  :max-width  +fill+
  +                              :height h :min-height h :max-height +fill+))))
   
   (defgeneric draw-label* (pane x1 y1 x2 y2 &key ink))
   
  
positive.code:                             :max-width +fill+
                              :min-height total-height
                              :height total-height
                              :max-height total-height)))
  
  (defgeneric generic-option-pane-draw-widget (pane))
  
  
negative.code:      (space-requirement+* sr
                            :min-width  (* 3 (pane-x-spacing pane))
                            :width      (* 3 (pane-x-spacing pane))
                            :max-width  +fill+
                            :min-height (* 2 (pane-y-spacing pane))
                            :height     (* 2 (pane-y-spacing pane))
                            :max-height +fill+)
       :min-width (space-requirement-height sr)
       :width     (space-requirement-height sr)
       :min-height 0
       :height 0)))
  
  (defgeneric draw-toggle-button-indicator (gadget type value x1 y1 x2 y2))
  