envos SETDEFAULTPRINTER 2 4 1 SETDEFAULTPRINTER 1 4 By: Nick Briggs (Briggs.pa@Xerox.com) The SETDEFAULTPRINTER module 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 module are through the Background menu. This module uses the DEFAULTSUBITEMFN module 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 (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 246) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) -T- T-T3T,,, ,,8,8H PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSICTERMINAL MODERN MODERN MODERN MODERN   HRULE.GETFNMODERN   HRULE.GETFNMODERN   HRULE.GETFNMODERN    HRULE.GETFNMODERN   HRULE.GETFNMODERN ',l BMOBJ.GETFN3MODERN K8,3z