XEROX TILEDEDIT 2 4 1 TILEDEDIT 1 4 By: Jeff Shrager (Shrager.pa@Xerox.com) INTRODUCTION This replaces the normal DEdit window creation function (MAKEEDITW) with one that causes the editor windows to come up top-to-bottom, left-to-right non-overlapping. It leaves just the right amount of room for the menu, scroll bars and entry windows in the appropriate places. The main win is that you don't have to think about where to put your next editor window, and since they are always non-overlapping you avoid the nasty back-and-forth topping effect if you select between windows. I've gotten so used to this that I use it 100% of the time, now, and wouldn't ever go back to the old way. (By the way, I don't mean to advocate tiled windows in general. This seems more natural to me, in this case.) Notes: DEDITK users have a wider DEdit menu, which this package takes into account, but the loading order may be important. If both are loaded before the first use of DEdit, I think that it works properly, but some sequence of RESEDEDIT's and DEDITK's might be necessary if one or the other of these is loaded after DEdit has already been started up once. I use (GETD 'DEDITK) to tell if the package is in or not. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC ) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 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 RUNNINGHEADMODERN MODERN MODERN MODERNLOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ) {  õ%™Æ3zº