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

(FILECREATED "24-Apr-88 17:24:39" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH315.;2
 4168   

      changes to%:  (FNS NC.TextCardShrinkFn)
                    (VARS RHTPATCH315COMS)

      previous date%: "24-Apr-88 16:50:31" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH315.;1)


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

(PRETTYCOMPRINT RHTPATCH315COMS)

(RPAQQ RHTPATCH315COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH315 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH315 FILETYPE)))
                        
          
          (* ;; "Occasionally, when shrinking a text card, you got some random stream object as the icon title.  That's because \TEDIT.SHRINK.ICONCREATE was foolishly calling ICONTITLE with bad args.  This patch makes \TEDIT.SHRINK.ICONCREATE leave us alone by having our ShrinkFn set the TEDIT.ICON.TITLE windowprop to nil.")


                        
          
          (* ;; "Change to NCTEXTCARD")


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

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

(PUTPROPS RHTPATCH315 FILETYPE
 :TCOMPL)
)



(* ;; 
"Occasionally, when shrinking a text card, you got some random stream object as the icon title.  That's because \TEDIT.SHRINK.ICONCREATE was foolishly calling ICONTITLE with bad args.  This patch makes \TEDIT.SHRINK.ICONCREATE leave us alone by having our ShrinkFn set the TEDIT.ICON.TITLE windowprop to nil."
)





(* ;; "Change to NCTEXTCARD")


(DEFINEQ

(NC.TextCardShrinkFn

  [LAMBDA (W)
                                                (* ; "Edited 24-Apr-88 17:22 by Trigg")


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

          
          (* ;; "rht 4/24/88: Now trashes TEDIT.ICON.TITLE prop to be NIL rather than %"%" to prevent \TEDIT.SHRINK.ICONCREATE from undoing our work.")


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


         (if
 NC.DelTEditProcessAtShrinkFlg
             then
 (KILL-PROCESS-OF-TEDIT-WINDOW W])
)
(PUTPROPS RHTPATCH315 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1627 4085 (NC.TextCardShrinkFn 1637 . 4083)))))
STOP