anchor.diff:  
   (defun callback-orange (gadget value)
     (declare (ignore gadget))
  -  (when value 
  +  (when value
       (setf (clim-internals::gadget-current-color (slot-value *application-frame* 'light))
   	  (clim-internals::gadget-highlighted-color (slot-value *application-frame* 'light)))))
   
  
positive.code: 	      :normal +red+
  	      :highlighted +orange+
  	      :pushed-and-highlighted +green+)
     (red-light :toggle-button
  	      :label "R"
  	      :value t
  	      :width 30
  	      :height 30
  	      :normal +red+
  	      :highlighted +red+
  	      :pushed-and-highlighted +red+
  	      :value-changed-callback 'callback-red)
     (green-light :toggle-button
  		:label "G"
  		:value nil
  		:height 30
  		:normal +green+
  		:highlighted +green+
  		:pushed-and-highlighted +green+
  	        :value-changed-callback 'callback-green)
     (orange-light :toggle-button
  		 :label "O"
  		 :value nil
  		 :height 30
  		 :normal +orange+
  		 :highlighted +orange+
  		 :pushed-and-highlighted +orange+
  		 :value-changed-callback 'callback-orange))
     (:layouts
      (default (horizontally () (vertically () red-light orange-light green-light) light)))
     (:top-level (traffic-lights-frame-top-level . nil)))
  
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
  