1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/lispusers/SETDEFAULTPRINTER.TEDIT
2020-11-15 19:22:14 -08:00

13 lines
9.9 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

en·vÅos 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.
`˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðꪪªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕpÕUUUUUUUUUUUUUUVÕpꪪªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªરÕUUUUUUUUUUUUUUVÕpÕUUUUUUUUUUUUUUVK8páàÕpꪪªªªªªªªªªªªªªÂŒMD‰ª°êªªªªªªªªªªªªªªªH|p⪰ÕUUUUUUUUUUUUUUVH@ÕpÕUUUUUUUUUUUUUUVŒHD‰ÕpꪪªªªªªªªªªªªªªäKˆ8páરꪪªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUVÕpÕUUUUUUUUUUUUUUWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕpꪪªªªªªªªªªªªª«ÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿª°êªªªªªªªªªªªªªª«ÿÿü?ý·àýð>ßÿÿÿÿÿª°ÕUUUUUUUUUUUUUUWÿÿûßÿ·ï}÷ÝïîÿÿÿÿÿÿÕpÕUUUUUUUUUUUUUUWÿÿ÷íí¶ïz÷ÛýõñÓïÿÿÕpꪪªªªªªªªªªªªª«ÿÿ÷íí¶ïz÷ÛýûîÊ÷_ÿÿª°êªªªªªªªªªªªªªª«ÿÿ÷íí·à÷p;ÿûàÞ÷¿ÿÿª°ÕUUUUUUUUUUUUUUWÿÿ÷mí·ïðwÛÿõïÞ÷¿ÿÿÕpÕUUUUUUUUUUUUUUWÿÿû<C3BF>Í·ïï·ÝïîîÞ÷_ÿÿÕpꪪªªªªªªªªªªªª«ÿÿü-¶ïï·Þßqßïÿÿª°êªªªªªªªªªªªªªª«ÿÿÿïÿþÿÿÿÿýÿÿÿÿÿÿÿª°ÕUUUUUUUUUUUUUUWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕpÕUUUUUUUUUUUUUUVÕpꪪªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªª|áðÁà ŸÏÁ᪰ÕUUUUUUUUUUUUUUVB""ˆÕpÕUUUUUUUUUUUUUUVB8¹ç$
$PÕpꪪªªªªªªªªªªªªªBDĈá$ˆ$ ª°êªªªªªªªªªªªªªªª||„<>“à<08>ÄÄ ª°ÕUUUUUUUUUUUUUUV@@„ˆˆ$
$PÕpÕUUUUUUUUUUUUUUV@D„ˆH""ˆÕpꪪªªªªªªªªªªªªª@8„gñH!â ŸÈ!᪰ꪪªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUVÕpÕUUUUUUUUUUUUUUVÕpꪪªªªªªªªªªªªªª ª°êªªªªªªªªªªªªªªª ª°ÕUUUUUUUUUUUUUUVÕpÕUUUUUUUUUUUUUUVŽ Õpꪪªªªªªªªªªªªªª# ª°êªªªªªªªªªªªªªªªŸ! ª°Õÿÿÿÿÿÿÿÿÿÿÿÿÿþ<00>! ÕpÕÿÿÿÿÿÿÿÿÿÿÿÿÿþ# Õpê¿ÿÿÿÿÿÿÿÿÿýÿÿÿ¾ ª°ê¼ûðñÿþ߃ýÿ¿ÿÞª°Õ{ïû÷¿÷ÿþß½ÿÿ¿ÿ®ÕpÕ{þ0÷ÜaŽö‡½¥£ Õpê¼=Û÷Û·vöß½•<C2BD>»²ªª°ê¿Ü÷Ø7Æö߃½½¸ª°Õíû÷Û÷6öß¿½½»÷®ˆ€ÕpÕ{íÛ÷»·væß¿½½»·Þ ^¸q`Õpê¼<ð|w翽½Ìw¾ Hĉ ª°ê¿ÿÿÿÿÿÿÿÿÿÿÿÿÿþ H„ùª°Õÿÿÿÿÿÿÿÿÿÿÿÿÿþ H„<48>ÕpÕ`ˆ„‰ˆÕpê B„qˆª°ê @H"ª°Õ`@HRÕpÕ`GHà+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕpê Uªªªªªªªªªªªªªªªªªªª°ê HIð)ªªªªªªªªªªªªªªªªªªª°Õ`HIQUUUUUUUUUUUUUUUUUUUpÕ`!UUUUUUUUUUUUUUUUUUUpê GHàAªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê ªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`@UUUUUUUUUUUUUUUUUUUpÕ` UUUUUUUUUUUUUUUUUUUpê  H˜ªªªªªªªªªªªªªªªªªªª°ê ˆC<CB86>ªªªªªªªªªªªªªªªªªªª°Õ`HL<48>UUUUUUUUUUUUUUUUUUUpÕ`HH˜UUUUUUUUUUUUUUUUUUUpê ˆGWªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê Aªªªªªªªªªªªªªªªªªªª°ê à!ªªªªªªªªªªªªªªªªªªª°Õ`QUUUUUUUUUUUUUUUUUUUpÕ`G)UUUUUUUUUUUUUUUUUUUpê ˆ‘Uªªªªªªªªªªªªªªªªªªª°ê <0F>)ªªªªªªªªªªªªªªªªªªª°Õ`QUUUUUUUUUUUUUUUUUUUpÕ`ˆ!UUUUUUUUUUUUUUUUUUUpê äGAªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê ªªªªªªªªªªªªªªªªªªª°ê A𪪪ªªªªªªªªªªªªªªªª°Õ`<10>AUUUUUUUUUUUUUUUUUUUpÕ` B€€UUUUUUUUUUUUUUUUUUUpê  €€ªªªªªªªªªªªªªªªªªªª°ê  D@€ªªªªªªªªªªªªªªªªªªª°Õ` GÀ€UUUUUUUUUUUUUUUUUUUpÕ`<10>H €UUUUUUUUUUUUUUUUUUUpê H €ªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê ªªªªªªªªªªªªªªªªªªª°ê Ãâ1ªªªªªªªªªªªªªªªªªªª°Õ`$1UUUUUUUUUUUUUUUUUUUpÕ`$1UUUUUUUUUUUUUUUUUUUpê #ÁJªªªªªªªªªªªªªªªªªªª°ê À!Jªªªªªªªªªªªªªªªªªªª°Õ`JUUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê à„ªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpê ªªªªªªªªªªªªªªªªªªª°ê ßÀIªªªªªªªªªªªªªªªªªªª°Õ`AUUUUUUUUUUUUUUUUUUUpÕ`UUUUUUUUUUUUUUUUUUUpꠈɪªªªªªªªªªªªªªªªªªª°ê Iªªªªªªªªªªªªªªªªªªª°Õ`IUUUUUUUUUUUUUUUUUUUpÕ`ÉUUUUUUUUUUUUUUUUUUUpê ÇHÀªªªªªªªªªªªªªªªªªªª°ê ªªªªªªªªªªªªªªªªªªª°Õ`UUUUUUUUUUUUUUUUUUUpÕÿÿÿÿÿÿÿÿÿÿÿÿÿÿUUUUUUUUUUUUUUUUUUUpꪪªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpꪪªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°êªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª°ÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpÕUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð
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-ÈT3ÈÈT,È,È,È ,È,ŠŠ8,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSICTERMINAL
MODERN
MODERN
MODERN MODERN   HRULE.GETFNMODERN

 HRULE.GETFNMODERN

 HRULE.GETFNMODERN
   HRULE.GETFNMODERN 
 HRULE.GETFNMODERN ',èl BMOBJ.GETFN3MODERN
KÏ8,3zº