(FILECREATED "11-Dec-87 13:57:25" ("compiled on " {ICE}LISPUSERS>KOTO>TILED-SEDIT.;4) "12-Nov-85 14:59:23" recompiled changes: POST.TILED.SEDIT.GET.WINDOW.REGION in "INTERLISP-D 28-Oct-87 ..." dated "28-Oct-87 09:02:30") (FILECREATED "11-Dec-87 13:57:15" {ICE}LISPUSERS>KOTO>TILED-SEDIT.;4 11196 changes to: (FNS POST.TILED.SEDIT.GET.WINDOW.REGION) previous date: "13-Nov-87 15:37:50" {ICE}LISPUSERS>KOTO>TILED-SEDIT.;3) TILED.SEDIT.RESET D1 (L (3 SCREEN 2 YSHIFT 1 XSHIFT 0 TILING-ORDER) F 12Q :TL F 13Q :BL F 14Q :CREATE F 15Q :TR F 16Q :BR) - @diWWWWh@AHIH bHd A3 lB3 lCd C3 lHd`H`H b` C`_C__`dC^]O`d\OH`dZOLHO ONHO JKHO IMHO `hh\H^JHhHHLgLgLgLdgWagLgLgLdgWCgLgLgLdgW%gLgLgLgWoL J KhZwK&q]g YH[MIJZL7dIKM_d OW Nd_OW h@hggg @hggg @(1051Q TILED.SEDIT.SWITCHFN 1032Q TILED.SEDIT.SWITCHFN 1004Q SHAPEW 1001Q POST.TILED.SEDIT.GET.WINDOW.REGION 756Q SHAPEW 753Q POST.TILED.SEDIT.GET.WINDOW.REGION 741Q WINDOWP 667Q GETWINDOWUSERPROP 635Q ERROR 376Q OPENWINDOWS 351Q CREATEREGION 335Q CREATEREGION 321Q CREATEREGION 304Q CREATEREGION 163Q CREATEREGION 127Q REGIONP 65Q \NCONC2 55Q COPY) (1046Q POST.TILED.SEDIT.SAVE.WINDOW.REGION 1043Q PRE.TILED.SEDIT.SAVE.WINDOW.REGION 1040Q SEDIT.SAVE.WINDOW.REGION 1027Q POST.TILED.SEDIT.GET.WINDOW.REGION 1024Q PRE.TILED.SEDIT.GET.WINDOW.REGION 1021Q SEDIT.GET.WINDOW.REGION 664Q EditContext 620Q :BOTTOM.RIGHT 612Q :BOTTOM-RIGHT 604Q :BOTTOMRIGHT 575Q :BR 563Q :TOP.RIGHT 554Q :TOP-RIGHT 546Q :TOPRIGHT 537Q :TR 525Q :BOTTOM.LEFT 516Q :BOTTOM-LEFT 510Q :BOTTOMLEFT 501Q :BL 467Q :TOP.LEFT 460Q :TOP-LEFT 452Q :TOPLEFT 443Q :TL 372Q *TiledSEditRegions* 360Q *TiledSEditRegions* 354Q *TiledSEditNextBottomRightRegion* 340Q *TiledSEditNextTopRightRegion* 324Q *TiledSEditNextBottomLeftRegion* 307Q *TiledSEditNextTopLeftRegion* 265Q *TiledSEditXShift* 251Q *TiledSEditYShift* 234Q *TiledSEditYShift* 213Q *TiledSEditYShift* 174Q *TiledSEditXShift* 156Q SCREENHEIGHT 151Q SCREENWIDTH 121Q *TiledSEditYShift* 106Q *TiledSEditXShift* 73Q *TiledSEditNextCornerPtr* 70Q *TiledSEditCorners* 5 *TiledSEditRegions*) ( 631Q "Unsupported TILING-ORDER spec:") POST.TILED.SEDIT.GET.WINDOW.REGION D1 (L (1 REASON 0 CONTEXT)) /`H@ `I I YdHX@(35Q COPY 26Q TCONC 16Q TILED.SEDIT.NEW.REGION) (22Q *TiledSEditRegions* 2 *TiledSEditRegions*) () POST.TILED.SEDIT.SAVE.WINDOW.REGION D1 (L (1 REASON 0 CONTEXT)) `Hhd@HXhNIL (2 *TiledSEditRegions*) () TILED.SEDIT.NEW.REGION D1 (L (0 CONTEXT)) ^``dg`)dg`dg`g`o H Hd`HH`@I(105Q COPY 76Q SHOULDNT) (126Q *TiledSEditYShift* 114Q *TiledSEditXShift* 66Q *TiledSEditNextBottomRightRegion* 61Q :BR 55Q *TiledSEditNextTopRightRegion* 47Q :TR 41Q *TiledSEditNextBottomLeftRegion* 33Q :BL 25Q *TiledSEditNextTopLeftRegion* 17Q :TL 12Q *TiledSEditNextCornerPtr* 6 *TiledSEditNextCornerPtr* 2 *TiledSEditNextCornerPtr*) ( 73Q "Bad corner spec!") TILED.SEDIT.SWITCHFN D1 (L (3 REPLFN 2 SAVEFN 1 FN 0 RESTOREFLG)) !B BA A@Cd B (36Q PUTD 33Q GETD 25Q DEFINEDP 14Q PUTD 11Q GETD 3 DEFINEDP) NIL () MKKEYWORD D1 (L (0 X)) :@d 0@d IHhZH&J l:o@ @d (67Q SETTOPVAL 61Q PACK* 45Q CHCON1 20Q MKKEYWORD) NIL ( 55Q ":") (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 ") (LOCALVARS . T) (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) (GLOBALVARS *TiledSEditXShift* *TiledSEditYShift* *TiledSEditRegions* *TiledSEditRegionWidth* *TiledSEditRegionHeight* *TiledSEditCorners* *TiledSEditNextCornerPtr* *TiledSEditNextTopLeftRegion* *TiledSEditNextBottomLeftRegion* *TiledSEditNextTopRightRegion* *TiledSEditNextBottomRightRegion*) ( COMS (* ;; "KOTO compatibility") (FILES SEDIT-PATCHES) (* ;; "Fake keywords for Koto") (FNS MKKEYWORD) (P (MKKEYWORD (QUOTE ((:TL :TOPLEFT :TOP-LEFT :TOP.LEFT) (:BL :BOTTOMLEFT :BOTTOM-LEFT :BOTTOM.LEFT) (:TR :TOPRIGHT :TOP-RIGHT :TOP.RIGHT) (:BR :BOTTOMRIGHT :BOTTOM-RIGHT :BOTTOM.RIGHT)))))) (* ;; "Set up the world") (P (TILED.SEDIT.RESET T)))) (RPAQ? *TiledSEditMargin* 25) (RPAQ? *TiledSEditXShift* 15) (RPAQ? *TiledSEditYShift* 15) (RPAQ? *TiledSEditRegions* NIL) (RECORD TILED.SEDIT.REGION (TSR.CONTEXT . TSR.REGION)) (FILESLOAD SEDIT-PATCHES) (MKKEYWORD (QUOTE ((:TL :TOPLEFT :TOP-LEFT :TOP.LEFT) (:BL :BOTTOMLEFT :BOTTOM-LEFT :BOTTOM.LEFT) (:TR :TOPRIGHT :TOP-RIGHT :TOP.RIGHT) (:BR :BOTTOMRIGHT :BOTTOM-RIGHT :BOTTOM.RIGHT)))) (TILED.SEDIT.RESET T) (PUTPROPS TILED-SEDIT COPYRIGHT ("Johannes A. G. M. Koomen" 1987)) NIL