anchor.diff:  
   (defclass labelled-gadget ()
     ((label       :initarg :label
  -                :initform "No label"
  +                :initform ""
                   :accessor gadget-label)
  +   #+NIL
      (align-x     :initarg :align-x
                   :accessor gadget-label-align-x)
  +   #+NIL
      (align-y     :initarg :align-y
                   :accessor gadget-label-align-y)
  +   #+NIL
      (text-style  :initform *default-text-style*
   		:initarg :text-style
                   :accessor gadget-text-style)))
  
positive.code:                     ((:top) (+ y1 as))
                      ((:center) (/ (+ y1 y2 (- as ds)) 2))
                      ((:bottom) (- y2 ds))
                      (otherwise (/ (+ y1 y2 (- as ds)) 2))))))) ;defensive programming
  
  ;;;; ------------------------------------------------------------------------------------------
  ;;;;
  
negative.code:                      (setf (gadget-client c) pane)
                       c))
                   choices)))
      (mapc (curry #'sheet-adopt-child pane) children)))
  
  (defmethod (setf gadget-value) :after (button (radio-box radio-box-pane) &key invoke-callback)
    ;; this is silly, but works ...
  