(FILECREATED "15-Apr-86 12:19:06" ("compiled on " {DANTE}LISP>AUXMENU.;19) "12-Nov-85 14:59:23" recompiled changes: BackgroundButtonFN CreateMiddleButtonBackgroundMenu Auxmenu.Other.Directory in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (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 D1 (NAME ERRORSET P 0 Result F 1 RESETVARSLST F 2 RESETY) eg` hhQc¿g “`©` ¿¿`kåjð³(` X´ ` ¿oH ` ¿` ¿hci(134Q TERPRI 125Q PRIN1 117Q CONCAT 106Q TERPRI 75Q MENU 55Q GETMOUSESTATE 46Q CreateMiddleButtonBackgroundMenu 33Q BOUNDP 10Q TTYDISPLAYSTREAM) (131Q PROMPTWINDOW 122Q PROMPTWINDOW 103Q PROMPTWINDOW 72Q MiddleButtonBackgroundMenu 61Q LASTMOUSEBUTTONS 51Q MiddleButtonBackgroundMenu 43Q MiddleButtonBackgroundMenuCommands 37Q MiddleButtonBackgroundMenu 30Q MiddleButtonBackgroundMenu 5 PROMPTWINDOW 2 TTYDISPLAYSTREAM) ( 113Q " ") 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) (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