(FILECREATED "20-Sep-84 17:27:07" {ERIS}<LISPUSERS>LISTEN.;1
 1846   

      changes to:  (FNS AddNewLispListener)

      previous date: " 3-Aug-84 13:10:32" {MAXC2}<1100USERS>LISTEN.;1)


(* Copyright (c) 1984 by Tom Lipkis. All rights reserved.)

(PRETTYCOMPRINT LISTENCOMS)

(RPAQQ LISTENCOMS
 ((FNS AddNewLispListener)
		   (APPENDVARS (BackgroundMenuCommands (Lisp% Listener (QUOTE (AddNewLispListener))
								       
							"Starts a lisp listener in a new window.")))
		   (VARS (BackgroundMenu NIL))))
(DEFINEQ

(AddNewLispListener

  [LAMBDA (Prompt)                                           (* lmm "20-Sep-84 17:25")

    (
PROG
 (handle window)
          (
SETQ
 window (
CREATEW
 NIL "Lisp Listener"))
          (
SETQ
 handle (
ADD.PROCESS
 [
BQUOTE
 (
PROGN
 (
TTYDISPLAYSTREAM
 (
QUOTE
 , window))
						   (
EVALQT
 (
QUOTE
 , (
OR
 Prompt (
QUOTE
 ←]
				    (
QUOTE
 NAME)
				    (
QUOTE
 Lisp% Listener)
				    (
QUOTE
 RESTARTABLE)
				    T))
          (
WINDOWPROP
 window (
QUOTE
 TITLE)
		      (
PROCESSPROP
 handle (
QUOTE
 NAME)))
          [
WINDOWADDPROP
 window (
QUOTE
 CLOSEFN)
			 (
FUNCTION
 (LAMBDA (window)
			     (
PROG
 [(proc (
WINDOWPROP
 window (
QUOTE
 PROCESS]
			           (
RETURN
 (
COND

					     ((
EQ
 (
THIS.PROCESS
)
						  proc)
					       (
ADD.PROCESS
 (
LIST
 (
QUOTE
 CLOSEW)
								  (
KWOTE
 window)))
					       (
QUOTE
 DON'T))
					     ((
PROCESSP
 proc)
					       (
DEL.PROCESS
 proc)
					       NIL]
          (
TTY.PROCESS
 handle])
)

(APPENDTOVAR BackgroundMenuCommands
 (Lisp% Listener (QUOTE (AddNewLispListener))
						    "Starts a lisp listener in a new window."))

(RPAQQ BackgroundMenu
 NIL)
(PUTPROPS LISTEN COPYRIGHT ("Tom Lipkis" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (520 1604 (AddNewLispListener 530 . 1602)))))
STOP