From 0c670bbc564499f72c17bbfbc0eb24a7da4059b4 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 26 Dec 2021 15:50:14 -0800 Subject: [PATCH] EXAMINEDEFS: Remove EXAMINEDEFS-REGION Replaced by equivalent functionality in new package REGIONMANAGER --- lispusers/EXAMINEDEFS | 37 +++++++++++++----------------------- lispusers/EXAMINEDEFS.LCOM | Bin 2236 -> 1982 bytes lispusers/EXAMINEDEFS.TEDIT | Bin 4371 -> 3733 bytes 3 files changed, 13 insertions(+), 24 deletions(-) diff --git a/lispusers/EXAMINEDEFS b/lispusers/EXAMINEDEFS index cfea6c5c..d023e48b 100644 --- a/lispusers/EXAMINEDEFS +++ b/lispusers/EXAMINEDEFS @@ -1,22 +1,23 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Dec-2021 11:06:33"  -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;7 6367 +(FILECREATED "26-Dec-2021 11:01:08"  +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;15 5866 - :CHANGES-TO (FNS EXAMINEDEFS) + :CHANGES-TO (VARS EXAMINEDEFSCOMS) - :PREVIOUS-DATE "19-Dec-2021 22:45:48" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;5) + :PREVIOUS-DATE "24-Dec-2021 22:40:09" +{DSK}kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;14) (PRETTYCOMPRINT EXAMINEDEFSCOMS) -(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS EXAMINEDEFS-REGION) +(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS) (INITVARS (EXAMINEDEFS-PROCESS-LIST)))) (DEFINEQ (EXAMINEDEFS - [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 20-Dec-2021 11:06 by rmk") + [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) (* ; "Edited 24-Dec-2021 22:39 by rmk") + (* ; "Edited 20-Dec-2021 11:06 by rmk") (* ;; "This provides for side-by-side examination of separate but presumably related expressions. The (LISTP) expressions can be provided directly as SOURCE1 and SOURCE2 or, if NAME is given the copies of the definitions of NAME as TYPE on the two sources are examined.") @@ -45,9 +46,11 @@ ELSEIF (GETDEF NAME TYPE SOURCE2) ELSE (ERROR NAME " not found on " SOURCE2))) (CL:UNLESS TITLE1 - (SETQ TITLE1 (OR SOURCE1 "File 1"))) + (SETQ TITLE1 (OR (AND SOURCE1 (LITATOM SOURCE1)) + "File 1"))) (CL:UNLESS TITLE2 - (SETQ TITLE2 (OR SOURCE2 "File 2"))) + (SETQ TITLE2 (OR (AND SOURCE2 (LITATOM SOURCE2)) + "File 2"))) (SELECTQ (EDITMODE) (SEDIT:SEDIT (* ;; @@ -98,23 +101,9 @@ (MODERNWINDOW W2))) (PROGN (EDITE DEF1) (EDITE DEF2]) - -(EXAMINEDEFS-REGION - [LAMBDA (WIDTH HEIGHT) (* ; "Edited 10-Dec-2021 10:15 by rmk") - - (* ;; "Prompts for a WIDTH-HEIGHT region with the top-left corner positioned at the initial cursor but the cursor then moved to the bottom-right for size adjustments. Thus the default behavior is that the upper left corner is fixed.") - - (GETMOUSESTATE) - (LET* ((LEFT LASTMOUSEX) - (RIGHT (IPLUS LEFT WIDTH)) - (TOP LASTMOUSEY) - (BOTTOM (IDIFFERENCE TOP HEIGHT))) - (\CURSORPOSITION RIGHT BOTTOM) - (GETREGION NIL NIL (CREATEREGION LEFT BOTTOM WIDTH HEIGHT) - NIL NIL (LIST LEFT TOP RIGHT BOTTOM]) ) (RPAQ? EXAMINEDEFS-PROCESS-LIST ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (513 6305 (EXAMINEDEFS 523 . 5601) (EXAMINEDEFS-REGION 5603 . 6303))))) + (FILEMAP (NIL (501 5804 (EXAMINEDEFS 511 . 5802))))) STOP diff --git a/lispusers/EXAMINEDEFS.LCOM b/lispusers/EXAMINEDEFS.LCOM index 80023d0e56f75b3d7c8044528298d512e5aa87f7..cec178f993a566c55c050cd5150252774c44bf6f 100644 GIT binary patch delta 763 zcmZva&2G~`5XVVMOBy7qDu^2}vV_ze61*S&JjJy)j!|M;wnJK}2WVp;f+SVw0jY<) z0@X@=2Tllu+z^Nx@4%fiPk>k_aZ5#4tKHe({AYJ|cfM?Y-Fm-QQEN_mRKqexfRHJR zuAjZ`O_5Rs2`iUQj7_YY*pQ%nI7yGj!{fo5v=8aKuLh%+Fc^W*bX}Ud!cd{(<}K?*_4g5Q@4mHmy7el5B{t8xbTeMTYI1y4a>fLL$vvw z#yFdot9@ry**)Lwlg97)tpz_UePgqVeQsxLcCc0|Z2sKL0zUou%!fCPsX~A`Uc!J< zEw_jP4r|xLD6m-^1C@0MLgx2EAch8Z5bgufjocv62^<#rJ@57 zf#=8Fh~o%J*XPr7m9HO1}3pGBVA66fd?%vBUtH86dv!vG`WlFE2Rk$A!7 z9Tuag5+I0hw()RFBOt+x$#^IxOqGn?7q5E35TT+FMTr8I%A&F<|G1Iz?UKibrQk0t C8o?j{ delta 1007 zcmZuw+iue^7;bl7IE<+h7n2x2kr1s=OKj(S)huxvZ*3eUDeVv!u&rnlY#oCOq+RqC znDQ38LufY)f#50N5#S*ZP7hlr&5G>bpMTq*zyHg(rLW5$I|Zfeb+^k{!3Yqt72PJ} zd{&Zdj}xbT8#!w z?ypoTGVHv3FZNt_t|^zKVvRMZ8&M~r-d&LKbjvmVH^6p%C#ci7oNy@Cf*7O; z4kfU|h(2Y!6_-76-qkxXwpGnm&6DGLUQ5-fv;3Fz@6?lgl&(y#79Up~_eM^%v)k2P zHV$W--s#%e`~cWm_)bsV&j-^B`NcnrS<0t>Khyq<)h8BEkBR$KLdFr+z@v>y7;%@z zF%U}y9@3y40x=1=Jlq6gXrn;4pvgTN1#K31ybVOh;3SFT`eT5o@SFv4E23irlQANV zAw*JVws21|A

