(FILECREATED "16-Dec-86 15:18:49" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH176.;1
 3228   

      changes to:  (VARS RHTPATCH176COMS))


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

(PRETTYCOMPRINT RHTPATCH176COMS)

(RPAQQ RHTPATCH176COMS
 ((* * Fixes bug #335 reported by Peggy whereby following links to shrunken 
			     text cards when DelTEditProcess... is set, screws up.)
			  (* * Change to NCTEXTCARD)
			  (FNS NC.BringUpTEditCard)))
(* * Fixes bug #335 reported by Peggy whereby following links to shrunken text cards when 
DelTEditProcess... is set, screws up.)


(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.BringUpTEditCard

  (LAMBDA (Card TextStream RegionOrPosition)                 (* rht: "16-Dec-86 15:15")

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



    (LET (Region TEditWindow TEditProcess Title TextStreamDirtyFlg Type)
         (if
 (
SETQ
 TEditWindow (
NC.FetchWindow
 Card))
	     then
 (
TOTOPW
 TEditWindow)
		    (if
 RegionOrPosition
			then
 (
SHAPEW
 TEditWindow (
NC.DetermineDisplayRegion
 Card 
										 RegionOrPosition)))
		    (
RPTQ
 2 (
FLASHW
 TEditWindow))
		    (if
 (
SETQ
 TEditProcess (
WINDOWPROP
 TEditWindow (
QUOTE
 PROCESS)))
			then
 (
TTY.PROCESS
 TEditProcess))
		    TEditWindow
	   else
 (
SETQ
 Region (
NC.DetermineDisplayRegion
 Card RegionOrPosition))
		  (
SETQ
 Title (
NC.RetrieveTitle
 Card))
		  (
SETQ
 Type (
NC.RetrieveType
 Card))
		  (
SETQ
 TEditWindow (
CREATEW
 Region Title NIL T))
		  (
WINDOWADDPROP
 TEditWindow (
QUOTE
 SHRINKFN)
				   (
FUNCTION
 NC.TextCardShrinkFn))
		  (
NC.InstallTitleBarLeftMenu
 TEditWindow Type)
		  (
NC.InstallTextTitleBarMiddleMenu
 TEditWindow Type)
		  (
SETQ
 TextStreamDirtyFlg (
NC.CardDirtyP
 Card))
		  (
TEDIT
 TextStream TEditWindow NIL (
NC.MakeTEditPropsList
 TEditWindow
									       (
NC.FileBoxP
 Card T)
									       (fetch
 (Card 
											 NoteFile)
										  of
 Card)))
		  (
AND
 TextStreamDirtyFlg (
NC.MarkCardDirty
 Card)))
     TEditWindow)))
)
(PUTPROPS RHTPATCH176 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (635 3146 (NC.BringUpTEditCard 645 . 3144)))))
STOP