anchor.diff:  
   ;;;  (c) copyright 2001 by
   ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
  +;;;  (c) copyright 2009 by
  +;;;           Robert Strandh (strandh@labri.fr)
   
   ;;; This library is free software; you can redistribute it and/or
   ;;; modify it under the terms of the GNU Library General Public
  
positive.code:     (setf (clim-internals::gadget-current-color (slot-value *application-frame* 'light))
  	  (clim-internals::gadget-pushed-and-highlighted-color (slot-value *application-frame* 'light)))))
  
  ;; test functions
  
  (defun traffic-lights ()
    (loop for port in climi::*all-ports*
  
negative.code: 
  (in-package :clim-internals)
  
  ;;; example gadget definition
  (defclass light-pane (standard-gadget) ())
  
  (defmethod handle-repaint ((pane light-pane) region)
    (declare (ignore region))
    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region pane))
      (display-gadget-background
       pane (gadget-current-color pane) 0 0 (- x2 x1) (- y2 y1))))
  
  (in-package :clim-demo)
  
  ;;; callback functions
  
  (defmethod handle-event :after ((pane clim-internals::light-pane) (event pointer-event))
    (declare (ignorable event))
  