(FILECREATED "22-Dec-86 16:01:48" ("compiled on " {ERIS}KOTO>AUXMENU.;2) "18-Dec-86 11:42:37" bcompl'd in "Xerox Lisp 18-Dec-86 ..." dated "18-Dec-86 12:17:20") (FILECREATED "15-Apr-86 12:18:47" {DANTE}LISP>AUXMENU.;19 6842 changes to: (VARS AUXMENUCOMS DefaultMiddleButtonBackgroundMenuCommands) (FNS BackgroundButtonFN CreateMiddleButtonBackgroundMenu Auxmenu.Other.Directory) previous date: "14-Apr-86 11:40:55" {DANTE}LISP>AUXMENU.;18) BackgroundButtonFNA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 0 Result I 0 SI§§*CLEANUP-FORMS* F 1 SI§§*RESETFORMS*) _g` hhQcg “`©` ¿¿`kåjð³'` X´` ¿oH ` ¿` h(91 TERPRI 84 PRIN1 78 CONCAT 69 TERPRI 60 MENU 44 GETMOUSESTATE 37 CreateMiddleButtonBackgroundMenu 26 BOUNDP 8 TTYDISPLAYSTREAM) (88 PROMPTWINDOW 81 PROMPTWINDOW 66 PROMPTWINDOW 57 MiddleButtonBackgroundMenu 48 LASTMOUSEBUTTONS 40 MiddleButtonBackgroundMenu 34 MiddleButtonBackgroundMenuCommands 30 MiddleButtonBackgroundMenu 23 MiddleButtonBackgroundMenu 5 PROMPTWINDOW 2 TTYDISPLAYSTREAM) ( 74 " ") BackgroundButtonFN §D4 (P 1 SI§§*RESETFORMS* P 0 LISPXHIST F 2 LISPXHIST) Rg ¿ (19 CL§VALUES-LIST 15 SI§§RESETUNWIND 12 \MVLIST 9 BackgroundButtonFNA0001) (6 SI§§RESETUNWIND) () CreateMiddleButtonBackgroundMenu §D4 (I 0 CommandList) >`d@¿dk¿di ¿dg¿dg ¿dg¿jdnÿdhHdI ¿NIL (36 DEFAULTMENUHELDFN 29 CLRPROMPT 22 DEFAULTWHENSELECTEDFN 2 MENUTYPE#) () Auxmenu.Other.Directory §D4 (P 0 Directory) Xohd` g`H gHhoH hg` ` H (85 /CNDIR 78 CreateMiddleButtonBackgroundMenu 70 COPY 49 CONCAT 46 MKSTRING 31 MKATOM 11 PROMPTFORWORD) (81 MiddleButtonBackgroundMenu 75 MiddleButtonBackgroundMenuCommands 59 MiddleButtonBackgroundMenuCommands 56 Connect 34 /CNDIR 20 MiddleButtonBackgroundMenuCommands 17 Connect 8 PROMPTWINDOW) ( 42 " Connect to " 3 " Enter the name of the directory to connect to: ") (PRETTYCOMPRINT AUXMENUCOMS) (RPAQQ AUXMENUCOMS ((* * This file sets up the Middle button background menu. It could very easily set up a Left button background menu also. The variable DefaultMiddleButtonBackgroundMenuCommands contains a set of default commands for the middle button background menu. The variable MiddleButtonBackgroundMenuCommands is the actual list of commands that is used to create the menu. The menu is contained in the global variable MiddleButtonBackgroundMenu. The function CreateMiddleButtonBackgroundMenu accepts a list of commands and returns a menu.) (VARS DefaultMiddleButtonBackgroundMenuCommands) (GLOBALVARS MiddleButtonBackgroundMenuCommands MiddleButtonBackgroundMenu) (FNS BackgroundButtonFN CreateMiddleButtonBackgroundMenu Auxmenu.Other.Directory) ( INITVARS (MiddleButtonBackgroundMenuCommands DefaultMiddleButtonBackgroundMenuCommands) ( MiddleButtonBackgroundMenu NIL)) (P (SETQ BACKGROUNDBUTTONEVENTFN (QUOTE BackgroundButtonFN))))) (RPAQQ DefaultMiddleButtonBackgroundMenuCommands ((Greet ( GREET) " Do a (GREET)") (Login (LOGIN) " Do a (LOGIN)") ( Logout (RESETLST (RESETSAVE (CURSOR WAITINGCURSOR)) ( PROMPTPRINT (CONCAT " Logging out at " (MKSTRING (DATE)))) ( TERPRI PROMPTWINDOW) (LOGOUT)) " Do a (LOGOUT) " (SUBITEMS ( Fast (LOGOUT T) " Do (LOGOUT T) ") (Safe (RESETLST ( RESETSAVE (CURSOR WAITINGCURSOR)) (PROMPTPRINT (CONCAT " Logging out at " (MKSTRING (DATE)))) (TERPRI PROMPTWINDOW) (LOGOUT (QUOTE ?))) " Do (LOGOUT '?) "))) (Reclaim (RPT 5 ( QUOTE (RECLAIM))) " Perform a garbage collection. ") ( Cleanup (CLEANUP) " Do a (CLEANUP)") (Connect (DIRECTORYNAME T) " Show the current connected directory. " (SUBITEMS ( {DSK} (/CNDIR (QUOTE {DSK})) " Connect to the local DSK.") ( Default (/CNDIR LOGINHOST/DIR) " Connect to LOGINHOST/DIR. " ) (Other (Auxmenu.Other.Directory) " Prompt for the directory to connect to. "))) (Closeall ( CLOSEALL) " Close all open files.") (Open% Files (OPENP) " List Open Files") (VMem% Size (VMEMSIZE) " Find the current size of the Virtual Memory.") ( Free% Pages (DISKFREEPAGES) " List the number of free pages on the local file volume.") (Disk% Partition (DISKPARTITION) " Display the name of the current partition.") ( Volume% Display (DSKDISPLAY (QUOTE ON)) " Open the local disk descriptor window. ") ( Default% Printers DEFAULTPRINTINGHOST " List the default printers. ") (File% Changes ( FILEPKGCHANGES) " List the changes made to the loaded files. ") ( Loaded% Files FILELST " List the loaded files. ") ( Lafite%(ON%) (LAFITE (QUOTE ON)) " Turn Lafite On "))) (RPAQ? MiddleButtonBackgroundMenuCommands DefaultMiddleButtonBackgroundMenuCommands) (RPAQ? MiddleButtonBackgroundMenu NIL) (SETQ BACKGROUNDBUTTONEVENTFN (QUOTE BackgroundButtonFN)) (PUTPROPS AUXMENU COPYRIGHT (NONE)) NIL