(FILECREATED " 2-May-86 23:24:32" {QV}<NOTECARDS>1.3K>FGHPATCH032.;1
 2226   

      changes to:  (VARS FGHPATCH032COMS)
		   (FNS NC.TEditQuitFn))


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

(PRETTYCOMPRINT FGHPATCH032COMS)

(RPAQQ FGHPATCH032COMS
 ((* * Minor fix to Text card to remove assumptions about windows being 
			     present)
			  (FNS NC.TEditQuitFn)))
(* * Minor fix to Text card to remove assumptions about windows being present)


(DEFINEQ

(NC.TEditQuitFn

  (LAMBDA (CardIdentifier)                                   (* fgh: " 2-May-86 23:22")

                                                             (* Called by TEdit when quitting out of a TEdit-based 

							     note card. Close up attached windows,)


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




          (* * fgh 5/2/86 Removed assumption that there is a window when looking for the prompt window)



    (LET (TextStream Window PromptWindow (Card (
NC.CoerceToCard
 CardIdentifier)))
         (
SETQ
 Window (
NC.FetchWindow
 Card))
         (
AND
 Window (for
 AttachedWindow in
 (
ALLATTACHEDWINDOWS
 Window)
			  unless
 (
EQ
 AttachedWindow PromptWindow)
			  do
 (
DETACHWINDOW
 AttachedWindow)
			       (
CLOSEW
 AttachedWindow)
			       (until
 (
NULL
 (
OPENWP
 AttachedWindow)) do
 (
BLOCK
))))
         (
SETQ
 TextStream (
NC.FetchSubstance
 Card))
         (
NC.DeactivateCard
 Card)

          (* * Obsolete (* MAke sure TEdit won't close the database file) (replace (TEXTOBJ TXTFILE) of 

	  (TEXTOBJ TextStream) with NIL) (TEDIT.MAPPIECES (TEXTOBJ TextStream) (FUNCTION (LAMBDA (CH# PC PC# OBL) 

	  (replace (PIECE PFILE) of PC with NIL)))))




          (* * Setting the PromptWindow PROCESS to NIL is to break a circularity caused by TEXTOBJ -> PROMPTWINDOW -> PROCESS

	  -> TEXTSTREAM -> TEXTOBJ)



         (
AND
 Window (
SETQ
 PromptWindow (
GETPROMPTWINDOW
 Window NIL NIL T))
		(
WINDOWPROP
 PromptWindow (
QUOTE
 PROCESS)
			      NIL)
		(
REMOVEPROMPTWINDOW
 Window))
     T)))
)
(PUTPROPS FGHPATCH032 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (485 2144 (NC.TEditQuitFn 495 . 2142)))))
STOP