anchor.diff:  
   (defmethod handle-event :after ((pane clim-internals::light-pane) (event pointer-event))
     (declare (ignorable event))
  -  (let ((label (clim-internals::gadget-label (clim-internals::radio-box-current-selection
  -					      (slot-value *application-frame* 'radio-box)))))
  +  (let ((label (gadget-label (radio-box-current-selection
  +                              (slot-value *application-frame* 'radio-box)))))
       (cond ((string= label "O")
  -	   (progn
  -	     (sleep 3)
  -	     (simulate-user-action (third (frame-panes *application-frame*)))))
  +           (traffic-pause 3)
  +           (simulate-user-action (find-pane-named *application-frame*
  +                                                  'red)))
   	  ((string= label "G")
  -	   (progn
  -	     (sleep 5)
  -	     (simulate-user-action (first (frame-panes *application-frame*)))))
  +           (traffic-pause 5)
  +           (simulate-user-action (find-pane-named *application-frame*
  +                                                  'orange)))
   	  (t nil))))
   
  +(defun traffic-pause (time)
  +  (let ((time-left-window (find-pane-named *application-frame* 'time-left)))
  +    (flet ((show-time (left)
  +             (setf (gadget-value time-left-window)
  +                   (format nil "~D" left))))
  +      (loop for left from time downto 1
  +         do (show-time left)
  +            (sleep 1))
  +      (show-time 0))))
  +
   (defmethod simulate-user-action ((pane toggle-button))
  -  (handle-event pane
  -		(make-instance 'pointer-button-press-event))
  -  (handle-event pane
  -		(make-instance 'pointer-button-release-event)))
  +  (setf (gadget-value pane :invoke-callback t) (not (gadget-value pane))))
   
   (defun callback-red (gadget value)
     (declare (ignorable gadget))
  
positive.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  
  
negative.code: ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
  
  ;;;  (c) copyright 2001 by
  ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
  
  ;;; This library is free software; you can redistribute it and/or
  