XEROX SETDEFAULTPRINTER 2 4 1 SETDEFAULTPRINTER 1 4 By: Nick Briggs (Briggs.pa@Xerox.com) The SETDEFAULTPRINTER package provides a (cleaner) mechanism for moving printer names around on your DEFAULTPRINTINGHOST list. There are no user callable functions. Access to the features of the package are through the Background menu. This package uses the DEFAULTSUBITEMFN package which redefines the DEFAULTSUBITEMFN used in menus to accept an expanded form for menu subitems. Set Default Printer [Background Menu Entry] Selecting the "Set Default Printer" item off the background menu will prompt you for a new default printer, which will be added at the beginning of the DEFAULTPRINTINGHOST list. If you roll-out into the subitems for Set Default Printer it will present a submenu with the entries on DEFAULTPRINTINGHOST, and an "Other..." item. Selecting one of the printer name entries will cause it to be moved to the front of DEFAULTPRINTINGHOST, selecting "Other..." will prompt for the name of a printer in the same manner as selecting the "Set Default Printer" top level item off the background menu. If any commentary information has been supplied (see below) holding the mouse over the printer name will display the information in the prompt window. ꪪꪪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪꪪUUUUUUUUUUUUUUWpUUUUUUUUUUUUUUVpꪪꪪUUUUUUUUUUUUUUVpUUUUUUUUUUUUUUVK8ppꪪŒMDꪪH|pUUUUUUUUUUUUUUVH@pUUUUUUUUUUUUUUVHDpꪪK8pꪪUUUUUUUUUUUUUUVpUUUUUUUUUUUUUUWpꪪꪪ?>UUUUUUUUUUUUUUW}pUUUUUUUUUUUUUUWzpꪪz_ꪪp;UUUUUUUUUUUUUUWmwpUUUUUUUUUUUUUUWͷ_pꪪ-qꪪUUUUUUUUUUUUUUWpUUUUUUUUUUUUUUVpꪪꪪ| UUUUUUUUUUUUUUVB""pUUUUUUUUUUUUUUVB8$ $PpꪪBDĈ$$ ꪪ|| UUUUUUUUUUUUUUV@@$ $PpUUUUUUUUUUUUUUV@DH""pꪪ@8gH! !ꪪUUUUUUUUUUUUUUVpUUUUUUUUUUUUUUVpꪪ ꪪ UUUUUUUUUUUUUUVpUUUUUUUUUUUUUUV pꪪ# ꪪ! ! p# p ߃{߽p{0a tp=۷v߽7߃76߿p{v߿ ^q`p<|w翽w Hĉ H Hp`pBq@H"`@HRp`GH+pHUHI)`HIQUUUUUUUUUUUUUUUUUUUp`H!UUUUUUUUUUUUUUUUUUUpGHA`UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUp`@UUUUUUUUUUUUUUUUUUUp` UUUUUUUUUUUUUUUUUUUp HC`HLUUUUUUUUUUUUUUUUUUUp`HHUUUUUUUUUUUUUUUUUUUpGW`UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUpA!`QUUUUUUUUUUUUUUUUUUUp`G)UUUUUUUUUUUUUUUUUUUpˆU)`QUUUUUUUUUUUUUUUUUUUp`!UUUUUUUUUUUUUUUUUUUpGA`UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUpA`AUUUUUUUUUUUUUUUUUUUp` BUUUUUUUUUUUUUUUUUUUp € D@` GUUUUUUUUUUUUUUUUUUUp`H UUUUUUUUUUUUUUUUUUUpH `UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUp1`$1UUUUUUUUUUUUUUUUUUUp`$1UUUUUUUUUUUUUUUUUUUp#J!J`JUUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUpI`AUUUUUUUUUUUUUUUUUUUp`KUUUUUUUUUUUUUUUUUUUpI`IUUUUUUUUUUUUUUUUUUUp`UUUUUUUUUUUUUUUUUUUpH`UUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUUUUUpꪪꪪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪꪪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪꪪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUp SDP.PRINTERINFO [Variable] The variable SDP.PRINTERINFO is an A-list which will be used to lookup commentary information about a printer to be included as the "help" in the menu subitems. The UPPERCASE name of the printer is used as a key. An example SDP.PRINTERINFO setting might be ((QUAKE . "Press, Rm 1532") (PENTELPS:PARC:XEROX . "Interpress, Rm 1532")) LOCATION [Property] The code that looks up the commentary information about a printer will also check for a LOCATION property on the UPPERCASE atom which is the printername if no entry is found on SDP.PRINTERINFO. For example (PUTPROP 'JEDI 'LOCATION "FullPress, Pod 5, 2nd floor") Would describe the location of printer Jedi.(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))2 T1 ( ((8( (8D PAGEHEADING RUNNINGHEADTERMINALMODERN MODERN MODERN MODERNLOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN ',l BMOBJ.GETFN3MODERN L9,0z