home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1231 < prev    next >
Encoding:
Internet Message Format  |  1992-08-14  |  1.7 KB
  1. Path: sparky!uunet!gatech!destroyer!sol.ctr.columbia.edu!eff!news.oc.com!apple!cambridge.apple.com!bill@cambridge.apple.com
  2. From: bill@cambridge.apple.com (Bill St. Clair)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: CANCEL: opening files from the Finder
  5. Message-ID: <9208141945.AA23728@cambridge.apple.com>
  6. Date: 14 Aug 92 20:50:06 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 25
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Full-Name: Bill St. Clair
  11. Original-To: djskrien@COLBY.EDU (Dale Skrien)
  12. Original-Cc: info-mcl
  13.  
  14. >Please ignore my last request for help about opening files from the Finder.
  15. >I just found the definition of the open-documents-handler method on the CD
  16. >ROM and think I can get what I need by modifying that for my app.
  17.  
  18. Patch 1 for MCL 2.0 will make OPEN-DOCUMENTS-HANDLER call the
  19. OPEN-APPLICATION-DOCUMENT generic function for each file passed
  20. in the appleevent. The OPEN-APPLICATION-DOCUMENT generic function
  21. is passed two arguments: *APPLICATION* and a pathname for the file.
  22. The method specialized on the APPLICATION class opens opens text
  23. files with FRED or loads fasl files. You can define your own
  24. subclass of APPLICATION and set *APPLICATION* to an instance of
  25. this class to cause your method on OPEN-APPLICATION-DOCUMENT to
  26. be invoked.
  27.  
  28. PRINT-DOCUMENTS-HANDLER similarly calls PRINT-APPLICATION-DOCUMENT.
  29.  
  30. The deafult MCL startup code (which will run if you do not pass a
  31. :TOPLEVEL-FUNCTION argument to SAVE-APPLICATION) also does its
  32. open and print handling by calling OPEN-APPLICATION-DOCUMENT or
  33. PRINT-APPLICATION-DOCUMENT.
  34.  
  35. Patch 1 for MCL 2.0 is now in beta test. It should be shipping soon.
  36. I will send you a copy of the "appleevents-patch" which implements
  37. this new feature if you would like to start using it before patch
  38. 1 ships.
  39.