anchor.diff:  (defparameter *3d-normal-color* (make-gray-color .84))
   (defparameter *3d-light-color*  (make-gray-color 1.0))
   (defparameter *3d-inner-color*  (make-gray-color .75))
  +
  +;;; Gadget "Feel"
  +
  +(defparameter *double-click-delay* 0.25
  +  "Maximum time in seconds between clicks in order to produce a double-click")
  +
  +(defparameter *double-click-max-travel* 7
  +  "Maximum distance in device units that the cursor may move between clicks in 
  +order to produce a double-click")
   
   ;;;
   ;;; gadgets look
  
positive.code: (defmethod schedule-timer-event ((pane pane) token delay)
    (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
  
  
  
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.144 2004-11-12 06:39:15 hefner1 Exp $
  
  (in-package :clim-internals)
  
  