anchor.diff:  ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
   
  -;;;  (c) copyright 2001 by 
  +;;;  (c) copyright 2001 by
   ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
   
   ;;; This library is free software; you can redistribute it and/or
  
positive.code: 
  (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)))))
      (cond ((string= label "O")
  	   (progn
  	     (sleep 3)
  	     (simulate-user-action (third (frame-panes *application-frame*)))))
  	  ((string= label "G")
  	   (progn
  	     (sleep 5)
  	     (simulate-user-action (first (frame-panes *application-frame*)))))
  	  (t nil))))
  
  (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)))
  
  (defun callback-red (gadget value)
    (declare (ignorable gadget))
  
negative.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)))))
  
  