anchor.diff:  
   (defmethod schedule-timer-event ((pane pane) token delay)
     (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
  +
  +;;;
  +
  +(defmethod compose-space :around ((pane command-menu-pane) &key width height)
  +  (declare (ignorable pane width height))
  +  (make-space-requirement :width (bounding-rectangle-width (stream-output-history pane))
  +                          :height (bounding-rectangle-height (stream-output-history pane))))
  +           
positive.code:                                            (- x2 bright) (+ y1 btop))
                                            :closed t)
                            (make-rectangle* (- tx m0) (- ty a) (+ tx tw m0) (+ ty d)))) ))))))
  
  ;;; GENERIC FUNCTIONS
  
  
negative.code: 	    (reset-output-history pane)
  	    (let ((width (- x2 x1))
  		  (height (- y2 y1)))
                ;; I don't want this letf here --GB 2003-01-23
  	      (letf (((pane-user-width pane) (compute (pane-user-width pane)
  						      width))
  		     ((pane-user-height pane) (compute (pane-user-height pane)
  