anchor.diff:  (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))))
  +    (let ((pane (find-pane-named *application-frame* 'light)))
  +      (setf (light-color pane) +red+)))
     (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))))
  +      (let ((pane (find-pane-named *application-frame* 'light)))
  +        (setf (light-color pane) +gold1+)))
     (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))))
  +      (let ((pane (find-pane-named *application-frame* 'light)))
  +        (setf (light-color pane) +green+)))
     (repaint-all-sheets))
   
   (defun callback-time-left (gadget value)
  
positive.code:         (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)
     (light :initform nil))
    (:panes
     (light     light-pane
  	      :width 30
  	      :normal +red+
  	      :highlighted +gold1+
  	      :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 'yellow +gold1+ "Y" 'callback-yellow)
                  (make-color-chooser-toggle-button 'green +green+ "G" 'callback-green)))
     (time-left text-field
                :editable-p nil
                :value "0"
  
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))
  