(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED "14-Sep-94 18:39:26" ("compiled on " {DSK}lispusers>TILED-SEDIT.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "24-Oct-89 13:33:24" {ICE}LISPUSERS>MEDLEY>TILED-SEDIT.;5 8741 changes to%: (FNS POST.TILED.SEDIT.SAVE.WINDOW.REGION TILED.SEDIT.RESET POST.TILED.SEDIT.GET.WINDOW.REGION) (VARS TILED-SEDITCOMS) previous date%: "18-Jan-88 14:40:28" {ICE}LISPUSERS>MEDLEY>TILED-SEDIT.;1) TILED.SEDIT.RESET :D8 (L (3 SCREEN 2 YSHIFT 1 XSHIFT 0 TILING-ORDER))  @ddigggghAH.IH bHd A3 lB3 lCd %C3 lHd`H`H b` C`_C__`dC^]O``\OH``ZOLHO ONHO JKHO IMHO `hh\H^J>HhHHLgLgLgLdgggLgLgLdgg]gLgLgLdgg3gLgLgLggoL J KhZK&]g YH[MIJZLdIKM_d Og Nd_Og h@hggg @hggg @(717 TILED.SEDIT.SWITCHFN 694 TILED.SEDIT.SWITCHFN 664 SHAPEW 659 POST.TILED.SEDIT.GET.WINDOW.REGION 635 SHAPEW 630 POST.TILED.SEDIT.GET.WINDOW.REGION 614 WINDOWP 570 GETWINDOWUSERPROP 540 ERROR 330 OPENWINDOWS 301 CREATEREGION 285 CREATEREGION 269 CREATEREGION 252 CREATEREGION 151 CREATEREGION 117 REGIONP 73 \NCONC2 63 COPY) (712 POST.TILED.SEDIT.SAVE.WINDOW.REGION 707 PRE.TILED.SEDIT.SAVE.WINDOW.REGION 702 SEDIT:SAVE-WINDOW-REGION 689 POST.TILED.SEDIT.GET.WINDOW.REGION 684 PRE.TILED.SEDIT.GET.WINDOW.REGION 679 SEDIT:GET-WINDOW-REGION 654 :CREATE 625 :CREATE 565 SEDIT::EDIT-CONTEXT 528 :BR 521 :BOTTOM.RIGHT 513 :BOTTOM-RIGHT 505 :BOTTOMRIGHT 496 :BR 489 :TR 481 :TOP.RIGHT 472 :TOP-RIGHT 463 :TOPRIGHT 454 :TR 447 :BL 439 :BOTTOM.LEFT 430 :BOTTOM-LEFT 421 :BOTTOMLEFT 412 :BL 404 :TL 396 :TOP.LEFT 387 :TOP-LEFT 378 :TOPLEFT 369 :TL 324 *TiledSEditRegions* 312 *TiledSEditRegions* 306 *TiledSEditNextBottomRightRegion* 290 *TiledSEditNextTopRightRegion* 274 *TiledSEditNextBottomLeftRegion* 257 *TiledSEditNextTopLeftRegion* 238 *TiledSEditXShift* 232 *TiledSEditXShift* 220 *TiledSEditYShift* 214 *TiledSEditYShift* 198 *TiledSEditYShift* 179 *TiledSEditYShift* 162 *TiledSEditXShift* 144 SCREENHEIGHT 137 SCREENWIDTH 109 *TiledSEditYShift* 96 *TiledSEditXShift* 83 *TiledSEditNextCornerPtr* 78 *TiledSEditCorners* 36 :BR 31 :TR 26 :BL 21 :TL 7 *TiledSEditRegions*) ( 534 "Unsupported TILING-ORDER spec:") POST.TILED.SEDIT.GET.WINDOW.REGION :D8 (L (1 REASON 0 CONTEXT) F 2 SEDIT:KEEP-WINDOW-REGION) oRAg`H/h%`H7@ `I I @@ HXYdHX@(87 WINDOWREGION 68 COPY 59 TCONC 47 TILED.SEDIT.NEW.REGION) (80 SEDIT::EDIT-CONTEXT 53 *TiledSEditRegions* 33 *TiledSEditRegions* 16 *TiledSEditRegions* 8 :EXPAND) () POST.TILED.SEDIT.SAVE.WINDOW.REGION :D8 (L (1 REASON 0 CONTEXT) F 1 SEDIT:KEEP-WINDOW-REGION) *QAg`Hhd@HXhNIL (14 *TiledSEditRegions* 7 :SHRINK) () TILED.SEDIT.NEW.REGION :D8 (L (0 CONTEXT)) ~``dg`9dg`)dg`g`o H Hd`HH`@I(97 COPY 88 SHOULDNT) (118 *TiledSEditYShift* 106 *TiledSEditXShift* 77 *TiledSEditNextBottomRightRegion* 70 :BR 63 *TiledSEditNextTopRightRegion* 55 :TR 47 *TiledSEditNextBottomLeftRegion* 39 :BL 31 *TiledSEditNextTopLeftRegion* 23 :TL 16 *TiledSEditNextCornerPtr* 10 *TiledSEditNextCornerPtr* 4 *TiledSEditNextCornerPtr*) ( 83 "Bad corner spec!") TILED.SEDIT.SWITCHFN :D8 (L (3 REPLFN 2 SAVEFN 1 FN 0 RESTOREFLG)) -B BA A@Cd B (42 PUTD 37 GETD 29 DEFINEDP 18 PUTD 13 GETD 5 DEFINEDP) NIL () (PRETTYCOMPRINT TILED-SEDITCOMS) (RPAQQ TILED-SEDITCOMS ((* ;;; "Provides a similar facility for SEdit as the LispUsers package TILEDEDIT provides for DEdit, i.e., instead of prompting the user for regions, generates successive regions in a circular fashion, eachtime throught the full window loop offsetting the next window by 12,-12. Users can select their preference through the TILING-ORDER argument to the function TILED.SEDIT.RESET, which must be either NIL (no tiling), T (default tiling order) or a list of the symbols TL (top-left) TR (top-right) BL (bottom-left) and BR (bottom-right)" ) (* ;; "User Interface") (FNS TILED.SEDIT.RESET) (* ;; "Support ") (PROP MAKEFILE-ENVIRONMENT TILED-SEDIT) (INITVARS (*TiledSEditMargin* 25) (*TiledSEditXShift* 15) (*TiledSEditYShift* 15) ( *TiledSEditRegions* NIL)) (RECORDS TILED.SEDIT.REGION) (FNS POST.TILED.SEDIT.GET.WINDOW.REGION POST.TILED.SEDIT.SAVE.WINDOW.REGION TILED.SEDIT.NEW.REGION TILED.SEDIT.SWITCHFN) (DECLARE%: EVAL@COMPILE DONTEVAL@LOAD DONTCOPY (P (OR (HASDEF (QUOTE SEDIT::EDIT-CONTEXT) (QUOTE RECORDS)) (EVAL (SYSRECLOOK1 (QUOTE SEDIT::EDIT-CONTEXT))))) (LOCALVARS . T) (GLOBALVARS *TiledSEditXShift* *TiledSEditYShift* *TiledSEditRegions* *TiledSEditRegionWidth* *TiledSEditRegionHeight* *TiledSEditKeepWhenShrunk* *TiledSEditCorners* *TiledSEditNextCornerPtr* *TiledSEditNextTopLeftRegion* *TiledSEditNextBottomLeftRegion* *TiledSEditNextTopRightRegion* *TiledSEditNextBottomRightRegion*)) ( DECLARE%: DONTEVAL@COMPILE DONTEVAL@LOAD DOCOPY (P (TILED.SEDIT.RESET T))))) (PUTPROPS TILED-SEDIT MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) (RPAQ? *TiledSEditMargin* 25) (RPAQ? *TiledSEditXShift* 15) (RPAQ? *TiledSEditYShift* 15) (RPAQ? *TiledSEditRegions* NIL) (RECORD TILED.SEDIT.REGION (TSR.CONTEXT . TSR.REGION)) (TILED.SEDIT.RESET T) (PUTPROPS TILED-SEDIT COPYRIGHT ("Johannes A. G. M. Koomen" 1987 1988 1989)) NIL