(FILECREATED "19-May-86 12:50:17" {QV}<NOTECARDS>1.3K>FGHPATCH038.;1
 2240   

      changes to:  (VARS FGHPATCH038COMS)
		   (FNS NC.GetPromptWindow))


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

(PRETTYCOMPRINT FGHPATCH038COMS)

(RPAQQ FGHPATCH038COMS
 ((* * Fix for BUG # 27)
			  (* * From NCUTILTIES)
			  (FNS NC.GetPromptWindow)))
(* * Fix for BUG # 27)


(* * From NCUTILTIES)


(DEFINEQ

(NC.GetPromptWindow

  (LAMBDA (MainWin)                                          (* fgh: "19-May-86 12:48")


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




          (* * fgh 5/19/86 Added call to RELMOVEW to insure that the first time the prompt window is used, it is opened up at

	  the correct position rather than off screen where it was created. Need this kludge because when a closed main 

	  window is movewd its prompt window does not move with it and sometimes when reopening the prompt window, it is not 

	  properly moved to the top of its main window.)



    (if
 (
OPENWP
 MainWin)
	then
 (
GETPROMPTWINDOW
 MainWin 5)
      else
 (LET (PromptWin OldMainPosition)
	          (
RESETLST
 (
RESETSAVE
 (
MOVEW
 MainWin NC.OffScreenPosition)
					   (
BQUOTE
 (
MOVEW
 , MainWin , (
SETQ
 OldMainPosition
								(
WINDOWPOSITION
 MainWin)))))
			      (
SETQ
 PromptWin (
GETPROMPTWINDOW
 MainWin 5))
			      (
CLOSEW
 PromptWin)
			      (
RELMOVEW
 PromptWin (create
 POSITION
							      XCOORD ←(
DIFFERENCE

								(fetch
 (
POSITION
 XCOORD)
								   of
 OldMainPosition)
								(fetch
 (
POSITION
 XCOORD)
								   of
 (
WINDOWPOSITION
 MainWin)))
							      YCOORD ←(
DIFFERENCE

								(fetch
 (
POSITION
 YCOORD)
								   of
 OldMainPosition)
								(fetch
 (
POSITION
 YCOORD)
								   of
 (
WINDOWPOSITION
 MainWin)))))
			      )
	      PromptWin))))
)
(PUTPROPS FGHPATCH038 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (427 2158 (NC.GetPromptWindow 437 . 2156)))))
STOP