anchor.diff:  				(format stream label)
   				(terpri stream)
   				(setq highlighted-values
  -				  #+clim-2
   				  (accept
   				   ptype
   				   :default highlighted-values
   				   :view
   				   '(check-box-view :orientation :vertical)
   				   :prompt "Choose Several"
  -				   :stream stream)
  -				  #-clim-2
  -				  (accept ptype
  -					  :default highlighted-values
  -					  :prompt "Choose Several"
  -					  :stream stream))
  +				   :stream stream))
   				(terpri stream)))
   	  (values nil t)
   	(nreverse highlighted-values)))))
  
positive.code: 		       (+ y (* offset 2))
  		       :stream stream)))))
  
  #+clim-2
  (define-presentation-type-abbreviation button-subset (&key alist (test 'equal))
    `(subset-alist ,alist :test ,test))
  
  #+(or (not clim) clim-0.9 clim-1.0)
  (define-presentation-type button-subset (&key alist)  
    :parser ((stream)
  	   (accept `(sequence (alist-member :alist ,alist))
  		   :stream stream :prompt nil))
    :printer ((object stream)
  	    (present object `(sequence (alist-member :alist ,alist))
  		     :stream stream))
    :typep ((object)
  	  (block testem
  	    (dolist (element object)
  	      (or (find element alist :key #'dwim::menu-execute-no-side-effects)
  		  (return-from testem nil)))
  	    t))
    :describer ((stream)
  	      (write-string "any of " stream)
  	      (let (length
  		    (name-key #'dwim::token-element-string)
  		    (rest-of-elements alist))
  		(loop
  		  (or rest-of-elements (return))
  		  (setq length (length rest-of-elements))
  		  (format stream "~A" (funcall name-key (car rest-of-elements)))
  		  (cond ((> length 2)
  			 (write-string ", " stream))
  			((= length 2)
  			 (write-string " or " stream))))))
    :accept-values-displayer
    ((stream object query-identifier)
     ;; OBJECT is the currently chosen subset.
     (accept-values-choose-from-sequence
       stream alist object query-identifier
       :select-action
       #'(lambda (new list)
  	 (cond ((not (listp list)) (list new))
  	       ((member new list)  (remove new list))
  	       (t (adjoin new list))))
       :selection-test #'member
       :n-columns 1
       :drawer
       #'(lambda (stream object text selected-p)
  	 (draw-radio-button stream object text selected-p)))))
  
  (defun SEVERAL-CHOOSE (ITEM-LIST
  		       &key highlighted-values (label "Choose Several")
  			    (stream *standard-output*) (own-window t))
    "Lets you select several choices."
    (declare (values choices abort-p))
    ;; Used by choose-descriptors to produce interval annotations.
    ;;
    ;; item-list is a list whose elements are either:
  
negative.code:   (let* ((family (menu-choose
  		  (mapcar #'(lambda (fam)
  			      `(,fam :value ,fam :style (,fam :roman :normal)))
  			  '(:fix :serif :sans-serif))
  		  :prompt "Family"))
  	 (style (when family (menu-choose (character-style-choices family)
  					  :prompt "Character Styles"))))
      style))
  
  (defvar *EDIT-DELIMITER* #\return)
  (defvar *min-window-height* 100)
  (defvar *min-window-width* 220)
  
  (defun WINDOW-EDIT-TEXT (window left top right bottom &optional string)
    "Edit text in the given region of the window."
    ;; This only reads a single line...	  
  