(FILECREATED " 3-Apr-86 10:05:25" ("compiled on " {DANTE}LISP>AUXMENU.;17) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED " 3-Apr-86 10:04:23" {DANTE}LISP>AUXMENU.;17 6620 changes to: (VARS AUXMENUCOMS DefaultMiddleButtonBackgroundMenuCommands) (FNS BackgroundButtonFN CreateMiddleButtonBackgroundMenu Auxmenu.Other.Directory) previous date: "28-Jan-86 14:03:51" {DANTE}LISP>AUXMENU.;15) BackgroundButtonFNA0001 D1 (NAME ERRORSET P 0 Result F 1 RESETVARSLST F 2 RESETY) ^g` hhQc¿`©` ¿¿`kåjð³(` X´ ` ¿oH ` ¿` ¿hci(125Q TERPRI 116Q PRIN1 110Q CONCAT 77Q TERPRI 66Q MENU 46Q GETMOUSESTATE 37Q CreateMiddleButtonBackgroundMenu 10Q TTYDISPLAYSTREAM) (122Q PROMPTWINDOW 113Q PROMPTWINDOW 74Q PROMPTWINDOW 63Q MiddleButtonBackgroundMenu 52Q LASTMOUSEBUTTONS 42Q MiddleButtonBackgroundMenu 34Q MiddleButtonBackgroundMenuCommands 30Q MiddleButtonBackgroundMenu 5 PROMPTWINDOW 2 TTYDISPLAYSTREAM) ( 104Q " ") BackgroundButtonFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q BackgroundButtonFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (BackgroundButtonFNA0001)) CreateMiddleButtonBackgroundMenu D1 (I 0 CommandList) >`d@¿dk¿di ¿dg¿dg ¿dg¿jdnÿdhHdI ¿NIL (44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 26Q DEFAULTWHENSELECTEDFN 2 MENUTYPE#) () Auxmenu.Other.Directory D1 (P 0 Directory) Xohd` g`H gHhoH hg` ` H (125Q /CNDIR 116Q CreateMiddleButtonBackgroundMenu 106Q COPY 61Q CONCAT 56Q MKSTRING 37Q MKATOM 13Q PROMPTFORWORD) (121Q MiddleButtonBackgroundMenu 113Q MiddleButtonBackgroundMenuCommands 73Q MiddleButtonBackgroundMenuCommands 70Q Connect 42Q /CNDIR 24Q MiddleButtonBackgroundMenuCommands 21Q Connect 10Q PROMPTWINDOW) ( 52Q " 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)) (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. "))) (RPAQ? MiddleButtonBackgroundMenuCommands DefaultMiddleButtonBackgroundMenuCommands) (SETQ BACKGROUNDBUTTONEVENTFN (QUOTE BackgroundButtonFN)) (PUTPROPS AUXMENU COPYRIGHT (NONE)) NIL