(FILECREATED " 1-Jun-86 13:26:33" {QV}<IDL>SOURCES>PREPATCHIDL.;2
 1031   

      changes to:  (VARS PREPATCHIDLCOMS)
		   (FNS REMOVEPROMPTWINDOW)

      previous date: " 1-Jun-86 13:24:59" {QV}<IDL>SOURCES>PREPATCHIDL.;1)


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

(PRETTYCOMPRINT PREPATCHIDLCOMS)

(RPAQQ PREPATCHIDLCOMS
 ((FNS REMOVEPROMPTWINDOW)))
(DEFINEQ

(REMOVEPROMPTWINDOW

  [LAMBDA (
MAINWINDOW
)                                     (* edited: " 1-Jun-86 13:22")

    (
PROG
 (PWINDOW)
	LP  [
COND

	      ((
SETQ
 PWINDOW (
WINDOWPROP
 MAINWINDOW (
QUOTE
 PROMPTWINDOW)
					     NIL))
		(
WINDOWDELPROP
 (
SETQ
 PWINDOW (
CAR
 PWINDOW))
				 (
QUOTE
 OPENFN)
				 (
FUNCTION
 \PROMPTWINDOW.OPENFN))
		(
DETACHWINDOW
 PWINDOW)
		(
RETURN
 (
CLOSEW
 PWINDOW]
	    (
COND

	      ((
NEQ
 MAINWINDOW (
SETQ
 MAINWINDOW (
MAINWINDOW
 MAINWINDOW)))
		(
GO
 LP])
)
(PUTPROPS PREPATCHIDL COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (387 949 (REMOVEPROMPTWINDOW 397 . 947)))))
STOP