(FILECREATED "30-Jan-87 19:50:16" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH189.;2
 6131   

      changes to:  (VARS RHTPATCH189COMS)
		   (FNS NC.TextCardShrinkFn NC.BringUpTEditCard)

      previous date: "30-Jan-87 19:34:50" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH189.;1)


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

(PRETTYCOMPRINT RHTPATCH189COMS)

(RPAQQ RHTPATCH189COMS
 ((* * Integrates Bagley's TEdit killer package into NoteCards. The EditFn 
			     for text cards now restarts the process if necessary.)
			  (* * Add this to NCTEXTCARD coms. Should be loading from 
			     LISPUSERSDIRECTORIES eventually.)
			  (FILES (FROM {QV}<TRIGG>LISP>)
				 TEDIT-PROCESS-KILLER)
			  (* * Changes to NCTEXTCARD)
			  (FNS NC.BringUpTEditCard NC.TextCardShrinkFn)))
(* * Integrates Bagley's TEdit killer package into NoteCards. The EditFn for text cards now 
restarts the process if necessary.)


(* * Add this to NCTEXTCARD coms. Should be loading from LISPUSERSDIRECTORIES eventually.)


(FILESLOAD (FROM {QV}<TRIGG>LISP>)
	   TEDIT-PROCESS-KILLER)
(* * Changes to NCTEXTCARD)


(DEFINEQ

(NC.BringUpTEditCard

  (LAMBDA (Card TextStream RegionOrPosition)                 (* rht: "30-Jan-87 19:30")

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



    (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)
		      else
                                 (* Process may have been turned off.

							     Try to restart.)

			     (
SETQ
 TEditProcess (
RESTART-PROCESS-OF-TEDIT-WINDOW
 TEditWindow)))
		    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)))

(NC.TextCardShrinkFn

  (LAMBDA (W)                                                (* rht: "30-Jan-87 19:48")


          (* * This is in order to get the right title on the TEdit icon. This is a kludgy finesse around TEdit's shrunken 

	  icon title facility.)




          (* * rht 4/30/86: Now optionally kills TEdit process at shrink time.)




          (* * fgh 6/5/86 Fixed to KLUDGE around problem that TEdit will call GETBOXPOSITION even when SHRINKW is called with

	  a position argument. Kludge involves looking up the stack for the position being specified in SHRINKW since its not

	  passed down to here.)




          (* * rg 11/18/86 Added GLOBALVARS)




          (* * rht 1/30/87: Changed NC.DelTEditProcessAtShrinkFlg stuff to use Bagley's package via 

	  KILL-PROCESS-OF-TEDIT-WINDOW.)



    (DECLARE
 (
GLOBALVARS
 TEDIT.ICON.FONT TEDIT.TITLED.ICON.TEMPLATE NC.DelTEditProcessAtShrinkFlg)
	       )
    (LET ((OldIconTitle (
WINDOWPROP
 W (
QUOTE
 NoteCardsIconTitle)))
	  (Icon (
WINDOWPROP
 W (
QUOTE
 ICON)))
	  (Card (
NC.CoerceToCard
 W))
	  IconTitle)
         (if
 (
NULL
 Icon)
	     then
 (
WINDOWPROP
 W (
QUOTE
 TEDIT.ICON.TITLE)
				  "")
		    (
WINDOWPROP
 W (
QUOTE
 ICON)
				  (
TITLEDICONW
 TEDIT.TITLED.ICON.TEMPLATE "" TEDIT.ICON.FONT
						 (LET ((StkPos (
STKPOS
 (
QUOTE
 SHRINKW))))
						      (if
 StkPos
							  then
 (
PROG1
 (
STKARG
 (
QUOTE
 
										     ICONPOSITION)
										    StkPos)
									  (
RELSTK
 StkPos))
							else
 NIL))
						 T T NIL))
		    (
APPLY*
 (
WINDOWPROP
 W (
QUOTE
 ICONFN))
			      W)
		    (
SETQ
 Icon (
WINDOWPROP
 W (
QUOTE
 ICON))))
         (if
 (
NOT
 (
EQUAL
 OldIconTitle (
SETQ
 IconTitle (
CONCAT
 "NC: " (
NC.RetrieveTitle

									  Card)))))
	     then
 (
ICONTITLE
 IconTitle NIL NIL Icon)
		    (
WINDOWPROP
 W (
QUOTE
 NoteCardsIconTitle)
				  IconTitle))
         (if
 NC.DelTEditProcessAtShrinkFlg
	     then
 (
KILL-PROCESS-OF-TEDIT-WINDOW
 W)))))
)
(PUTPROPS RHTPATCH189 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1115 6049 (NC.BringUpTEditCard 1125 . 3951) (NC.TextCardShrinkFn 3953 . 6047)))))
STOP