(FILECREATED "16-Nov-93 17:20:03" ("compiled on " {DSK}export>lispcore>lispusers>AUXMENU.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (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 D8 (NAME SI*UNWIND-PROTECT* P 0 Result I 0 SI*CLEANUP-FORMS* F 1 SI*RESETFORMS*) ˆg` hhQcg •`¯` ¿¿`kåjð³:` X´.` ¿oH ` ¿` h(132 TERPRI 121 PRIN1 111 CONCAT 99 TERPRI 86 MENU 64 GETMOUSESTATE 53 CreateMiddleButtonBackgroundMenu 36 BOUNDP 14 TTYDISPLAYSTREAM) (127 PROMPTWINDOW 116 PROMPTWINDOW 94 PROMPTWINDOW 81 MiddleButtonBackgroundMenu 70 LASTMOUSEBUTTONS 58 MiddleButtonBackgroundMenu 48 MiddleButtonBackgroundMenuCommands 42 MiddleButtonBackgroundMenu 31 MiddleButtonBackgroundMenu 9 PROMPTWINDOW 4 TTYDISPLAYSTREAM) ( 105 " ") BackgroundButtonFN D8 (P 2 RESETSTATE P 1 SI*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) S!g ¿$(23 SIRESETUNWIND 18 \MVLIST 13 BackgroundButtonFNA0001) (8 SIRESETUNWIND) () CreateMiddleButtonBackgroundMenu D8 (I 0 CommandList) F`d@¿dk¿di ¿dg¿dg ¿dg¿jdnÿdhHdI ¿NIL (44 DEFAULTMENUHELDFN 35 CLRPROMPT 26 DEFAULTWHENSELECTEDFN 4 MENUTYPE#) () Auxmenu.Other.Directory D8 (P 0 Directory) xohd` g`H gHhoH hg` ` H (117 /CNDIR 106 CreateMiddleButtonBackgroundMenu 94 COPY 67 CONCAT 62 MKSTRING 42 MKATOM 16 PROMPTFORWORD) (111 MiddleButtonBackgroundMenu 101 MiddleButtonBackgroundMenuCommands 81 MiddleButtonBackgroundMenuCommands 76 Connect 47 /CNDIR 29 MiddleButtonBackgroundMenuCommands 24 Connect 11 PROMPTWINDOW) ( 56 " Connect to " 4 " 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