XEROX TEDIT-CLOSE-ON-SHRINK 2 4 1 TEdit-Close-On-Shrink 1 4 By: Nick Briggs (Briggs.pa@Xerox.com) Uses: TEdit This document last edited on August 4, 1987. INTRODUCTION TEdit has the unfortunate habit of keeping the file you are editing open when you shrink the TEdit window. For users of the FileCache this has the unfortunate sideeffect of preventing a newly saved file from being written out. In places where many people are editing files on file servers can lead to an excessive number of open files. TEdit-Close-On-Shrink attempts to handle some of the problem by persuading TEdit to close unmodified files when the edit window is shrunken. USE Load the package. It will install itself in the appropriate places (for the curious: that's TEDIT.CREATEW, \TEDIT.CREATEW.FROM.REGION, and \TEDIT.REOPEN.STREAM; and the shrink function \TEDIT-CLOSE-ON-SHRINK). (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))).È È(È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADTERMINAL MODERN MODERN MODERN MODERNLOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN ' - á] h0zº