(FILECREATED " 5-Jul-86 15:28:49" {QV}<NOTECARDS>1.3K>FGHPATCH089.;1
 2949   

      changes to:  (VARS FGHPATCH089COMS)
		   (FNS NC.ClearMsg))


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

(PRETTYCOMPRINT FGHPATCH089COMS)

(RPAQQ FGHPATCH089COMS
 ((* * Fix to ClearMsg that replace Randy's fix in RHTPATCH056)
			  (* * Only for this patch file, not to be integrated)
			  (FILES RHTPATCH056)
			  (* * To be integrated)
			  (FNS NC.ClearMsg)))
(* * Fix to ClearMsg that replace Randy's fix in RHTPATCH056)


(* * Only for this patch file, not to be integrated)


(FILESLOAD RHTPATCH056)
(* * To be integrated)


(DEFINEQ

(NC.ClearMsg

  (LAMBDA (MainWindow ClosePromptWindowFlg)                  (* fgh: " 5-Jul-86 15:28")

                                                             (* Clear and optionally close the promnpt window for 

							     MainWindow)


          (* * rht 9/10/85: Fixed so closes instead of removing prompt window and clears whether prompt win gets closed or 

	  not.)




          (* * rht 11/7/85: Now checks if MainWindow is a NC window. If so, clears its promptwindow. If not, clears 

	  MainWindow itself.)




          (* * fgh 5/1/86 Fix to above fix. If clearing MainWindow, still need to check the ClosePromptWindowFlg.

	  Don't close the main window if this flag in NIL.)




          (* * fgh 6/8/86 Added call to REPOSITIONATTACHEDWINDOWS)




          (* * fgh 6/13/86 Now uses prompt window for NF menus as well as cards.)




          (* * fgh 6/27/86 Updated to match window width changes in NC.PrintMsg)




          (* * fgh&rht 7/4/86: Now checks that window isn't shrunken before calling REPOSITIONATTACHEDWINDOWS)




          (* * fgh 7/5/86 Redid the previous fix. Replaced REPOSITIONATTACHEDWINDOWS with FREEATTACHWINDOW in order to handle

	  cases for open but buried windows as well as shrunken windows.)



    (LET (PromptWindow)
         (if
 (
WINDOWP
 MainWindow)
	     then
 (if
 (
NC.NoteCardsWindowP
 MainWindow)
			then
 (
SETQ
 PromptWindow (
NC.GETPROMPTWINDOW
 MainWindow NIL NIL T))
			       (if
 (
OPENWP
 PromptWindow)
				   then
 (
CLEARW
 PromptWindow))
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 MaxLineWidth)
					     NIL)
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 LastLineLength)
					     NIL)
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 OldMaxWidth)
					     0)
			       (
WINDOWPROP
 MainWindow (
QUOTE
 PromptWindowLastNotCR)
					     NIL)
			       (if
 ClosePromptWindowFlg
				   then
 (
FREEATTACHEDWINDOW
 PromptWindow)
					  (
CLOSEW
 PromptWindow))
		      else
 (
CLEARW
 MainWindow)
			     (if
 ClosePromptWindowFlg
				 then
 (
CLOSEW
 MainWindow)))
	   else
 (
CLRPROMPT
)))))
)
(PUTPROPS FGHPATCH089 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (659 2867 (NC.ClearMsg 669 . 2865)))))
STOP