anchor.diff:                        :initform nil) ))
   
   ;;; XXX Move to protocol-classes.lisp. Should this really have all these
  -;;; superclasses? 
  +;;; superclasses?
   (define-protocol-class pane (clim-repainting-mixin
   			     clim-sheet-input-mixin
   			     sheet-transformation-mixin
  
positive.code:   "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")
  
  ;;;
  
negative.code: (defmacro bordering ((&rest options) &body contents)
    `(make-pane 'border-pane ,@options :contents (list ,@contents)))
  
  ;;; This generic function appears to be nowhere used.
  (defgeneric pane-border (pane))
  
  (defmethod pane-border ((pane basic-pane))
  