anchor.diff:  (defmethod schedule-timer-event ((pane pane) token delay)
     (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
   
  -
  -
  
positive.code: 
  (defmethod compose-space ((pane scroller-pane) &key width height)
    (declare (ignore width height))
    (with-slots (viewport vscrollbar hscrollbar) pane
      (if viewport
          (let ((req
                 ; v-- where does this requirement come from?
                 ;     a: just an arbitrary default
  		(make-space-requirement
                  :width 300 :height 300 :max-width +fill+ :max-height +fill+
                  :min-width 30
                  :min-height 30)
  		#+nil
  
negative.code: (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
  