XEROX AuxMenu 2 4 1 AUXMENU 1 4 By: David Newman (Newman.pasa @ Xerox.COM.ARPA) AUXMENU is a Lispusers package that creates a middle-button background menu. This menu acts like the right-button background menu that exists in any Interlisp sysout in most respects. The menu includes commonly used Interlisp functions that require no arguments to be useful. Global Variables MiddleButtonBackgroundMenuCommands [Variable] DefaultMiddleButtonBackgroundMenuCommands [Variable] MiddleButtonBackgroundMenu [Variable] MiddleButtonBackgroundMenuCommands is a list of MENU items (in the same format described in the Interlisp Reference Manual) which is used to create the middle button background menu. DefaultMiddleButtonBackgroundMenuCommands is the default value of MiddleButtonBack- groundMenuCommands. Individual users may reset MiddleButtonBackgroundMenuCommands, or they may add to or change it. If the user changes this variable, MiddleButtonBackgroundMenu should be set to NIL. All variables are initialized by the package as it is loaded. All necessary interaction is performed in the promptwindow, and the result of any menu item is printed to the promptwindow if it is non-nil. Default Menu Items Login - This item performs a (LOGIN) via the promptwindow. Greet - This item performs a (GREET). Logout - This item does a (LOGOUT). Cleanup - This item performs a (CLEANUP) via the promptwindow. Reclaim - This item executes (RPT 5 (QUOTE (RECLAIM))). Closeall - This item closes all currently open files by performing (CLOSEALL). Open Files - This item lists the currently open files to the promptwindow using (OPENP). Connect - This item prints the currently connected directory to the promptwindow. The subitems of this item make the connected directory the one shown as the item. The 'Default' subitem connects the system to the value of the variable LOGINHOST/DIR. The 'Other' subitem prompts the user for a directory name, makes that the connected directory, and adds it to the menu. VMem Size - This item prints the current size of the virtual memory file (in pages) to the promptwindow. It uses (VMEMSIZE). Free Pages - The number of free pages in device DSK are printed to the promptwindow. (DISKFREEPAGES) is the function that provides this information. Disk Partition - This item prints the name of the current partition to the promptwindow. The printed value is the result of calling (DISKPARTITION). Volume Display - Turns the volume display window on via (VOLUMEDISPLAY 'ON). Default Printers - Types the value of DEFAULTPRINTINGHOST to the promptwindow. File Changes - Lists the result of (FILEPKGCHANGES) to the promptwindow. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 42 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 42 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 42 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))1ÈÈ(È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN MODERN MODERN MODERN MODERN MODERNLOGO?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN 1/5'Ÿ;&$?8OYr}••MOI [Ezº