NgC4M+T@$!Y0$A13x3dL9Rjy_z$~XfFjq5atXr1u@kd9y&hJdh{ zp3l;@X25zYPFPJmK*JERx-Skk6tG8|utvZRoF)aVXcs6l%@K-(NE7^o0{~lA+Mc_= zq*)-ttE1k&7%)KsTU|v$xeE|sMYv3O5U?x(QjGM+T(>`Af%1ri?U_x4zjN(ND${{GwptS^;fP6Z@n84c1OZ*b#oS9s1Y9TB0i>zDD=ltrg%TV;8{1seN?TFUy@<(4Gmy;0ndt`irWgAH z3q{%2SiIY(+jG)Hyl}#V!^!u3zcZ7k)_m)CzlD*o7=e;afDVS3-J^!%!#&!^M}H?r zjhQ=65KdK=2O1$%Sr$mr$6&cV=wF-+z0u%ucA>JT?Z3w8K|_F2ua>t846kCF)35Tf;%XL zO-kjWL8vyf(#KZ^{j4f1RRw`4F{w%W?#rLX^N00Kht>+eoMn0(=gZ4M^Lpu1#+|A^ zhqbTUpXafUwkguQ~Ef#EcmrbyF~rsqHI@F Na(jsco^$i_-+v}|slosN