anchor.diff:    (run-frame-top-level (make-application-frame 'traffic-lights)))
   
   (defmethod traffic-lights-frame-top-level ((frame application-frame))
  -  (setf (slot-value *application-frame* 'light) (car (last (frame-panes *application-frame*)))
  -	(slot-value *application-frame* 'radio-box)
  -	(with-radio-box ()
  -	 (first (frame-panes *application-frame*))
  -	 (second (frame-panes *application-frame*))
  -	 (radio-box-current-selection (third (frame-panes *application-frame*)))))
  +  (setf (slot-value frame 'light) (find-pane-named frame 'light)
  +        (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))))
   
   (define-application-frame traffic-lights ()
     ((radio-box :initform nil)
  
positive.code: 
  (defun callback-orange (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)))))
  
  
negative.code: 	      :normal +red+
  	      :highlighted +orange+
  	      :pushed-and-highlighted +green+)
     (radio-box (with-radio-box ()
                  (radio-box-current-selection
                   (make-color-chooser-toggle-button 'red +red+ "R" 'callback-red))
                  (make-color-chooser-toggle-button 'orange +orange+ "O" 'callback-orange)
                  (make-color-chooser-toggle-button 'green +green+ "G" 'callback-green)))
     (time-left text-field
                :editable-p nil
                :value "0"))
    (:layouts
     (default (horizontally () (vertically (:spacing 10) radio-box time-left) light)))
    (:top-level (traffic-lights-frame-top-level . nil)))
  