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: 	(TITLE (pop-accept-label SELF))
  	(result self)
  	(*avv-extra-redisplay* t)
  	(own-window #-clim t
  		    ;; Clim/Lucid may lose if you pass a list that the compiler
  		    ;; may have assumed was a constant, so copy it at run
  		    ;; time.  ("Segmentation Violation")
  		    #+clim (copy-list '(:left 150 :bottom 150
  					:right-margin 50
  					:bottom-margin 200))))
      (loop for FIRST-TIME? = t then nil
  	  do (setq result
  		   (accepting-values (menu-menu-stream
  
negative.code:    (object &key presentation window)
    (list object window presentation))
  
  (install-command 'clim::accept-values 'com-pop-edit)
  
  
  