(FILECREATED " 8-Aug-87 17:14:33" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH286.;2
 1943   

      changes to:  (FNS NC.TEditCloseFn)
		   (VARS RHTPATCH286COMS)

      previous date: " 8-Aug-87 17:13:55" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH286.;1)


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

(PRETTYCOMPRINT RHTPATCH286COMS)

(RPAQQ RHTPATCH286COMS
 ((* * Fix of one storage leak caused by TEdit. We now smash value of 
			     PREVPREVPC and its proplist so PIECE objects can be GC'ed.)
			  (* * Change to NCTEXTCARD)
			  (FNS NC.TEditCloseFn)))
(* * Fix of one storage leak caused by TEdit. We now smash value of PREVPREVPC and its 
proplist so PIECE objects can be GC'ed.)


(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.TEditCloseFn

  (LAMBDA (CardIdentifier)                                   (* rht: " 8-Aug-87 17:14")

                                                             (* Close this TEdit window by Quitting from TEdit)


          (* * rht 11/12/84: Changed call to TEXTSTREAM to a WINDOWPROP call.)




          (* * fgh 11/13/85 Updated to handle Card objects.)




          (* * rht 8/8/87: Now smashes value of PREVPREVPC and its proplist so PIECE objects can be GC'ed.)



    (DECLARE
 (
GLOBALVARS
 PREVPREVPC))
    (LET (Window (Card (
NC.CoerceToCard
 CardIdentifier)))
         (
SETQ
 Window (
NC.FetchWindow
 Card))
         (
NC.TEditQuitFn
 Card)
         (
COND

	   (Window (
WINDOWDELPROP
 Window (
QUOTE
 CLOSEFN)
				    (
FUNCTION
 NC.QuitCard))
		   (
TEDIT.QUIT
 (
TEXTSTREAM
 Window))))

          (* * Ugliness supremo: This to allow PIECE objects, and the links they point to, to be GC'ed.

	  Why does TEdit let this junk hang around???)



         (
SETQ
 PREVPREVPC NIL)
         (
SETPROPLIST
 (
QUOTE
 PREVPREVPC)
			NIL))))
)
(PUTPROPS RHTPATCH286 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (737 1861 (NC.TEditCloseFn 747 . 1859)))))
STOP