anchor.diff:          (slot-value frame 'radio-box) (find-pane-named frame 'radio-box))
     (clim-extensions:simple-event-loop))
   
  -(defmacro make-color-chooser-toggle-button (name color label callback)
  -  (let ((color-name (gensym "COLOR")))
  -    `(let ((,color-name ,color))
  -       (make-pane 'toggle-button
  -                  :name ,name
  -                  :label ,label
  -                  :indicator-type :one-of
  -                  :width 30
  -                  :height 30
  -                  :normal ,color-name
  -                  :highlighted ,color-name
  -                  :pushed-and-highlighted ,color-name
  -                  :value-changed-callback ,callback))))
  +(defmacro make-color-chooser-toggle-button (name label callback)
  +  `(make-pane 'toggle-button
  +              :name ,name
  +              :label ,label
  +              :indicator-type :one-of
  +              :width 30
  +              :height 30
  +              :value-changed-callback ,callback))
   
   (define-application-frame traffic-lights ()
     ((radio-box :initform nil)
      (light :initform nil))
     (:panes
  -   (light     light-pane
  -	      :width 30
  -	      :normal +red+
  -	      :highlighted +gold1+
  -	      :pushed-and-highlighted +green+)
  +   (light light-pane
  +	  :width 30)
      (radio-box (with-radio-box ()
                   (radio-box-current-selection
  -                 (make-color-chooser-toggle-button 'red +red+ "R" 'callback-red))
  -                (make-color-chooser-toggle-button 'yellow +gold1+ "Y" 'callback-yellow)
  -                (make-color-chooser-toggle-button 'green +green+ "G" 'callback-green)))
  +                 (make-color-chooser-toggle-button 'red "R" 'callback-red))
  +                (make-color-chooser-toggle-button 'yellow "Y" 'callback-yellow)
  +                (make-color-chooser-toggle-button 'green "G" 'callback-green)))
      (time-left text-field
                 :editable-p nil
                 :value "0"
  
positive.code: (defun callback-red (gadget value)
    (declare (ignore gadget))
    (when value
      (setf (clim-internals::gadget-current-color (slot-value *application-frame* 'light))
  	  (clim-internals::gadget-normal-color (slot-value *application-frame* 'light))))
    (repaint-all-sheets))
  
  (defun callback-yellow (gadget value)
    (declare (ignore gadget))
    (when value
      (setf (clim-internals::gadget-current-color (slot-value *application-frame* 'light))
  	  (clim-internals::gadget-highlighted-color (slot-value *application-frame* 'light))))
    (repaint-all-sheets))
  
  (defun callback-green (gadget value)
    (declare (ignore gadget))
    (when value
      (setf (clim-internals::gadget-current-color (slot-value *application-frame* 'light))
  	  (clim-internals::gadget-pushed-and-highlighted-color (slot-value *application-frame* 'light))))
    (repaint-all-sheets))
  
  (defun callback-time-left (gadget value)
  
negative.code: ;;; test functions
  
  (defun traffic-lights ()
    (run-frame-top-level (make-application-frame 'traffic-lights)))
  
  (defmethod traffic-lights-frame-top-level ((frame application-frame))
  