(FILECREATED " 7-May-87 10:25:38" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH256.;1
 3493   

      changes to:  (VARS RHTPATCH256COMS)
		   (FNS NC.BringUpTEditCard))


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

(PRETTYCOMPRINT RHTPATCH256COMS)

(RPAQQ RHTPATCH256COMS
 ((* * Change to NCTEXTCARD)
			  (FNS NC.BringUpTEditCard)))
(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.BringUpTEditCard

  (LAMBDA (Card TextStream RegionOrPosition)                 (* rht: " 7-May-87 10:24")

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

							     stream is TextStream in Region specified by 

							     RegionOrPosition or by the user.)


          (* * rht 9/10/85: Fixed call to NC.MakeTEditPropsList so prompt window gets fixed up before card is brought up.)




          (* * fgh 11/13/85 Updated to handle Card objects.)




          (* * kirk 2Dec85 Removed illegal RETURN)




          (* * rht 4/11/86: Added Type arg to call to NC.MakeTEditMiddleMenu and changed names of menu windowprops.)




          (* * rht 5/5/86: Now calls NC.InstallTitleBarLeftMenu and NC.InstallTextTitleBarMiddleMenu.)




          (* * rht 8/2/86: Now doesn't throw in any extra tedit props if card is a filebox.)




          (* * rht 11/16/86: Now moves window to RegionOrPosition if already up.)




          (* * rht&pmi 11/19/86: Now passes NoteFile arg to NC.MakeTEditPropsList.)




          (* * rht & pmi 12/16/86: Changed the way we get TEditWindow.)




          (* * rht 1/30/87: Now calls RESTART-PROCESS-OF-TEDIT-WINDOW from Bagley's TEDIT-PROCESS-KILLER package.)




          (* * rht 4/17/87: Now makes a prompt window before opening the window.)




          (* * rht 5/7/87: Mostly superficial changes to look more like NC.MakeTEditCard.)



    (LET (Region Window TEditProcess Title TextStreamDirtyFlg Type)
         (if
 (
SETQ
 Window (
NC.FetchWindow
 Card))
	     then
 (
TOTOPW
 Window)
		    (if
 RegionOrPosition
			then
 (
SHAPEW
 Window (
NC.DetermineDisplayRegion
 Card RegionOrPosition)))
		    (
RPTQ
 2 (
FLASHW
 Window))
		    (if
 (
SETQ
 TEditProcess (
WINDOWPROP
 Window (
QUOTE
 PROCESS)))
			then
 (
TTY.PROCESS
 TEditProcess)
		      else
                                 (* Process may have been turned off.

							     Try to restart.)

			     (
SETQ
 TEditProcess (
RESTART-PROCESS-OF-TEDIT-WINDOW
 Window)))
		    Window
	   else
 (
SETQ
 Window (
NC.MakeNewCardWindow
 Card (
NC.RetrieveTitle
 Card)
							 NIL T))
                                                             (* Make a prompt window "invisibly" so it gets hooked 

							     in.)

		  (
NC.AttachPromptWindowOffScreen
 Window)
		  (
SETQ
 Type (
NC.RetrieveType
 Card))
		  (
NC.InstallTitleBarLeftMenu
 Window Type)
		  (
NC.InstallTextTitleBarMiddleMenu
 Window Type)
		  (
WINDOWADDPROP
 Window (
QUOTE
 SHRINKFN)
				   (
FUNCTION
 NC.TextCardShrinkFn))
		  (
SETQ
 TextStreamDirtyFlg (
NC.CardDirtyP
 Card))
		  (
TEDIT
 TextStream Window NIL (
NC.MakeTEditPropsList
 Window (
NC.FileBoxP

									    Card T)
									  (fetch
 (Card NoteFile)
									     of
 Card)))
		  (
AND
 TextStreamDirtyFlg (
NC.MarkCardDirty
 Card)))
     Window)))
)
(PUTPROPS RHTPATCH256 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (387 3411 (NC.BringUpTEditCard 397 . 3409)))))
STOP