anchor.diff:  ;;;
   
   (defgeneric pop-accept-items (self MENU-STREAM GRAPH-WINDOW)
  -  (:method-combination progn #-lucid :most-specific-last)) 
  +  (:method-combination progn :most-specific-last)) 
   
   ;;; +++ Until lucid gets :most-specific-last, pop-accept-items isn't going to work
   ;;; quite right for the case where display is conditioned on the values of other
  
positive.code:    (object &key presentation window)
    (list object window presentation))
  
  (install-command #+(or clim-0.9 (not clim)) :accept-values
  		 #+(or clim-1.0 clim-2 mcclim) 'clim::accept-values
  		 'com-pop-edit)
  
  
  
negative.code: 	  do (progn (beep) (beep)))
      result))
  
  