(FILECREATED " 6-Nov-85 13:19:21" ("compiled on " {DSK}FUNCTIONS>UTILITIES>PRINTERMENU.;7) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 6-Nov-85 13:18:56" {DSK}FUNCTIONS>UTILITIES>PRINTERMENU.;7 18637 changes to: (VARS PRINTERMENUCOMS) (FNS PRINTERMENU PRINTERMENU.CREATEPROMPTWINDOW PRINTERMENU.GETNAME PRINTERMENU.INFOHOOK PRINTERMENU.WATCH PRINTERMENU.CLOSEFN PRINTERMENU.WHENSELECTEDFN) previous date: " 9-Oct-85 14:23:10" {DSK}FUNCTIONS>UTILITIES>PRINTERMENU.;3) PRINTERMENU D1 (P 5 Width P 4 Process P 3 Menu P 2 Left P 1 Height P 0 Bottom) `[d ]K Y` MI `Z`Xg \n` `gg ` JHMI hji dgg `gg `g` `gg K L L  ogggg ` `(312Q OPENW 303Q ADD.PROCESS 254Q SUSPEND.PROCESS 247Q WAKE.PROCESS 242Q PROCESSP 236Q PRINTERMENU.ADDMENUTOWINDOW 232Q PUTWINDOWPROP 216Q PUTWINDOWPROP 213Q COPYALL 177Q PUTWINDOWPROP 163Q PUTWINDOWPROP 146Q CREATEW 140Q CREATEREGION 130Q CLOSEW 121Q PUTWINDOWPROP 103Q WINDOWP 72Q FIND.PROCESS 46Q GETBOXPOSITION 40Q POSITIONP 24Q CHECK/MENU/IMAGE 12Q CHECK/MENU/IMAGE 5 PRINTERMENU.CREATEMENU) (315Q PRINTERMENU.WINDOW 307Q PRINTERMENU.WINDOW 277Q PRINTERMENU.INFOHOOK 274Q INFOHOOK 271Q PRINTERMENU.WATCH 266Q NAME 227Q PRINTERMENU.CLOSEFN 224Q CLOSEFN 221Q PRINTERMENU.WINDOW 210Q DEFAULTPRINTINGHOST 205Q DEFAULTPRINTINGHOST 202Q PRINTERMENU.WINDOW 174Q DON'T 171Q RESHAPEFN 166Q PRINTERMENU.WINDOW 160Q PRINTERMENU.AFTERMOVEFN 155Q AFTERMOVEFN 151Q PRINTERMENU.WINDOW 125Q PRINTERMENU.WINDOW 116Q NILL 113Q CLOSEFN 110Q PRINTERMENU.WINDOW 100Q PRINTERMENU.WINDOW 67Q PRINTERMENU.WATCH 62Q PRINTERMENU.POSITION 55Q PRINTERMENU.POSITION 51Q PRINTERMENU.POSITION 35Q PRINTERMENU.POSITION 27Q BITMAP 15Q BITMAP) ( 263Q (PRINTERMENU.WATCH)) PRINTERMENU.ADDMENUTOWINDOW D1 (P 0 Menuitems I 0 Menu) 4@@` H@n` lH H@n` h(60Q SHADEITEM 41Q LENGTH 33Q SHADEITEM 17Q ADDMENU) (55Q PRINTERMENU.WINDOW 30Q PRINTERMENU.WINDOW 14Q PRINTERMENU.WINDOW 3 MENU) () PRINTERMENU.ADDORDELETE? D1 (P 4 Element P 1 Printer P 0 Item) 0`dodi dkdg dgjdndhdJ XdgdghH YdHdgI` I` Hg`KhY`k .h2\IL lLL IL LK[I` H(303Q REMOVE 262Q MKATOM 253Q MKATOM 235Q LENGTH 216Q EQLENGTH 155Q ATTACH 144Q MEMBER 120Q PRINTERMENU.GETNAME 114Q SPAWN.MOUSE 72Q MENU) (306Q DEFAULTPRINTINGHOST 300Q DEFAULTPRINTINGHOST 212Q DEFAULTPRINTINGHOST 173Q DEFAULTPRINTINGHOST 165Q Delete 160Q DEFAULTPRINTINGHOST 152Q DEFAULTPRINTINGHOST 141Q DEFAULTPRINTINGHOST 131Q Add 105Q Delete 77Q Add 43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 5 MENUTYPE#) ( 13Q ((Add% Printer (QUOTE Add) "Allows you to add a printer to DEFAULTPRINTINGHOST") (Delete% Printer (QUOTE Delete) "Allows you to delete a printer from DEFAULTPRINTINGHOST"))) PRINTERMENU.AFTERMOVEFN D1 (I 0 Window) @ HHh(3 \INSUREWINDOW) (21Q PRINTERMENU.POSITION) () PRINTERMENU.CLOSEFN D1 (P 0 Process) hg Hd h(22Q DEL.PROCESS 11Q FIND.PROCESS) (6 PRINTERMENU.WATCH 3 PRINTERMENU.WINDOW) () PRINTERMENU.CREATEMENU D1 (P 3 Item) x`g@`$d[d lKK IHhZH&J HdIdgdgdi dkdg jdndhHdI (70Q ATTACH 43Q MKATOM 27Q LENGTH) (136Q CLRPROMPT 115Q PRINTERMENU.WHENHELDFN 106Q PRINTERMENU.WHENSELECTEDFN 14Q DEFAULTPRINTINGHOST 6 DEFAULT% PRINTER 2 MENUTYPE#) () PRINTERMENU.CREATEPROMPTWINDOW D1 (P 6 Width P 5 MouseY P 4 MouseX P 3 Left P 2 Height P 1 Font P 0 Bottom) u g Yo I l< ^I li Z``\NLLN_jOOj[``]JMMJ_jOOjXKHNJ ghi (162Q CREATEW 152Q CREATEREGION 46Q HEIGHTIFWINDOW 37Q FONTHEIGHT 32Q WIDTHIFWINDOW 24Q CHARWIDTH 20Q CHCON1 10Q DEFAULTFONT) (155Q Question% from% PRINTERMENU% : 113Q LASTMOUSEY 110Q SCREENHEIGHT 55Q LASTMOUSEX 52Q SCREENWIDTH 5 DISPLAY) ( 15Q "X") PRINTERMENU.GETNAME D1 (P 4 Deleteitem P 3 Window P 2 Stringstream P 1 String P 0 Returnval I 0 Item) b@g6@ohd[hgo YK Hg Z J ` o` ` \` L(136Q CLEARW 127Q PRINTERMENU.SELECTPRINTER 124Q TERPRI 115Q PRIN1 103Q FRESHLINE 67Q CLOSEF 62Q READ 56Q OPENSTRINGSTREAM 46Q CLOSEW 37Q PROMPTFORWORD 22Q PRINTERMENU.CREATEPROMPTWINDOW) (133Q PROMPTWINDOW 121Q PROMPTWINDOW 112Q PROMPTWINDOW 100Q PROMPTWINDOW 53Q INPUT 27Q TTY 3 Add) ( 107Q "Select a printer to delete " 33Q (15Q 33Q 12Q) 15Q "Enter name of printer to add :") PRINTERMENU.INFOHOOK D1 (I 1 Button I 0 Process) jd` o` ` (27Q TERPRI 21Q PRIN1 7 TAB) (24Q PROMPTWINDOW 16Q PROMPTWINDOW 4 PROMPTWINDOW) ( 13Q "Monitors the value of DEFAULTPRINTINGHOST for PRINTERMENU.") PRINTERMENU.SELECTPRINTER D1 (P 6 Item P 5 Screenposition P 4 Printer P 3 Menuposition P 2 Menu P 1 Listofprinters P 0 Windowregion) ` Q`g ZdddZY`ljIdNJj` dNJNInj` ` ` [H`` phHM *I"dNJ K NJ`NJj` ߰IdNJj` ``` ` `ljIwJdNJ K NL(405Q INSIDEP 401Q MENUITEMREGION 340Q GETMOUSESTATE 333Q LASTMOUSEY 325Q LASTMOUSEX 302Q SHADEITEM 253Q SHADEITEM 233Q INSIDEP 227Q MENUITEMREGION 210Q INSIDEP 177Q INSIDEP 162Q LASTMOUSEY 154Q LASTMOUSEX 141Q SHADEITEM 103Q SHADEITEM 46Q GETMOUSESTATE 23Q GETWINDOWUSERPROP 5 \INSUREWINDOW) (363Q MENU 344Q LASTMOUSEBUTTONS 330Q PRINTERMENU.WINDOW 322Q PRINTERMENU.WINDOW 315Q LASTMOUSEY 312Q LASTMOUSEX 277Q PRINTERMENU.WINDOW 250Q PRINTERMENU.WINDOW 241Q GRAYSHADE 173Q LASTMOUSEY 170Q LASTMOUSEX 157Q PRINTERMENU.WINDOW 151Q PRINTERMENU.WINDOW 136Q PRINTERMENU.WINDOW 100Q PRINTERMENU.WINDOW 52Q LASTMOUSEBUTTONS 37Q MENU 20Q MENU 15Q PRINTERMENU.WINDOW 2 PRINTERMENU.WINDOW) () PRINTERMENU.TOFRONTOFLIST D1 (P 3 Element P 1 Totop P 0 Element I 0 Item) P `hJI` I` h[@K lKK @K KYIJZ(101Q MKATOM 72Q MKATOM 54Q LENGTH 40Q ATTACH 26Q REMOVE) (35Q DEFAULTPRINTINGHOST 31Q DEFAULTPRINTINGHOST 23Q DEFAULTPRINTINGHOST 5 DEFAULTPRINTINGHOST) () PRINTERMENU.WATCHA0001 D1 (NAME ERRORSET F 0 RESETVARSLST) 0ohhPc``g o `n (54Q BLOCK 41Q ADD.PROCESS 30Q GETWINDOWUSERPROP) (45Q PRINTERMENU.WATCH.WAIT 25Q DEFAULTPRINTINGHOST 22Q PRINTERMENU.WINDOW 17Q DEFAULTPRINTINGHOST) ( 36Q (PRINTERMENU) 3 (COND ((AND (OPENWP PRINTERMENU.WINDOW) (TYPENAMEP (SETQ Menu (CAR (WINDOWPROP PRINTERMENU.WINDOW (QUOTE MENU)))) (QUOTE MENU))) (for Item in (CDR (fetch (MENU ITEMS) of Menu)) do (SHADEITEM Item Menu PRINTERMENU.SHADE1 PRINTERMENU.WINDOW))))) PRINTERMENU.WATCH D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 Menu F 4 LISPXHIST F 5 RESETVARSLST) &T!Uog hg[ Kh(42Q ERROR! 33Q RESETRESTORE 21Q PRINTERMENU.WATCHA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (PRINTERMENU.WATCHA0001)) PRINTERMENU.WHENHELDFN D1 (P 0 Menuitems I 2 Button I 1 Menu I 0 Item) ;A@Hoo` @` o` ` h(67Q TERPRI 60Q PRIN1 45Q PRIN1 35Q PRIN1) (64Q PROMPTWINDOW 55Q PROMPTWINDOW 42Q PROMPTWINDOW 32Q PROMPTWINDOW 3 MENU) ( 52Q " the first element of DEFAULTPRINTINGHOST" 27Q "Will make " 21Q "This item allows you to add or delete printers") PRINTERMENU.WHENSELECTEDFN D1 (P 0 Menuitems I 2 Button I 1 Menu I 0 Item) ZA``g g h@dHb Ah`  `g` h(126Q PUTWINDOWPROP 123Q COPYALL 107Q PRINTERMENU.ADDMENUTOWINDOW 104Q PRINTERMENU.CREATEMENU 101Q DELETEMENU 71Q PRINTERMENU.TOFRONTOFLIST 63Q PRINTERMENU 54Q PRINTERMENU.ADDORDELETE? 40Q PRINTERMENU 34Q FIND.PROCESS 24Q GETWINDOWUSERPROP) (120Q DEFAULTPRINTINGHOST 115Q DEFAULTPRINTINGHOST 112Q PRINTERMENU.WINDOW 76Q PRINTERMENU.WINDOW 31Q PRINTERMENU.WATCH 21Q DEFAULTPRINTINGHOST 16Q PRINTERMENU.WINDOW 13Q DEFAULTPRINTINGHOST 3 MENU) () (PRETTYCOMPRINT PRINTERMENUCOMS) (RPAQQ PRINTERMENUCOMS ((FNS PRINTERMENU PRINTERMENU.ADDMENUTOWINDOW PRINTERMENU.ADDORDELETE? PRINTERMENU.AFTERMOVEFN PRINTERMENU.CLOSEFN PRINTERMENU.CREATEMENU PRINTERMENU.CREATEPROMPTWINDOW PRINTERMENU.GETNAME PRINTERMENU.INFOHOOK PRINTERMENU.SELECTPRINTER PRINTERMENU.TOFRONTOFLIST PRINTERMENU.WATCH PRINTERMENU.WHENHELDFN PRINTERMENU.WHENSELECTEDFN) (INITVARS (PRINTERMENU.POSITION NIL) (PRINTERMENU.SHADE1 9345) (PRINTERMENU.WATCH.WAIT 5) (PRINTERMENU.WINDOW NIL)) (GLOBALVARS DEFAULTPRINTINGHOST DEFAULTTTYREGION PRINTERMENU.POSITION PRINTERMENU.SHADE1 PRINTERMENU.WATCH.WAIT PRINTERMENU.WINDOW PROMPTWINDOW) (P (if (POSITIONP PRINTERMENU.POSITION) then (PRINTERMENU))))) (RPAQ? PRINTERMENU.POSITION NIL) (RPAQ? PRINTERMENU.SHADE1 9345) (RPAQ? PRINTERMENU.WATCH.WAIT 5) (RPAQ? PRINTERMENU.WINDOW NIL) (if (POSITIONP PRINTERMENU.POSITION) then (PRINTERMENU)) (PUTPROPS PRINTERMENU COPYRIGHT ("Robert Ridder" 1985)) NIL