(FILECREATED "30-Mar-87 23:42:22" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH234.;1
 1426   

      changes to:  (VARS RHTPATCH234COMS))


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

(PRETTYCOMPRINT RHTPATCH234COMS)

(RPAQQ RHTPATCH234COMS
 ((FILES (FROM NOTECARDSNEXT)
				 PMIPATCH024)
			  (* * rht 3/30/87: Minor change to keep CloseNoteFileSavingTableTop from 
			     bugging about saving open cards.)
			  (* * Change to NCTABLETOP)
			  (* * Note that this change should be on top of Peggy's PMIPATCH024)
			  (FNS NCTableTop.CloseNoteFileSavingTableTop)))
(FILESLOAD (FROM NOTECARDSNEXT)
	   PMIPATCH024)
(* * rht 3/30/87: Minor change to keep CloseNoteFileSavingTableTop from bugging about saving 
open cards.)


(* * Change to NCTABLETOP)


(* * Note that this change should be on top of Peggy's PMIPATCH024)


(DEFINEQ

(NCTableTop.CloseNoteFileSavingTableTop

  (LAMBDA (NoteFile NoteFileIconWindow)                      (* rht: "30-Mar-87 23:31")


          (* * Close down the notefile, but save table top first.)




          (* * rht 3/30/87: Minor change to keep it from bugging about saving open cards.)



    (
NCTableTop.MakeOrUpdateNoteFileTableTop
 NoteFile)
    (
NCTableTop.AddOpenEventsExpr
 NoteFile)
    (
NC.CloseNoteFile
 NoteFile NoteFileIconWindow NIL T)))
)
(PUTPROPS RHTPATCH234 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (855 1344 (NCTableTop.CloseNoteFileSavingTableTop 865 . 1342)))))
STOP