(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "12-Nov-98 17:41:28" ("compiled on " {DSK}medley3.5>lispusers>SETDEFAULTPRINTER.;2) "31-Jan-98 19:10:48" tcompl'd in "Medley 3.5 PARC Full Sysout 12-Nov-98 ..." dated "12-Nov-98 12:21:33") (FILECREATED " 7-Jun-93 15:34:58" {DSK}medley2.0>lispusers>SETDEFAULTPRINTER.;7 7525 changes to%: (VARS SETDEFAULTPRINTERCOMS) (FNS \sdp.menu.subitems) previous date%: "29-May-93 15:44:06" {DSK}medley2.0>lispusers>SETDEFAULTPRINTER.;6) \sdp.menu.subitems :D8 (P 5 PNAME P 4 P F 6 DEFAULTPRINTINGHOST F 7 SDP.PRINTERINFO) VQHµIooohh d¢¼hƒ¼H¸Ld²d²oLgLd´dið¬3µgLhhL g µL Wh»Jµ KhZ¹±ÿqK&º±ÿk(129 U-CASE 121 GETPROP 111 U-CASE 73 CONCAT 34 \NCONC2) (116 LOCATION 98 QUOTE 81 \sdp.set.printer) ( 64 " " 23 "Asks for (new) default printer name. without entering name aborts change." 18 (\sdp.set.printer (GetNewPrinterFromUser)) 13 "Other...") \sdp.set.printer :D8 (P 6 P P 1 CANONICALPRINTERNAME P 0 TOP I 0 PRINTER F 7 DEFAULTPRINTINGHOST) )Wd£d‘hc@d¢±ðd²@ µ@@h‡ µ@b¿W@d‘@²;Hµ@d¢±”WAJµHK±‘@ð²çH@ð²ÜIH µHH³ÉH µHI ²¸o °^^d²*d@ð²#d@ð²¿IN µN ©N½Lµ Mh\»JZ±ÿ}M&¼°÷WAJµKc¿o@ h^µIN µN ©N½LµMh\»JZ°ÈM&¼°ø(274 CL::SIMPLE-STRING-EQUAL 266 CANONICAL.HOSTNAME 252 PROMPTPRINT 204 CL::SIMPLE-STRING-EQUAL 194 CANONICAL.HOSTNAME 158 PROMPTPRINT 146 CL::SIMPLE-STRING-EQUAL 137 CANONICAL.HOSTNAME 121 CANONICAL.HOSTNAME 48 CANONICAL.HOSTNAME 29 CANONICAL.HOSTNAME) NIL ( 246 "default printer set to " 153 "default printer not changed") (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.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)) (* ;;; "insinuate self into background menu") (ADDVARS ( BackgroundMenuCommands ("Set Default Printer" (\sdp.set.printer (GetNewPrinterFromUser)) "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)))) (FILESLOAD DEFAULTSUBITEMFN) (RPAQ? SDP.PRINTERINFO NIL) (ADDTOVAR BackgroundMenuCommands ("Set Default Printer" (\sdp.set.printer (GetNewPrinterFromUser)) "Asks for (new) default printer name. without entering name aborts change." (EVAL ( \sdp.menu.subitems)))) (SETQ BackgroundMenu) (PUTPROPS SETDEFAULTPRINTER COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1993)) NIL