anchor.diff:  
   (defconstant +button-documentation+ '((#.+pointer-left-button+ "L")
   				      (#.+pointer-middle-button+ "M")
  -				      (#.+pointer-right-button+ "R")))
  +                                      (#.+pointer-right-button+ "R")
  +                                      (#.+pointer-wheel-up+ "WheelUp")
  +                                      (#.+pointer-wheel-down+ "WheelDown")))
   
   (defconstant +modifier-documentation+
     '((#.+shift-key+ "sh" "Shift")
  
positive.code: 	       (redisplay-frame-panes frame :force-p first-time)
  	       (setq first-time nil)
  	       (if query-io
  		   ;; We don't need to turn the cursor on here, as Goatee has
  		   ;; its own cursor which will appear. In fact, as a sane
  		   ;; interface policy, leave it off by default, and hopefully
  		   ;; this doesn't violate the spec.
  		   (progn            
  		     (setf (cursor-visibility (stream-text-cursor *query-io*))
  			   nil)
  
negative.code:   (push (cons name pane) (frame-panes-for-layout frame))
    pane)
  
  (defun coerce-pane-name (pane name)
    (when pane 
      (setf (slot-value pane 'name) name)    
      (push pane (frame-named-panes (pane-frame pane))))
    pane)
  
  (defun do-pane-creation-form (name form)  
    (cond
      ((and (= (length form) 1)
  	  (listp (first form)))
       `(coerce-pane-name ,(first form) ',name))
      ((keywordp (first form))
       (let ((maker (intern (concatenate 'string
  				       (symbol-name '#:make-clim-)
  