(FILECREATED " 4-Feb-87 22:50:10" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH194.;1
 1433   

      changes to:  (VARS RHTPATCH194COMS)
		   (FNS NCP.CloseCards))


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

(PRETTYCOMPRINT RHTPATCH194COMS)

(RPAQQ RHTPATCH194COMS
 ((* * Change to NCPROGINT)
			  (FNS NCP.CloseCards)))
(* * Change to NCPROGINT)


(DEFINEQ

(NCP.CloseCards

  (LAMBDA (Cards QuietFlg)                                   (* rht: " 4-Feb-87 22:46")


          (* * Uncache and undisplay any active cards in Cards)




          (* * rht 11/16/86: Changed call to NCP.ReportError)



    (for
 Card in
 (
MKLIST
 Cards) bind
 Win (OldProc ←(
TTY.PROCESS
))
       do
 (if
 (
NOT
 (
NC.ValidCardP
 Card))
		then
 (
NCP.ReportError
 "NCP.CloseCards" (
CONCAT
 Card 
							      " not an existing card or filebox."))
	      elseif
 (
AND
 (
NCP.CardCachedP
 Card)
			      (
NEQ
 (
NC.QuitCard
 Card T NIL NIL NIL NIL NIL QuietFlg)
				     (
QUOTE
 DON'T))
			      (
SETQ
 Win (
NC.FetchWindow
 Card)))
		then
 (bind
 (Process ←(
WINDOWPROP
 Win (
QUOTE
 PROCESS))) when
 (
PROCESSP

											Process)
			  do
 (
BLOCK
)))
       finally
 (
AND
 (
PROCESSP
 OldProc)
			(
TTY.PROCESS
 OldProc))
		 (
RETURN
 Card))))
)
(PUTPROPS RHTPATCH194 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (375 1351 (NCP.CloseCards 385 . 1349)))))
STOP