XEROX LISTEN 2 4 1 LISTEN 1 4 Documentation by: Ron Fischer (Fischer.PA @ Xerox.ARPA) Listen provides a simple and convenient way to create additional lisp executives from the background menu. It also provides a function to creates these windows, called AddNewLispListener. TO USE LISTEN Simply load the package. It will place a new option in your background menu called "LispListener." Buttoning on this will prompt you for a window. A process is started which opens the window and points the TTYDISPLAYSTREAM at itself. Then a top level executive is run. PROGRAMMER'S FEATURE (AddNewLispListener PromptORForm) [Function] The argument PromptORForm is optional, and may be either a single character, used as a prompt, or a form, used as the "top level" of the listener (Typically (EVALQT). The user is first prompted for a window. A process is started which opens the window and points the TTYDISPLAYSTREAM at itself. If PromptORForm is not provided the default arrow prompt is used. If PromptORForm is atomic it is used as the prompt. If PromptORForm is a list, it is evaluated in a PROGN as the top level form. The function returns the handle of the created process. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È1È È1È ¼È(ŠŠ8(È (ŠŠ8DÈÈ PAGEHEADING RUNNINGHEAD HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN 9½     7 ) wª1zº