(FILECREATED " 4-Jun-86 20:29:15" {QV}<NOTECARDS>1.3K>FGHPATCH053.;1
 1981   

      changes to:  (VARS FGHPATCH053COMS)
		   (FNS NC.MakeTEditPropsList NC.TEditPropsListQuitFn))


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

(PRETTYCOMPRINT FGHPATCH053COMS)

(RPAQQ FGHPATCH053COMS
 ((* * Fix to bug %#29, Quit from TEdit expanded menu does not save changes.)
			  (FNS NC.MakeTEditPropsList)
			  (* * new function for NCTEXTCARD)
			  (FNS NC.TEditPropsListQuitFn)))
(* * Fix to bug %#29, Quit from TEdit expanded menu does not save changes.)


(DEFINEQ

(NC.MakeTEditPropsList

  (LAMBDA (TEditWindow)                                      (* fgh: " 4-Jun-86 20:17")


          (* * Create the props list to hand to all TEdit and OPENTEXTSTREAM calls)




          (* * rht 9/10/85: Now takes a TEditWindow arg so can compute a prompt window.)




          (* * 5/1/86: Now appends NC-specific props in front of TEdit props specified as global param by user.)



    (
APPEND
 (
LIST
 (
QUOTE
 FONT)
		      NC.DefaultFont
		      (
QUOTE
 TITLEMENUFN)
		      (
FUNCTION
 NC.TEditMenuFn)
		      (
QUOTE
 PUTFN)
		      (
FUNCTION
 NC.TEditPutFn)
		      (
QUOTE
 GETFN)
		      (
FUNCTION
 NC.TEditGetFn)
		      (
QUOTE
 QUITFN)
		      (
LIST
 (
FUNCTION
 NC.TEditPropsListQuitFn)
			      (
FUNCTION
 (LAMBDA NIL
				  (
QUOTE
 DON'T))))
		      (
QUOTE
 PROMPTWINDOW)
		      (
AND
 TEditWindow (
NC.GetPromptWindow
 TEditWindow)))
	      NC.UserSpecifiedTEditProps)))
)
(* * new function for NCTEXTCARD)


(DEFINEQ

(NC.TEditPropsListQuitFn

  (LAMBDA (Window TextStream TextObj)                        (* fgh: " 4-Jun-86 20:15")


          (* * QuitFn to be part of the props list when calling TEDit.)




          (* * fgh 6/4/86 First created.)



    (
NC.QuitCard
 Window T)))
)
(PUTPROPS FGHPATCH053 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (582 1565 (NC.MakeTEditPropsList 592 . 1563)) (1606 1899 (NC.TEditPropsListQuitFn 1616
 . 1897)))))
STOP