(FILECREATED "22-Apr-87 15:26:03" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH031.;3
 2147   

      changes to:  (VARS RGPATCH031COMS)
		   (FNS TEDIT.GETINPUT)

      previous date: "22-Apr-87 14:27:45" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH031.;1)


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RGPATCH031COMS)

(RPAQQ RGPATCH031COMS
 ((* * RG 4/22/87 resolved ambiguous record field reference)
			 (* * Change for KOTOTEDITPATCHES)
			 (FNS TEDIT.GETINPUT)))
(* * RG 4/22/87 resolved ambiguous record field reference)


(* * Change for KOTOTEDITPATCHES)


(DEFINEQ

(TEDIT.GETINPUT

  [LAMBDA (STREAM PROMPTSTRING DEFAULTSTRING DELIMITER.LIST)
                                                             (* Randy.Gobbel "22-Apr-87 15:22")

                                                             (* Ask for input (file names, &c) for TEdit, perhaps 

							     with a default.)


          (* * RG 4/22/87 fixed ambiguous PROMPTWINDOW record field reference)



    (
PROG
 [(
TEXTOBJ
 (
TEXTOBJ
 STREAM))
	     (TPROMPT (
OR
 (fetch
 (
TEXTOBJ
 PROMPTWINDOW) of
 (
TEXTOBJ
 STREAM))
			    (
GETPROMPTWINDOW
 (
\TEDIT.MAINW
 STREAM)
					       NIL NIL T]
	    (
COND

	      (TPROMPT                                       (* If it's our own promptwindow, just clear it.)

		       (
CLEARW
 TPROMPT))
	      (T                                             (* If it's the system's window, just move to a new 

							     line.)

		 (
FRESHLINE
 PROMPTWINDOW)))
	    (
RETURN
 (
PROG1
 (
PROMPTFORWORD
 PROMPTSTRING DEFAULTSTRING NIL (
OR
 TPROMPT 
										     PROMPTWINDOW)
						NIL
						(
QUOTE
 TTY)
						(
OR
 DELIMITER.LIST (
CHARCODE
 (EOL LF TAB ESCAPE)))
						NIL)         (* Get what the guy wants to tell us)

			       (
WINDOWPROP
 (
OR
 TPROMPT PROMPTWINDOW)
					     (
QUOTE
 PROCESS)
					     NIL)            (* Now detach the prompt window from its process, to 

							     avoid a circularity.)

			       ])
)
(PUTPROPS RGPATCH031 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (596 2066 (TEDIT.GETINPUT 606 . 2064)))))
STOP