(FILECREATED "28-Aug-84 10:33:32" {PHYLUM}<PSA>NOTECARDS>PROMPTWINPATCH.;1
 3606   

      changes to:  (VARS PROMPTWINPATCHCOMS)
		   (FNS NC.BringUpTEditCard1 NC.PromptWinOff))


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

(PRETTYCOMPRINT PROMPTWINPATCHCOMS)

(RPAQQ PROMPTWINPATCHCOMS
 ((FNS NC.BringUpTEditCard1 NC.PromptWinOff NC.PromptWinOn)
			   (P (SAVEDEF (QUOTE NC.BringUpTEditCard)))
			   (P (SAVEDEF (QUOTE NC.BringUpTEditCard1)))
			   (P (PUTPROP (QUOTE NC.BringUpTEditCard)
				       (QUOTE NOPROMPTVERSION)
				       (GETPROP (QUOTE NC.BringUpTEditCard1)
						(QUOTE CODE))))))
(DEFINEQ

(NC.BringUpTEditCard1

  (LAMBDA (ID TextStream Region/Position)                    (* rht: "28-Aug-84 10:17")

                                                             (* Bring up a TEdit window for Card ID whose text stream

							     is TextStream in Region specified by Region/Position or 

							     by the user.)

    (PROG (Region TEditWindow TEditProcess Title)
          (COND
	    ((AND (SETQ TEditWindow (fetch
 \WINDOW of
 (TEXTOBJ TextStream)))
		  (SETQ TEditProcess (WINDOWPROP TEditWindow (QUOTE PROCESS))))
	      (TOTOPW TEditWindow)
	      (RPTQ 2 (FLASHW TEditWindow))
	      (TTY.PROCESS TEditProcess)
	      (RETURN TEditWindow)))
          (SETQ Region (COND
	      ((type?
 REGION Region/Position)
		Region/Position)
	      ((POSITIONP Region/Position)
		(CREATEREGION (fetch
 XCOORD of
 Region/Position)
			      (fetch
 YCOORD of
 Region/Position)
			      PSA.TEditCardDefaultWidth PSA.TEditCardDefaultHeight))
	      (T (COND
		   ((SETQ Region (NC.FetchRegion ID))
		     (GETBOXREGION (fetch
 WIDTH of
 Region)
				   (fetch
 HEIGHT of
 Region)
				   (GETMOUSEX)
				   (IDIFFERENCE (GETMOUSEY)
						(fetch
 HEIGHT of
 Region))
				   NIL
				   (CONCAT "Please specify location for edit of Note Card " ID)))
		   (T (GETBOXREGION PSA.TEditCardDefaultWidth PSA.TEditCardDefaultHeight (GETMOUSEX)
				    (IDIFFERENCE (GETMOUSEY)
						 PSA.TEditCardDefaultHeight)
				    NIL
				    (CONCAT "Please specify location for edit of Note Card " ID)))))))
          (SETQ Title (NC.FetchTitle ID))
          (SETQ TEditWindow (CREATEW Region Title (NC.DetermineBorderWidth (NC.FetchType ID))
				     T))
          (WINDOWPROP TEditWindow (QUOTE SHRINKFN)
		      (FUNCTION NC.ShrinkFn))
          (WINDOWPROP TEditWindow (QUOTE NoteCardID)
		      ID)
          (WINDOWPROP TEditWindow (QUOTE NoteCardsLeftButtonMenu)
		      (NC.MakeTEditLeftMenu (NC.FetchType ID)))
          (WINDOWPROP TEditWindow (QUOTE NoteCardsMiddleButtonMenu)
		      (NC.MakeTEditMiddleMenu))
          (WINDOWADDPROP TEditWindow (QUOTE CLOSEFN)
			 (FUNCTION NC.TEditCloseFn))
          (TEDIT TextStream TEditWindow NIL (LIST (QUOTE FONT)
						  PSA.TimesRoman10
						  (QUOTE TITLEMENUFN)
						  (FUNCTION NC.TEditMenuFn)
						  (QUOTE PROMPTWINDOW)
						  (QUOTE DON'T)))
          (RETURN TEditWindow))))

(NC.PromptWinOff

  (LAMBDA NIL                                                (* rht: "28-Aug-84 10:26")


          (* * Switch in the version of NC.BringUpTEditCard that doesn't make local prompt windows.)



    (UNSAVEDEF (QUOTE NC.BringUpTEditCard)
	       (QUOTE NOPROMPTVERSION))))

)
(SAVEDEF (QUOTE NC.BringUpTEditCard))
(SAVEDEF (QUOTE NC.BringUpTEditCard1))
(PUTPROP (QUOTE NC.BringUpTEditCard)
	 (QUOTE NOPROMPTVERSION)
	 (GETPROP (QUOTE NC.BringUpTEditCard1)
		  (QUOTE CODE)))
(PUTPROPS PROMPTWINPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (628 3322 (NC.BringUpTEditCard1 638 . 3019) (NC.PromptWinOff 3021 . 3319)))))
STOP