home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / lisp / mcl / 1277 < prev    next >
Encoding:
Internet Message Format  |  1992-08-19  |  2.5 KB
  1. Path: sparky!uunet!kithrup!hoptoad!decwrl!sdd.hp.com!uakari.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!@explorer.dgp.toronto.edu:markt@dgp.toronto.edu
  2. From: markt@dgp.toronto.edu ("Mark A. Tapia")
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re:  Saving print-style-dialog
  5. Message-ID: <92Aug19.173141edt.144115@explorer.dgp.toronto.edu>
  6. Date: 19 Aug 92 21:31:39 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 40
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: lau@darpa.mil
  11. Original-Cc: info-mcl@cambridge.apple.com
  12.  
  13. Lawrence Au (lau@darpa.mil) writes:
  14.   There must be a hook into the print record which MCL uses to
  15.   print fred-windows.  But I haven't been able to find it.  If I
  16.   just knew where it is I could save it out to a resource in
  17.   either MCL or each document and pull it back in later.
  18.  
  19. MCL keeps track of the print-record parameter for fred windows 
  20. in a private area. Bill St. Clair discouraged me from using the
  21. private print record for my generalized print package (print-u.lisp
  22. in /pub/MCL2/contrib/).
  23.  
  24. The print-u package  allocates and maintains its own  separate 
  25. print record. You can use the internal method 
  26.    (get-print-record object) to retrieve the tprint record
  27. You can use the hooks provided in the package print-u.lisp (in
  28. /pub/MCL2/contrib/) to specialize the printing routines. The
  29. get-print-record method only works for non-Fred window.
  30.  
  31. ? (ccl::get-print-prec t)
  32. #<A Mac Handle, Unlocked, Size 120 #x15C018>
  33.  
  34. You can retrieve (at your own risk), the internal fred print record:
  35. ? ccl::*hc-prec*
  36. #<A Mac Handle, Unlocked, Size 120 #x15C06C>
  37. ?  (print-record ccl::*hc-prec* :tprint)
  38. #<Record :TPRINT :IPRVERSION 3 
  39. :PRINFO #<Record :TPRINFO :IDEV 0 :IVRES 72 :IHRES 72 
  40. :RPAGE #<Record :RECT :TOP 0 :LEFT 0 :BOTTOM 730 :RIGHT 552>> 
  41. :RPAPER #<Record :RECT :TOP -31 :LEFT -30 :BOTTOM 761 :RIGHT 582> 
  42. :PRSTL #<Record :TPRSTL :WDEV 839 :IPAGEV 1320 :IPAGEH 1020 :BPORT 0 :FEED 2> 
  43. :PRINFOPT #<Record :TPRINFO :IDEV 0 :IVRES 72 :IHRES 72 
  44. :RPAGE #<Record :RECT :TOP 0 :LEFT 0 :BOTTOM 730 :RIGHT 552>> 
  45. :PRXINFO #<Record :TPRXINFO :IROWBYTES 1 :IBANDV 0 :IBANDH 100 
  46. :IDEVBYTES 0 :IBANDS 1 :BPATSCALE 0 :BULTHICK 1 :BULOFFSET 1 :BULSHADOW 1 
  47. :SCAN 0 :BXINFOX 0> 
  48. :PRJOB #<Record :TPRJOB :IFSTPAGE 1 :ILSTPAGE 9999 :ICOPIES 1 
  49. :BJDOCLOOP 0 :FFROMUSR T :PIDLEPROC #<A Null Mac Pointer> 
  50. :PFILENAME #<A Null Mac Pointer> :IFILEVOL 0 :BFILEVERS 0 :BJOBX 0> 
  51. :PRINTX #<A Mac Non-zone Pointer #x19FB1A> 
  52. :IZOOMMIN 25 :IZOOMMAX 400 :HDOCNAME #<A Null Mac Pointer>>
  53.