(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Nov-2023 23:48:28" ("compiled on " {WMEDLEY}REGIONMANAGER.;133) " 2-Nov-2023 12:12:28" brecompiled changes%: RM-CREATEW in "FULL 2-Nov-2023 ..." dated " 2-Nov-2023 12:12:32") (FILECREATED " 2-Nov-2023 23:48:28" {WMEDLEY}REGIONMANAGER.;133 41064 :EDIT-BY rmk :CHANGES-TO (FNS RM-CREATEW) :PREVIOUS-DATE "10-Oct-2023 22:19:05" {WMEDLEY}REGIONMANAGER.;129) SET-TYPED-REGIONS :D8 (P 6 R P 4 PREV P 3 REGIONS P 2 TYPE P 1 TL I 1 REPLACE I 0 TYPELISTS) @d3@@hhb@d3@@hb@AHhYIJJd3@KM6ioK K J`\&JK`HX^ hM]AKKL (140 \NCONC2 119 REGIONP 81 COPY 74 ERROR) (106 TYPED-REGIONS 100 TYPED-REGIONS 88 TYPED-REGIONS) ( 68 "Not a TYPED-REGIONS specification") GRAB-TYPED-REGION :D8 (I 2 MINHEIGHT I 1 MINWIDTH I 0 REGION-TYPE) :@`HhY` AAIBBIIHX(28 GETHASH) (23 REGION-INUSE-HASH 5 TYPED-REGIONS) () REGISTER-TYPED-REGION :D8 (P 0 TREGIONLIST I 2 WINDOW I 1 REGION-TYPE I 0 REGION) [AX@B bA`Ah`@dH H@h @i` BgA@ @(87 PUTWINDOWPROP 73 PUTHASH 60 \NCONC2 49 MEMB 10 WINDOWREGION) (79 TYPED-REGION 68 REGION-INUSE-HASH 36 TYPED-REGIONS 30 TYPED-REGIONS 19 TYPED-REGIONS) () REGION-TYPE :D8 (I 1 TYPE I 0 X) C@ &A@A` A`Hh@I IiHX(53 MEMB 24 MEMB 5 REGIONP) (33 TYPED-REGIONS 17 TYPED-REGIONS) () RM-CREATEW :D8 (P 2 REGION-TYPE P 1 WINDOW P 0 RTPROP I 4 PROPS I 3 NOOPENFLG I 2 BORDERSIZE I 1 TITLE I 0 REGION) kDg'!@d3@@;Hd3@HZ@ @ H H bJ@J bhb@ABCD YJ@JI I(103 REGISTER-TYPED-REGION 92 CREATEW.ORIG 72 GRAB-TYPED-REGION 57 SCREENREGIONP 49 REGIONP 41 SCREENREGIONP 33 REGIONP) (5 REGION-TYPE) () RM-CLOSEW :D8 (P 6 TREGIONLIST P 5 WREGION P 4 PWINDOW P 3 TREGION P 2 REGIONTYPE P 1 TYPEDREGION P 0 CLOSEVAL I 0 WINDOW) @g !II@g ddh L@ L  @ Jd`Jh`@ XGICKM"KMKMKMKMNKh` @gh HKdN (203 DREMOVE 192 PUTWINDOWPROP 179 PUTHASH 121 CLOSEW.ORIG 80 \INSUREWINDOW 73 UNIONREGIONS 66 \INSUREWINDOW 58 \INSUREWINDOW 46 WINDOWP 33 GETWINDOWUSERPROP 13 GETWINDOWUSERPROP) (186 TYPED-REGION 174 REGION-INUSE-HASH 111 TYPED-REGIONS 105 TYPED-REGIONS 94 TYPED-REGIONS 28 PROMPTWINDOW 8 TYPED-REGION) () RM-GETREGION :D8 (P 2 TYPELIST P 1 REGION P 0 REGION-TYPE I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH) PBd3@B!H@A Yd@AHhBCDE HI`Hh`Ih (75 \NCONC2 38 GETREGION.ORIG 18 GRAB-TYPED-REGION) (66 TYPED-REGIONS 60 TYPED-REGIONS 49 TYPED-REGIONS) () CLOSE-TYPED-W :D8 (P 2 R P 1 W I 0 TYPE F 3 WT) :@!HhYg cS@@S@I HX(50 CLOSEW 28 GETWINDOWUSERPROP 7 OPENWINDOWS) (23 TYPED-REGION) () RELCREATEREGION :D8 (P 3 TOP P 2 RIGHT P 1 BOTTOM P 0 LEFT I 6 ONSCREEN I 5 REFY I 4 REFX I 3 CORNERY I 2 CORNERX I 1 HEIGHT I 0 WIDTH) #@d# A@ lg@ @g bAg bBgbCgbBCBbBbD EDb Db%Dg bEg b DEH@IABgHZ@ٸCgI[AٹFRjH@ldHHldbjjIAldIIldbjJ`@`JbK`A`KbHI@A (288 CREATEREGION 149 \RELCREATEREGION.REF 135 \RELCREATEREGION.REF 123 GETMOUSESTATE 104 POSITIONP 60 \RELCREATEREGION.SIZE 47 \RELCREATEREGION.SIZE 35 APPLY 20 LENGTH 9 REGIONP) (273 SCREENHEIGHT 265 SCREENHEIGHT 253 SCREENWIDTH 245 SCREENWIDTH 189 TOP 176 RIGHT 144 Y 130 X 79 BOTTOM 69 LEFT 55 Y 42 X 29 RELCREATEREGION) () RELGETREGION :D8 (P 6 OPPY P 5 OPPX P 4 RHEIGHT P 3 RWIDTH P 2 BASEY P 1 BASEX P 0 REGION I 6 MINSIZE I 5 REFY I 4 REFX I 3 CORNERY I 2 CORNERX I 1 HEIGHT I 0 WIDTH) @Bd4C/BbBb$ A@ lg@ BgbCgb@ @ABCDEi AHHHHIKJLBgMICgNJMN Fh[\KLHhdIJMNh (188 GETREGION 162 \CURSORPOSITION 98 RELCREATEREGION 83 REGIONP 56 APPLY 40 LENGTH 29 REGIONP) (149 TOP 137 RIGHT 74 BOTTOM 64 LEFT 50 RELGETREGION) () RELCREATEPOSITION :D8 (I 1 REFY I 0 REFX) @g Ag (26 CREATEPOSITION 21 \RELCREATEREGION.REF 10 \RELCREATEREGION.REF) (16 Y 5 X) () \RELCREATEREGION.REF :D8 (P 5 SPEC P 4 FRACTION P 3 SIZE P 2 VAL P 1 ANCHOR P 0 BASE I 1 WHICH I 0 REF) >jQ@Ag``3 j@@@dgjg)Agi i @d =@ @ *@dgggi Y@]Ag4Idg`IMddgj@g6k5Idg`IMddgjgkMHLK ZMdMJ@ (315 \ILLEGAL.ARG 295 ROUND 165 \INSUREWINDOW 160 WFROMDS 123 \INSUREWINDOW 115 WINDOWP 106 REGIONP 88 \INSUREWINDOW 83 WFROMDS 73 \INSUREWINDOW 68 WFROMDS) (279 TOP 269 BOTTOM 249 SCREENHEIGHT 241 SCREEN 228 RIGHT 217 LEFT 199 SCREENWIDTH 191 SCREEN 181 X 151 TTY 143 SCREEN 135 SCREEN 60 X 51 TTY 42 SCREEN 25 LASTMOUSEY 19 LASTMOUSEX 12 X) () \RELCREATEREGION.SIZE :D8 (P 2 SPEC P 1 ANCHOR P 0 VAL I 1 WHICH I 0 PARAM) 80@d3 . @ @ YAgII@d D@ @ 1@dgggi @ YOAgIdg`Idg`X@ZdddH JHJHgAg``@dg5Agi g i g  (309 \ILLEGAL.ARG 299 WINDOWREGION 289 WFROMDS 279 WINDOWREGION 269 WFROMDS 202 ROUND 134 \ILLEGAL.ARG 124 \INSUREWINDOW 119 WFROMDS 83 \INSUREWINDOW 75 WINDOWP 66 REGIONP 31 WINDOWREGION 23 WINDOWP 15 REGIONP) (294 REGION 274 REGION 260 X 250 TTY 242 SCREENHEIGHT 236 SCREENWIDTH 229 X 220 SCREEN 179 SCREENHEIGHT 171 SCREEN 162 SCREENWIDTH 153 SCREEN 143 X 111 TTY 103 SCREEN 95 SCREEN 40 X) () RM-ATTACHWINDOW :D8 (P 6 VAL P 5 NEWCENTRALREGION P 4 ORIGALLREGION P 3 NEWALLREGION P 2 CENTRALREGION P 1 MIN P 0 CENTRALWINDOW I 5 TAKEFROMCENTRAL I 4 WINDOWCOMACTION I 3 POSITIONONEDGE I 2 EDGE I 1 MAINWINDOW I 0 WINDOWTOATTACH) A aEHg H H @ABCD ^LwH LKiBdg-JLKJJKLJJg%JJJKLJJkBdg(JJJJKLJ;g.JJLKJJKLJ@A HM @ABCD LH iBgBdg@g Lhh.gBg@g LhhiLA D@gD N(425 PUTWINDOWPROP 409 HELP 404 ATTACHEDWINDOWREGION 379 ATTACHEDWINDOWREGION 337 ATTACHEDWINDOWREGION 304 ATTACHEDWINDOWREGION 296 ATTACHWINDOW.ORIG 284 SHAPEW 276 DETACHWINDOW 268 SHOULDNT 59 ATTACHEDWINDOWREGION 47 ATTACHWINDOW.ORIG 35 WINDOWREGION 28 ATTACHEDWINDOWREGION 21 GETWINDOWUSERPROP 5 CENTRALWINDOW) (419 PASSTOMAINCOMS 374 REGION 365 RIGHT 357 LEFT 332 REGION 322 BOTTOM 313 TOP 216 BOTTOM 170 TOP 125 RIGHT 74 LEFT 16 UNDERCONSTRUCTION) () CLOSEWITH :D8 (P 2 ONE P 1 C I 1 PARENT I 0 CHILDREN) D@!HJAgg AdhHII YiAgI (63 WINDOWADDPROP 46 WFROMDS 24 WINDOWADDPROP) (57 CLOSECHILDREN 19 CLOSEWITH.DOIT 14 CLOSEFN) () CLOSEWITH.DOIT :D8 (P 1 C I 0 PARENT) 6@g H@gh @Y I HX(46 CLOSEW 39 OPENWP 30 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (24 CLOSECHILDREN 5 CLOSECHILDREN) () MOVEWITH :D8 (P 2 ONE P 1 C I 1 PARENT I 0 CHILDREN) D@!HJAgg AdhHII YiAgI (63 WINDOWADDPROP 46 WFROMDS 24 WINDOWADDPROP) (57 MOVECHILDREN 19 MOVEWITH.DOIT 14 MOVEFN) () MOVEWITH.DOIT :D8 (P 2 C P 1 DELTA I 1 NEWPOS I 0 PARENT) :@g A@ H@ZIJ HX(50 MOVEW 45 PTPLUS 40 WINDOWPOSITION 22 PTDIFFERENCE 17 WINDOWPOSITION 10 GETWINDOWUSERPROP) (5 MOVECHILDREN) () (PRETTYCOMPRINT REGIONMANAGERCOMS) (RPAQQ REGIONMANAGERCOMS ((* ;; "Typed regions") (COMS (FNS SET-TYPED-REGIONS GRAB-TYPED-REGION REGISTER-TYPED-REGION REGION-TYPE) (FNS RM-CREATEW RM-CLOSEW RM-GETREGION CLOSE-TYPED-W) (INITVARS ( TYPED-REGIONS)) (GLOBALVARS TYPED-REGIONS) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS TYPED-REGION)) ( INITRECORDS TYPED-REGION) (P (MOVD? (QUOTE CREATEW) (QUOTE CREATEW.ORIG)) (MOVD? (QUOTE CLOSEW) (QUOTE CLOSEW.ORIG)) (MOVD? (QUOTE GETREGION) (QUOTE GETREGION.ORIG)) (MOVD (QUOTE RM-CREATEW) (QUOTE CREATEW)) (MOVD (QUOTE RM-CLOSEW) (QUOTE CLOSEW)) (MOVD (QUOTE RM-GETREGION) (QUOTE GETREGION)))) (* ;; "Relative regions") (COMS (FNS RELCREATEREGION RELGETREGION RELCREATEPOSITION) (FNS \RELCREATEREGION.REF \RELCREATEREGION.SIZE)) (* ;; "Composite application construction") (COMS (FNS RM-ATTACHWINDOW) (FNS CLOSEWITH CLOSEWITH.DOIT MOVEWITH MOVEWITH.DOIT) (P (MOVD? (QUOTE ATTACHWINDOW) (QUOTE ATTACHWINDOW.ORIG)) (MOVD (QUOTE RM-ATTACHWINDOW) (QUOTE ATTACHWINDOW))) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS RFIELDDIFF))))) (RPAQ? TYPED-REGIONS) (GLOBALVARS REGION-INUSE-HASH) (SETUPHASHARRAY (QUOTE REGION-INUSE-HASH) NIL) (MOVD? (QUOTE CREATEW) (QUOTE CREATEW.ORIG)) (MOVD? (QUOTE CLOSEW) (QUOTE CLOSEW.ORIG)) (MOVD? (QUOTE GETREGION) (QUOTE GETREGION.ORIG)) (MOVD (QUOTE RM-CREATEW) (QUOTE CREATEW)) (MOVD (QUOTE RM-CLOSEW) (QUOTE CLOSEW)) (MOVD (QUOTE RM-GETREGION) (QUOTE GETREGION)) (MOVD? (QUOTE ATTACHWINDOW) (QUOTE ATTACHWINDOW.ORIG)) (MOVD (QUOTE RM-ATTACHWINDOW) (QUOTE ATTACHWINDOW)) NIL