Re: Help needed with catching 'cancels'

[mcdougal@cs.uchicago.edu (Tom McDougal)]

In article <28AUG91.13443987.0060.MUSIC@MUSICA.MCGILL.CA>, CXEA@MCGILLA.BITNET (CXEA000) writes:
> 
> Hi
>     I am wondering if someone could please explain to me how I catch
> a 'cancel' returned from 'choose-file-dialog', so that a 'cancel'
> response will not necessarily cause a return to the top-level.
>       I am using MCL 1.3.2, if that is relevant.

Use "catch-cancel", described in Chapter 13 (p. 266 in my book).
Here's a simple example:

(let ((result
         (catch-cancel
          (y-or-n-dialog "Begin?"))))
    (if (eq result ':cancel)
      (format t "operation cancelled")
      result))

--Tom
-------------------
Tom McDougal    mcdougal@cs.uchicago.edu

           1808, French toast translated into German.