Accepting-values

• To: eilerts@cs.utexas.edu, clim@BBN.COM
• Subject: Accepting-values
• From: "John G. Aspinall" <JGA@alderaan.scrc.symbolics.com>
• Date: Wed, 1 Apr 1992 15:17-0500
• In-Reply-To: <9204011708.AA00574@sage.cs.utexas.edu>

    Date: Wed, 1 Apr 1992 12:08 EST
    From: Erik Eilerts <eilerts@cs.utexas.edu>

	  Does anyone have some clim code they could send me that does the
    following:

	  1.  pops up a window
	  2.  makes a call to accepting-values using that window as the stream

This is exactly what the :own-window option to accepting-values is there for.

Here's a toy example.  Note the use of a simple restart so you can return nil
when the dialog is aborted.

(defun sandwich (&optional (stream *query-io*))
  (with-simple-restart (abort "Forget the Sandwich")
    (let* ((s-type :steak)
	   (steak-options (list :mustard :onions))
	   (italian-options (list :lettuce :tomatoes))
	   (options steak-options))
      (accepting-values (stream :own-window t
				:exit-boxes '((:exit " Cool") (:abort " Forget It"))
				:label "Choose a Sandwich")
	(setq s-type (accept '(member :steak :italian)
			     :stream stream
			     :prompt "Type"
			     :default s-type))
	(terpri stream)
	(setq options
	      (if (eql s-type :steak)
		  (setq steak-options
			(accept '(subset :mustard :onions :cheese :peppers)
				:stream stream
				:prompt "With"
				:default steak-options))
		  (setq italian-options
			(accept '(subset :lettuce :tomatoes :pickles)
				:stream stream
				:prompt "With"
				:default italian-options)))))
      (return-from sandwich (cons s-type options))))
  nil)

• Accepting-values
• From: Erik Eilerts <eilerts@cs.utexas.edu>

• Prev: Accepting-values
• Next: presentation-replace-input
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)