(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "28-Apr-88 14:53:19" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH316.;1
 6548   

      changes to%:  (VARS RHTPATCH316COMS))


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

(PRETTYCOMPRINT RHTPATCH316COMS)

(RPAQQ RHTPATCH316COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH316 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH316 FILETYPE)))
                        
          
          (* ;; 

          "Fixes (partially) the problem with duplicate text props on the TEXTOBJ of text cards.")


                        
          
          (* ;; " Change to NCTEXTCARD")


                        (FNS NC.BringUpTEditCard)))
(DECLARE%: DONTCOPY 

(PUTPROPS RHTPATCH316 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS RHTPATCH316 FILETYPE
 :TCOMPL)
)



(* ;; "Fixes (partially) the problem with duplicate text props on the TEXTOBJ of text cards.")





(* ;; " Change to NCTEXTCARD")


(DEFINEQ

(NC.BringUpTEditCard

  [LAMBDA (Card TextStream RegionOrPosition)
                 (* ; "Edited 28-Apr-88 14:51 by Trigg")

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

          
          (* ;; "rg 11/6/87 now waits for TEdit process to get going after TEDIT call")

          
          (* ;; "pmi 2/9/88: Now checks to see if RegionOrPosition is different from current region or position of card before calling SHAPEW, which could needlessly repaint the window otherwise.")

          
          (* ;; " pmi 2/18/88: Removed one of the two FLASHWs.  Fixed up check for same position to be a little more efficient.")

          
          (* ;; "rht 4/28/88: Removed call to NC.MakeTEditPropsList from within call to TEDIT.  That call already happens in NC.GetTextSubstance.")


    (LET (Region TEditWindow WindowRegion TEditProcess Title TextStreamDirtyFlg Type TEditProcess)
         (if
 (SETQ TEditWindow (NC.FetchWindow Card))
             then
 (TOTOPW TEditWindow)
                  [if
 RegionOrPosition
                      then
 (if
 (REGIONP RegionOrPosition)
                               then
 (if
 [NOT (EQUAL RegionOrPosition (WINDOWPROP TEditWindow
                                                                            'REGION]
                                        then
 (SHAPEW TEditWindow (NC.DetermineDisplayRegion Card 
                                                                        RegionOrPosition)))
                             elseif
 (POSITIONP RegionOrPosition)
                               then
 (SETQ WindowRegion (WINDOWPROP TEditWindow 'REGION))
                                    (if
 [NOT (AND (EQUAL (fetch
 (POSITION XCOORD) of
 RegionOrPosition
                                                                )
                                                         (fetch
 (REGION LEFT) of
 WindowRegion))
                                                  (EQUAL (fetch
 (POSITION YCOORD) of
 RegionOrPosition
                                                                )
                                                         (fetch
 (REGION BOTTOM) of
 WindowRegion]
                                        then
 (SHAPEW TEditWindow (NC.DetermineDisplayRegion Card 
                                                                        RegionOrPosition]
                  (FLASHW TEditWindow)
                  (if
 (SETQ TEditProcess (WINDOWPROP TEditWindow '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)) 
                                                             (* ; 

                                             "Make a prompt window 'invisibly' so it gets hooked in.")


                (NC.AttachPromptWindowOffScreen TEditWindow)
                (WINDOWADDPROP TEditWindow 'SHRINKFN (FUNCTION NC.TextCardShrinkFn))
                (NC.InstallTitleBarLeftMenu TEditWindow Type)
                (NC.InstallTextTitleBarMiddleMenu TEditWindow Type)
                (SETQ TextStreamDirtyFlg (NC.CardDirtyP Card))
                (SETQ TEditProcess (TEDIT TextStream TEditWindow)) 
                                                             (* ; "wait for process to get established.  Otherwise, the TEdit killer, called by MakeReadOnly, may fail")


                (until
 (TEDIT-PROCESS-P TEditProcess) do
 (BLOCK))
                (AND TextStreamDirtyFlg (NC.MarkCardDirty Card)))
         TEditWindow])
)
(PUTPROPS RHTPATCH316 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1069 6465 (NC.BringUpTEditCard 1079 . 6463)))))
STOP