(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED " 4-Mar-87 15:57:55" ("compiled on " {PHYLUM}LYRIC>SETDEFAULTPRINTER.;1) "26-Feb-87 21:01:45" bcompl'd in "Xerox Lisp 26-Feb-87 ..." dated "26-Feb-87 21:33:01") (FILECREATED " 4-Mar-87 15:57:29" {PHYLUM}LYRIC>SETDEFAULTPRINTER.;1 4454 previous date%: " 8-Jul-86 12:37:19" {PHYLUM}KOTO>SETDEFAULTPRINTER.;1) \sdp.get.printerA0001A0002 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 PROCEED-CASE0043 F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS* F 8 input) Si@ggggUgjghgg VggWi¼Wg ` h (78 \MVLIST 72 READ 66 OPENSTRINGSTREAM 38 MAKE-PROCEED-CASE 34 CL:SYMBOL-FUNCTION) (69 \\sdp.read.table 63 INPUT 49 SI::NLSETQHANDLER 46 CL:ERROR 31 SI::ERRORSET-PRINT-FUNCTION 28 :REPORT 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () \sdp.get.printerA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 4 PROCEED-CASE0041 P 3 A0045 P 2 PROCEED-CASE0042 P 1 A0044 P 0 PROCEED-CASE0043 I 0 SI::*CLEANUP-FORMS* F 5 window F 6 SI::*RESETFORMS* F 7 prompt F 8 input) OgUhU hVc WhdUhdl cd´+hdH 1I¼I[ºLdgð•¿J „j:´h(68 CL:VALUES-LIST 45 \sdp.get.printerA0001A0002 30 PROMPTFORWORD 10 OPENW) (61 :NORMAL 2 CLOSEW) () \sdp.get.printer :D4 (P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 window P 1 prompt P 0 font F 5 LISPXHIST) Rg o¹``IH lMH l(ÚØ H hdi Ug ¿ (79 CL:VALUES-LIST 75 SI::RESETUNWIND 72 \MVLIST 69 \sdp.get.printerA0001 56 CREATEW 50 MAKEWITHINREGION 47 CREATEREGION 44 HEIGHTIFWINDOW 41 FONTHEIGHT 37 WIDTHIFWINDOW 30 CHARWIDTH 24 STRINGWIDTH 5 DEFAULTFONT) (66 SI::RESETUNWIND 19 LASTMOUSEY 16 LASTMOUSEX 2 DISPLAY) ( 12 "Enter printer name: ") \sdp.menu.subitems :D4 (P 4 printer F 5 \\sdp.menu.subitems F 6 \\sdp.known.printers F 7 DEFAULTPRINTINGHOST F 8 SDP.PRINTERINFO) ƒU–VWô‘UW c dAHµIooohh c £H¼h„H¼H¸LgLd´diðª3µ gLhhL g µ L Wh»Jµ KhZ¹°œKhZ¿°”(102 U-CASE 96 GETPROP 90 U-CASE 45 \NCONC2 13 COPY) (93 LOCATION 79 QUOTE 64 \sdp.set.printer) ( 36 "Asks for (new) default printer name. without entering name aborts change." 32 (\sdp.set.printer (\sdp.get.printer)) 28 "Other...") \sdp.set.printer :D4 (P 4 x P 0 canonicalprintername I 0 printer F 5 DEFAULTPRINTINGHOST) `@ @²NHUd£d‘hc  ³:@@U°!d\ H ³d¹JµIh[Z„IhZ¿µàKc ¿o@ †o h(92 PROMPTPRINT 84 PROMPTPRINT 46 STRING-EQUAL 42 CANONICAL.HOSTNAME 27 STRING-EQUAL 24 CANONICAL.HOSTNAME 3 CANONICAL.HOSTNAME) NIL ( 89 "default printer not changed" 80 "default printer set to ") (PRETTYCOMPRINT SETDEFAULTPRINTERCOMS) (RPAQQ SETDEFAULTPRINTERCOMS ((* * the regular DEFAULTSUBITEMFN modified to recognize EVAL as a key to EVAL the CADR of the list to get the subitems) (FILES DEFAULTSUBITEMFN) (* * the setdefaultprinter functions) (FNS \sdp.get.printer \sdp.menu.subitems \sdp.set.printer) (* * SDP.PRINTERINFO is the place to look up things like printer location, it also looks on the name of the printer for a LOCATION property) (INITVARS (SDP.PRINTERINFO NIL) (\\sdp.read.table (COPYREADTABLE (QUOTE ORIG)))) (* * the variables that signal recreating the menu subitems) (VARS (\\sdp.known.printers) (\\sdp.menu.subitems) ) (* * insinuate self into background menu) (ADDVARS (BackgroundMenuCommands ("Set Default Printer" ( \sdp.set.printer (\sdp.get.printer)) "Asks for (new) default printer name. without entering name aborts change." (EVAL ( \sdp.menu.subitems))))) (* * reset the background menu so our change takes effect, and remove space from the separators when reading printer names) (P (SETQ BackgroundMenu) (SETSYNTAX 32 (QUOTE OTHER) \\sdp.read.table)))) (FILESLOAD DEFAULTSUBITEMFN) (RPAQ? SDP.PRINTERINFO NIL) (RPAQ? \\sdp.read.table (COPYREADTABLE (QUOTE ORIG))) (RPAQQ \\sdp.known.printers NIL) (RPAQQ \\sdp.menu.subitems NIL) (ADDTOVAR BackgroundMenuCommands ("Set Default Printer" (\sdp.set.printer (\sdp.get.printer)) "Asks for (new) default printer name. without entering name aborts change." (EVAL ( \sdp.menu.subitems)))) (SETQ BackgroundMenu) (SETSYNTAX 32 (QUOTE OTHER) \\sdp.read.table) (PUTPROPS SETDEFAULTPRINTER COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL