home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1352 < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.5 KB  |  60 lines
  1. Path: sparky!uunet!cis.ohio-state.edu!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!nassi@cambridge.apple.com
  2. From: nassi@cambridge.apple.com (Ike Nassi)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: multiple files with choose-file-dialog?
  5. Message-ID: <3130@ministry.cambridge.apple.com>
  6. Date: 2 Sep 92 22:30:51 GMT
  7. References: <9208272006.AA12235@mipsmath.math.uqam.ca>
  8. Sender: news@cambridge.apple.com
  9. Organization: Cambridge R&D
  10. Lines: 48
  11.  
  12. In article <9208272006.AA12235@mipsmath.math.uqam.ca>, cartier@math.uqam.ca
  13. (Guillaume Cartier) writes:
  14. > 
  15. > >Is there an easy way to get choose-file-dialog to return a list of selected 
  16. > >files? Or do I need to write  a dialog from scratch?
  17. > >
  18. > >Thanks in advance,
  19. > >
  20. > >Michael Young
  21. > >Ohio State University
  22. > 
  23. > The choose file dialog is not MCL's own but the standard
  24. > one from the macintosh OS. So, you will have to write your
  25. > own.
  26. > 
  27. > Maybe someone already did the job...
  28. > 
  29.  
  30. This may do it.  "(build-file-list nil)"  
  31. --- 
  32. Ike
  33.  
  34.  
  35. ;
  36. ; Return a macintosh filename from an SFGETFILE dialog box.
  37. ;
  38. (defun sf ()
  39.   (mac-namestring 
  40.    (choose-file-dialog :button-string "Select")))
  41.  
  42. ;
  43. ; Return a macintosh filename from an SFGETFILE dialog box (or nil if
  44. ; cancelled).
  45. ;
  46. (defun select-file-namestring ()
  47.   (let ((s (catch-cancel (sf))))
  48.     (if (eq s :cancel)
  49.       nil
  50.       s)))
  51.  
  52. ;
  53. ; Build a list of selected files.
  54. ;
  55. (defun build-file-list (l)
  56.   (let ((s (select-file-namestring)))
  57.     (if (eq s nil)
  58.       l
  59.       (build-file-list (cons s l)))))
  60.