(FILECREATED "16-May-87 20:52:33" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH264.;1
 1217   

      changes to:  (VARS RHTPATCH264COMS)
		   (FNS NC.AbortCard))


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

(PRETTYCOMPRINT RHTPATCH264COMS)

(RPAQQ RHTPATCH264COMS
 ((* * Fixes unreported bug whereby abort notefile hangs waiting for sketch 
			     card window to close.)
			  (* * Change to NCCARDS)
			  (FNS NC.AbortCard)))
(* * Fixes unreported bug whereby abort notefile hangs waiting for sketch card window to 
close.)


(* * Change to NCCARDS)


(DEFINEQ

(NC.AbortCard

  (LAMBDA (Card QuietFlg)                                    (* rht: "16-May-87 20:50")


          (* * Kill this card's process and its window.)




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




          (* * rht 7/6/86: Now passes non-nil Don'tRecacheFlg to NC.QuitCard.)




          (* * rht 7/13/86: Now takes QuietFlg and passes to NC.QuitCard.)




          (* * rht 5/16/87: Now passes non-nil CloseWFlg to NC.QuitCard.)



    (
NC.QuitCard
 Card T T T NIL NIL QuietFlg)))
)
(PUTPROPS RHTPATCH264 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (582 1135 (NC.AbortCard 592 . 1133)))))
STOP