(FILECREATED " 9-Mar-87 11:01:30" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH212.;2
 3793   

      changes to:  (FNS NC.MakeTEditPropsList NC.GetPromptWindow)
		   (VARS RHTPATCH212COMS)

      previous date: " 9-Mar-87 11:00:04" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH212.;1)


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

(PRETTYCOMPRINT RHTPATCH212COMS)

(RPAQQ RHTPATCH212COMS
 ((* * Fixes bug in lyric where text cards come up with attached windows that 
			     don't have LOCALCLOSE property.)
			  (* * Change to NCTEXTCARD)
			  (FNS NC.MakeTEditPropsList NC.GetPromptWindow)))
(* * Fixes bug in lyric where text cards come up with attached windows that don't have 
LOCALCLOSE property.)


(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.MakeTEditPropsList

  (LAMBDA (TEditWindow Don'tAttachUserSpecifiedPropsFlg NoteFile)
                                                             (* rht: " 9-Mar-87 11:00")


          (* * 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.)




          (* * rht 8/2/86: Added Don'tAttachUserSpecifiedPropsFlg to override attaching user-specified props.

	  For use by fileboxes.)




          (* * rht&pmi 11/19/86: Added another set of props at the notefile level stashed on NoteFile user data.

	  Also added NoteFile argument.)




          (* * rht 3/9/87: Now passes DON'T to PROMPTWINDOW to fix things for lyric.)



    (DECLARE
 (
GLOBALVARS
 NC.UserSpecifiedTEditProps NC.DefaultFont))
    (
APPEND
 (
LIST
 (
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)
		      (
QUOTE
 DON'T))
	      (
LIST
 (
QUOTE
 FONT)
		      (
OR
 (
AND
 (type?
 NoteFile NoteFile)
				   (
NC.NoteFileProp
 NoteFile (
QUOTE
 Font)))
			    NC.DefaultFont))
	      (if
 Don'tAttachUserSpecifiedPropsFlg
		  then
 NIL
		else
 (
OR
 (
AND
 (type?
 NoteFile NoteFile)
				    (
NC.NoteFileProp
 NoteFile (
QUOTE
 ExtraTEditProps)))
			     NC.UserSpecifiedTEditProps)))))

(NC.GetPromptWindow

  (LAMBDA (MainWin)                                          (* rht: " 9-Mar-87 11:01")


          (* * This gets a prompt window without affecting the open/close status of MainWin. If MainWin is open, then just 

	  GETPROMPTWINDOW. Otherwise, move off screen, do GETPROMPTWINDOW, close the new promptwindow, and move MainWin back 

	  to old loc.)




          (* * rht 3/9/87: Now removes CLOSEW from the list of PASSTOMAINCOMS because GETPROMPTWINDOW doesn't use LOCALCLOSE 

	  in lyric.)



    (DECLARE
 (
GLOBALVARS
 NC.OffScreenPosition))
    (if
 (
OPENWP
 MainWin)
	then
 (LET ((PromptWin (
GETPROMPTWINDOW
 MainWin 5)))
		    (
WINDOWDELPROP
 PromptWin (
QUOTE
 PASSTOMAINCOMS)
				     (
QUOTE
 CLOSEW)))
      else
 (LET ((OldPos (
WINDOWPOSITION
 MainWin))
		   PromptWin)
	          (
MOVEW
 MainWin NC.OffScreenPosition)
	          (
SETQ
 PromptWin (
GETPROMPTWINDOW
 MainWin 5))
	          (
WINDOWDELPROP
 PromptWin (
QUOTE
 PASSTOMAINCOMS)
				   (
QUOTE
 CLOSEW))
	          (
CLOSEW
 PromptWin)
	          (
MOVEW
 MainWin OldPos)
	      PromptWin))))
)
(PUTPROPS RHTPATCH212 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (751 3711 (NC.MakeTEditPropsList 761 . 2547) (NC.GetPromptWindow 2549 . 3709)))))
STOP