From 69bb98c49ac76ed3221ef7b49c30dcba0dc8594d Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Fri, 13 Feb 2026 17:46:06 -0800 Subject: [PATCH] Rmk157 Minor Tedit updates--improved page layout menu, TEDIT.PARAGRAPH.BOUNDARIES, other bug fixes (#2479) * TEDIT adds TEDIT.PARAGRAPH.BOUNDARIES, fixed TEDIT.MAP.OBJECTS, a few other bugs * Addresses the page layout menu #2447 and #2457 * TEDIT-STREAM add open method * Ctrl-p inserts page number object * Restore page number pretext and posttext in menu --- internal/TEDIT-DEBUG | 80 ++++++++-------- internal/TEDIT-DEBUG.LCOM | Bin 61431 -> 62331 bytes library/tedit/TEDIT | 98 ++++++++++++-------- library/tedit/TEDIT-ABBREV | 25 ++--- library/tedit/TEDIT-ABBREV.LCOM | Bin 6858 -> 6855 bytes library/tedit/TEDIT-BUTTONS | 88 ++++++------------ library/tedit/TEDIT-BUTTONS.LCOM | Bin 35367 -> 35137 bytes library/tedit/TEDIT-FILE | 60 ++++++------ library/tedit/TEDIT-FILE.LCOM | Bin 40531 -> 40382 bytes library/tedit/TEDIT-FNKEYS | 61 ++++++------ library/tedit/TEDIT-FNKEYS.LCOM | Bin 39536 -> 39646 bytes library/tedit/TEDIT-LOOKS | 65 +++++++------ library/tedit/TEDIT-LOOKS.LCOM | Bin 38185 -> 38414 bytes library/tedit/TEDIT-MENU | 144 ++++++++++++++--------------- library/tedit/TEDIT-MENU.LCOM | Bin 55135 -> 55059 bytes library/tedit/TEDIT-PAGE | 44 +++++---- library/tedit/TEDIT-PAGE.LCOM | Bin 28257 -> 28463 bytes library/tedit/TEDIT-SCREEN | 47 +++++----- library/tedit/TEDIT-SCREEN.LCOM | Bin 33515 -> 33574 bytes library/tedit/TEDIT-SELECTION | 76 ++++++++------- library/tedit/TEDIT-SELECTION.LCOM | Bin 31666 -> 31737 bytes library/tedit/TEDIT-STREAM | 113 +++++++++++----------- library/tedit/TEDIT-STREAM.LCOM | Bin 38738 -> 38834 bytes library/tedit/TEDIT.LCOM | Bin 33445 -> 33840 bytes library/tedit/tedit-exports.all | 55 +++++------ 25 files changed, 491 insertions(+), 465 deletions(-) diff --git a/internal/TEDIT-DEBUG b/internal/TEDIT-DEBUG index 32b6966f..7b08db5c 100644 --- a/internal/TEDIT-DEBUG +++ b/internal/TEDIT-DEBUG @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Oct-2025 16:52:28" {WMEDLEY}TEDIT-DEBUG.;175 138298 +(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}TEDIT-DEBUG.;178 138742 :EDIT-BY rmk - :CHANGES-TO (FNS SP) + :CHANGES-TO (FNS TEDIT-DEBUG) - :PREVIOUS-DATE "29-Jul-2025 11:42:21" {WMEDLEY}TEDIT-DEBUG.;174) + :PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}TEDIT-DEBUG.;177) (PRETTYCOMPRINT TEDIT-DEBUGCOMS) @@ -540,7 +540,8 @@ (RETURN PC]) (SL - [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 17-Apr-2025 13:36 by rmk") + [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 9-Jan-2026 11:12 by rmk") + (* ; "Edited 17-Apr-2025 13:36 by rmk") (* ; "Edited 15-Apr-2025 13:57 by rmk") (* ; "Edited 11-Apr-2025 12:15 by rmk") (* ; "Edited 29-Mar-2025 20:27 by rmk") @@ -580,6 +581,7 @@ (SETQ PANE (pop LINES)) (SETQ PNO (pop LINES)) (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE WTYPE TITLE NIL '(TERMINAL 8)) + (RESETSAVE (LINELENGTH MAX.SMALLP OFILE)) (PRINTOUT OFILE .FONT '(TERMINAL 8) "Pane " PNO " = " PANE T) (PRINTOUT OFILE .FONT '(TERMINAL 8) @@ -805,7 +807,8 @@ else (RETURN OUTFILE))))]) (SHOWLINE - [LAMBDA (LINE FILE TEXTOBJ) (* ; "Edited 20-Nov-2024 00:31 by rmk") + [LAMBDA (LINE FILE TEXTOBJ) (* ; "Edited 9-Jan-2026 11:09 by rmk") + (* ; "Edited 20-Nov-2024 00:31 by rmk") (* ; "Edited 17-Nov-2024 15:56 by rmk") (* ; "Edited 9-Nov-2024 10:37 by rmk") (* ; "Edited 1-Sep-2024 16:49 by rmk") @@ -836,7 +839,7 @@ "*" " ") .FONT - '(TERMINAL 6) + '(TERMINAL 8) " ") (if (GETLD LINE LDUMMY) then (PRINTOUT FILE -8 (CL:IF (GETLD LINE LDUMMY) @@ -2480,7 +2483,8 @@ (DEFINEQ (TEDIT-DEBUG - [LAMBDA (DONTOVERLOAD) (* ; "Edited 9-Aug-2024 13:20 by rmk") + [LAMBDA (DONTOVERLOAD) (* ; "Edited 7-Feb-2026 17:00 by rmk") + (* ; "Edited 9-Aug-2024 13:20 by rmk") (* ; "Edited 16-Jul-2024 12:37 by rmk") (* ; "Edited 6-Jul-2024 21:16 by rmk") (* ; "Edited 10-Jun-2024 14:21 by rmk") @@ -2493,6 +2497,7 @@ (* ; "Edited 3-Dec-2023 21:00 by rmk") (* ; "Edited 29-Nov-2023 10:49 by rmk") (* ; "Edited 24-Nov-2023 12:53 by rmk") + (DRIBBLE "TEDIT-DEBUG.DRIBBLE") (CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/")) (PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/"))) (FILESLOAD (NOERROR FROM LOADUPS) @@ -2511,7 +2516,8 @@ (FILESLOAD (NOERROR) {OT}OTWHEREIS) (PRINTOUT T T "Connected to " (PSEUDOFILENAME (MEDLEYDIR "library/tedit")) - T]) + T) + (DRIBBLE]) ) (DEFINEQ @@ -2579,33 +2585,33 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5115 7674 (GTO 5125 . 5375) (GTS 5377 . 7148) (GTW 7150 . 7306) (GSEL 7308 . 7672)) ( -7707 8828 (TEST.TEMPLATE 7717 . 8826)) (8829 9764 (TESTACTION 8839 . 9762)) (9789 23604 (IPC 9799 . -11303) (ILINES 11305 . 13846) (ISEL 13848 . 14459) (ITS 14461 . 16185) (IPANES 16187 . 16422) (ITL -16424 . 16843) (IHIST 16845 . 19507) (IPCTB 19509 . 19935) (IMB 19937 . 20696) (ICL 20698 . 21399) ( -IPL 21401 . 21941) (ICARET 21943 . 22470) (INSPECTPIECES 22472 . 23602)) (23626 52365 (SP 23636 . -28751) (SL 28753 . 32588) (SSP 32590 . 34292) (SPF 34294 . 36824) (SLF 36826 . 45959) (SHOWLINE 45961 - . 49523) (SLL 49525 . 50272) (STBYTES 50274 . 52000) (SSEL 52002 . 52363)) (52366 64879 (STL 52376 . -61377) (CLEARTHISLINE 61379 . 61859) (CHARSLOTP 61861 . 63180) (\TLVALIDATE 63182 . 64877)) (64880 -70253 (NTHPIECE 64890 . 66022) (NPIECES 66024 . 66889) (NTHPIECECHAR 66891 . 68199) (SELPIECE 68201 . -68643) (PIECENUM 68645 . 69364) (PCBYTES 69366 . 70251)) (70254 72728 (FILEBYTES 70264 . 71688) ( -TFILEBYTES 71690 . 72726)) (72729 74051 (TRELMOVE 72739 . 72982) (TSCROLL 72984 . 73150) (TSCROLL* -73152 . 74049)) (74052 77101 (TRY 74062 . 75331) (TEDITCLOSEW 75333 . 75676) (PARALASTWITHOUTEOL 75678 - . 76563) (FIXPARALAST 76565 . 77099)) (77102 91989 (SPPRINT 77112 . 83937) (SPPRINT.CHAR 83939 . -84923) (SPPRINT.OBJ 84925 . 87983) (SHOWPIECEBYTES 87985 . 89541) (CHECKPLENGTHS 89543 . 90000) (SBT -90002 . 91139) (COPYPCHAIN 91141 . 91987)) (91990 94051 (POSLINE 92000 . 94049)) (94052 94935 ( -PRESPLIT 94062 . 94933)) (94936 96649 (ALLTL 94946 . 96199) (NTHCHARSLOT 96201 . 96647)) (96675 106888 - (PLCHAIN 96685 . 97213) (PRINTLINE 97215 . 100205) (SL.GETLINES 100207 . 103500) (CHECKLINES 103502 - . 104482) (COLLECTLINES 104484 . 104736) (NTHLINE 104738 . 105743) (HEIGHT 105745 . 106033) (LINEBOTS - 106035 . 106886)) (106889 109337 (IPC.DECODEARGS 106899 . 109335)) (109338 109931 (SPF1 109348 . -109929)) (109960 112338 (SLF.FATPLEN 109970 . 110829) (FILEPIECE 110831 . 112336)) (112371 113139 ( -SELTEDIT 112381 . 113137)) (113209 118821 (PPARA 113219 . 113641) (PRUN 113643 . 115119) ( -ADDLINEPOSITIONS 115121 . 116548) (SBR 116550 . 117204) (SBC 117206 . 118819)) (118878 120654 (OLDWI -118888 . 119263) (COMP 119265 . 119460) (DFR 119462 . 120652)) (120655 121688 (DFGV 120665 . 121191) ( -GDIRECTORIES 121193 . 121686)) (121689 128254 (TTEST 121699 . 126231) (LTEST 126233 . 127598) (THC -127600 . 128252)) (128568 129260 (SHOWSAFE 128578 . 129258)) (129313 129760 (MYH 129323 . 129758)) ( -130005 131100 (DFVENUE 130015 . 130894) (VSEE 130896 . 131098)) (131101 131555 (PTT 131111 . 131553)) -(131914 133495 (DEBUGOUTPUT.STREAM 131924 . 133493)) (133496 135812 (TEDIT-DEBUG 133506 . 135810)) ( -135813 136305 (HEXTOHILO 135823 . 136163) (CW 136165 . 136303)) (136306 138042 (TRENAME 136316 . -138040))))) + (FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) ( +7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 . +11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL +16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) ( +IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52650 (SP 23645 . +28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137 + . 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 . +61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165 +70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 . +68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) ( +TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL* +73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963 + . 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 . +85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT +90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 ( +PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173 + (PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787 + . 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS + 106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 . +110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 ( +SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) ( +ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI +119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) ( +GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC +127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) ( +130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838)) +(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) ( +136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 . +138484))))) STOP diff --git a/internal/TEDIT-DEBUG.LCOM b/internal/TEDIT-DEBUG.LCOM index f3afda41eed9c334432254e84a7d68337a1794e4..7b7aa1013bdd1d9e4344ddd349d6bc35b4f81adc 100644 GIT binary patch delta 2414 zcmZuy-EZ4e6mQnCbz$s-Q6ajmJM&u97LwZ6PV59t;MzB_JIA(cCutwsHDY05`R7sn5OV``q6- z=dYjp|GC}&PW>rRGo{9ShKM8&l3EnSqFi|QyfUMWLt23RLne`nL@VYr0p?d5XO~}H zX)ZPvpz+4a>e^@#%8`e^5Px+jhtz?HhEX=672nY#%1^ox*`6C;zg;;9p%0-0A^Z3x zh}}ESJeCeoEq?9JSQ^~O@@;BRh%evCijXeZ4xO4six72@0d*=~4Q+=;;5q0q`A)>+ zcPF1lyMAE15u~?>tYPT^#IN5~N5J<&$95_B0S$e}jzD*u$bmHaWm2KzMe*NvUoA3&*Q!Vfuvu=ao zReUf@0i?}Rxdvs^4yX}%fz2{w1p`#V{}={@mRAq;5{1gFg*r9rRw>j%icv=qm~^UI z_NtLzjj~}BP`!dBMt2#`fV4$tBG0lN4~#lQa{+br3Weqp2&F2Ps{38D*{lEybL;q+ zJKnoc6!XG(dW_{|pcnLkLjQx9_><_^qLTh zid0l`0;J=MDIuk{zfRF(u`qt*SPmRLjQCTPAP>HdZ&m^oB5!Is)`p9zAL6y)v7^z@ z*@2h)@NenC11rslb3;SthS+ud>2M}hi?0oDwA^Zq3vq!xOzPX+$!GZf#_^pztA5~d zCbfCQ+Q+{2L)H5mGp`&z++V#k!4+q>MeGISy}xY6;W!K>SNNrK5%cGf$FCdeq5w zB_wHERzz6vLKHezTF1EB6DWr7?88RJHZ4b1{NBmY(Ogonq|_lOB8s4dNpXI#lO*lX5;2x-al#^dc+z$_Q50?<2@IPJ6wFkB#pY6D4dxq* z%NJVPeINkI6+m#@$%)gx9_Xw;@J?1?3{g_CUEKkk+=S#nFkIwdPJ$r`AQhx;5tzb> zG@b@2kJfOup#TC;uo!`hpvRab4vHAhY1XzV?awVWkj$&?y{9}#Y3;i4=iYuIDedx^ z-})I5PkNMJT<|_SfkZBTcKLh$o%Bfj{K_Ds+vdvkmyl4~!{d~bts)%KqD zTLVZG;tljl>_Vqnh+7GfNoNeF8seHy8alCq*iw2pa>oQTB`jXD zDp(tasD{ncwL1U{k{s!b?*&nq#a#_Jbi9bQ3PEXMu{pmwxBBKJuCV4hgE~RXFE1@M z&a$PpzKm!^bbWO5_?UwDBBjOqZ&|5aT)p*NQO<*q d%}y>aE^u|Gh>m-2@S-d5>=umL7jM-L{|8-NbK(F1 delta 1828 zcmZuy&2Jl35RdEhg8)@RTLC4I$&w(uU}xXkZ=)jC-gUguW_Pu_j*|;gJ`5O4T*XF# z_TUQ=SE@ZA!KHryhqgvVy^yF}KuA;^5TXZ4D!~OIapS;+d24TCM_BT{c{9KHc(e0+ z`|ls=e;%ekshuZ6&fV`Gaf;0PHq3I(1P2;pF3r@q;G?@FUt z--7xFS9aR-1qeK7Yy(%W+BOV(<@0$Cw$?ic{hw%*=du%-vSphk-_%3XKv2J)Cr1mq zHg^Wg6I80HQ8*5nz{^6x^UW2@tp+&*U4f%oZt4Bz;3T9V;z`K$YjY{F_x-pz{erCr zp=~)PltBVdj|CY*x448FC0c*wd{mrOQg@@Pvzb%1vllndwxXHb)6q|}7gE*e&)M7Q z<**vv;4YS@t8b0rZ-PBevB!7gm6gYtuy?NV7+Y(T;orAw?@Udl!<*R{vX&sMEi`?$ zck@Pc;>FjxXIJ7-mDqc7EF%gkgyw4K`L37O4Fg0f#)=@s1}%Fa5(W3Z=UXW9haxWk zsvH7>MiNO9AgH*t_{;)5bQ6ensPBTnOR#8$HOn#F8p{e)QI2b*!$ed}5>bIbs271! z0;P)XEShE434!w3AV1MCB?5@5BpO8;h7wum_7PZVzj`7PoFu(u2KcgRqNJFf1;X&d+s430Uh4Gbs6% z7rH(OSO6Ow)+WU9!#k>K$Kh1PDh}b4)pWFz$uT(c0AHR095fr-^)_@j>dn?JBvZ=) z70_rq3zsf?y00@m>WBmx9EWAg(QQz(*nR=HlEY!w2?|J7B5T7CD7vQU)iWpv(KlZ| zidSZQu=i>#KeJ!JmG-LpKQK=kdp_8kjNZQYL~Pi-_w92he;GS5mWrHTZ*^OYi;bA4 zu^4kRe)N@%SVr1W!dMowit_4Ui0}piFEFcy%PuHKUp9fw^s;H#=9*#oBa@9cN#CC+ zJTQDxMn9qYE zC*d)=EP-iYbi6sO5F{Ky7q$3m2NmE(kOxsKZV=)K4+X^NM%VJOB-dYK=kq{2GUGrJ zQ3G?eWLE>rb&!%`QVz0H9I?>E5n@`hni!vg05sNFwl~aTbrGawYp!~(9|qC=-%bj6 zg}5Oj06{8q&Bn&g`p$<7_|0f^l1XlDZ`U{3SESRzAtZ8i`r!GDpaB=7a-Dj+(_UaR tjH=N96QD-+!KIWE?H*K8Vzhto@+=$qe14(T+=|`NQ5;qD<{zz0{RiVG*c|`> diff --git a/library/tedit/TEDIT b/library/tedit/TEDIT index 2522759e..d50bfdd2 100644 --- a/library/tedit/TEDIT +++ b/library/tedit/TEDIT @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-Dec-2025 22:45:39" {WMEDLEY}TEDIT>TEDIT.;847 145111 +(FILECREATED " 4-Feb-2026 16:02:02" {WMEDLEY}TEDIT>TEDIT.;852 146779 :EDIT-BY rmk - :CHANGES-TO (VARS TEDITCOMS) + :CHANGES-TO (FNS TEDIT.MAP.OBJECTS TEDIT.PARAGRAPH.BOUNDARIES) + (VARS TEDITCOMS) - :PREVIOUS-DATE "24-Dec-2025 11:23:12" {WMEDLEY}TEDIT>TEDIT.;846) + :PREVIOUS-DATE "31-Jan-2026 11:49:19" {WMEDLEY}TEDIT>TEDIT.;849) (PRETTYCOMPRINT TEDITCOMS) @@ -47,7 +48,7 @@ (FNS TEDIT TEXTSTREAM TEXTSTREAMP COERCETEXTSTREAM TEDIT.CONCAT TEDITSTRING TEDIT-SEE TEDIT.COPY TEDIT.DELETE TEDIT.INSERT TEDIT.TERPRI TEDIT.KILL TEDIT.QUIT TEDIT.MOVE - TEDIT.STRINGWIDTH TEDIT.CHARWIDTH) + TEDIT.STRINGWIDTH TEDIT.CHARWIDTH TEDIT.PARAGRAPH.BOUNDARIES) (FNS TEXTOBJ COERCETEXTOBJ) (MACROS TEVAL) (FNS TDRIBBLE) @@ -676,6 +677,26 @@ (CR (IMAX 6 (CHARWIDTH CH FONT))) (TAB 36) (CHARWIDTH CH FONT]) + +(TEDIT.PARAGRAPH.BOUNDARIES + [LAMBDA (TSTREAM SELORCH# PROTECTEDNOTOK) (* ; "Edited 2-Feb-2026 23:05 by rmk") + + (* ;; "Returns a pair (FIRSTCH# LASTCH#) where FIRSTCH# is the character number of the first character of the paragraph that contains the beginning of the selection, and LASTCH# is the last character number of the last character of the paragraph that contains the end of the selection.") + + (* ;; + "If PROTECTIONNOTOK, the scans stop at any protected piece (e.g. doesn't cross menu boiler plate).") + + (LET ((TEXTOBJ (TEXTOBJ TSTREAM))) + (CL:UNLESS SELORCH# + (SETQ SELORCH# (TEXTSEL TEXTOBJ))) + (LIST (CAR (\TEDIT.PARA.FIRST TEXTOBJ (CL:IF (type? SELECTION SELORCH#) + (GETSEL SELORCH# CH#) + SELORCH#) + PROTECTEDNOTOK)) + (CAR (\TEDIT.PARA.LAST TEXTOBJ (CL:IF (type? SELECTION SELORCH#) + (GETSEL SELORCH# CHLAST) + SELORCH#) + PROTECTEDNOTOK]) ) (DEFINEQ @@ -912,7 +933,8 @@ else (TEDIT.PROMPTPRINT TSTREAM "Changed object not found in document" T]) (TEDIT.MAP.OBJECTS - [LAMBDA (TSTREAM FN FNARG COLLECT?) (* ; "Edited 25-Feb-2025 15:06 by rmk") + [LAMBDA (TSTREAM FN FNARG COLLECT?) (* ; "Edited 4-Feb-2026 16:01 by rmk") + (* ; "Edited 25-Feb-2025 15:06 by rmk") (* ; "Edited 23-Apr-2024 09:15 by rmk") (* ; "Edited 16-Mar-2024 10:03 by rmk") (* ; "Edited 4-Mar-2024 16:12 by rmk") @@ -932,8 +954,7 @@ (NIL) (OBJECT (PUSH $$VAL OBJ)) (CH# (PUSH $$VAL CH#)) - (VALUE (PUSH $$VAL CH#) - FNVAL) + (VALUE (PUSH $$VAL FNVAL)) (FIRST (RETURN (LIST CH# OBJ FNVAL))) (PUSH $$VAL (LIST CH# OBJ FNVAL))) (CL:WHEN (EQ FNVAL 'STOP) @@ -1325,7 +1346,9 @@ (CL:WHEN TYPEIN (\TEDIT.SCROLL.CARET TSTREAM)))])]) (\TEDIT.MOVE - [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 7-May-2025 00:12 by rmk") + [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 31-Jan-2026 11:48 by rmk") + (* ; "Edited 10-Jan-2026 01:38 by rmk") + (* ; "Edited 7-May-2025 00:12 by rmk") (* ; "Edited 22-Apr-2025 09:21 by rmk") (* ; "Edited 16-Apr-2025 09:01 by rmk") (* ; "Edited 6-Apr-2025 14:14 by rmk") @@ -1385,7 +1408,7 @@ (CL:WHEN (AND (FGETTOBJ TOOBJ BLUEPENDINGDELETE) (IGREATERP TODCH 0)) (FSETTOBJ TOOBJ BLUEPENDINGDELETE NIL) - (CL:UNLESS (\TEDIT.DELETE TOOBJ TOSEL) + (CL:UNLESS (\TEDIT.DELETE TOTSTREAM TOSEL) (RETURN NIL)) (SETQ BPD T) (CL:WHEN (EQ TOOBJ FROMOBJ) (* ; "Same text, pre-adjust the source") @@ -1421,15 +1444,14 @@ (* ;; "Pop to accumulate into a single event (BPD, DELETE, INSERT).") - else (\TEDIT.DELETE FROMOBJ FROMSEL NIL NIL T)) + else (\TEDIT.DELETE FROMTSTREAM FROMSEL NIL NIL T)) (* ;; "Deletion accomplished possibly in separate FROMOBJ with its own history.") (* ;; "") (CL:WHEN (GETTEXTPROP TOOBJ 'COPYBYBKSYSBUF) - (\TEDIT.FOREIGN.COPY (WFROMDS TOTSTREAM) - FROMSEL T) + (\TEDIT.FOREIGN.COPY FROMSEL FROMTSTREAM T) (CL:WHEN BPD (* ; "If no BPD, TO history is good") (\TEDIT.HISTORYADD.COMPOSITE TOOBJ TOOBJ (LIST (\TEDIT.POPEVENT TOOBJ) (\TEDIT.POPEVENT TOOBJ)))) @@ -1448,7 +1470,8 @@ (CL:IF BPD (\TEDIT.POPEVENT TOOBJ])]) (\TEDIT.COPY - [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 7-May-2025 00:12 by rmk") + [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM) (* ; "Edited 31-Jan-2026 11:48 by rmk") + (* ; "Edited 7-May-2025 00:12 by rmk") (* ; "Edited 22-Apr-2025 09:12 by rmk") (* ; "Edited 6-Apr-2025 14:16 by rmk") (* ; "Edited 5-Apr-2025 13:19 by rmk") @@ -1497,8 +1520,7 @@ (* ;; "") (CL:WHEN (GETTEXTPROP TOOBJ 'COPYBYBKSYSBUF) - (\TEDIT.FOREIGN.COPY (WFROMDS TOTSTREAM) - FROMSEL T) + (\TEDIT.FOREIGN.COPY FROMSEL FROMTSTREAM T) (RETURN)) (* ;; "") @@ -2331,27 +2353,27 @@ (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4840 7234 (MAKE-TEDIT-EXPORTS.ALL 4850 . 5396) (UPDATE-TEDIT 5398 . 6327) (EDIT-TEDIT -6329 . 7232)) (8664 36442 (TEDIT 8674 . 11288) (TEXTSTREAM 11290 . 13179) (TEXTSTREAMP 13181 . 13565) -(COERCETEXTSTREAM 13567 . 17778) (TEDIT.CONCAT 17780 . 21082) (TEDITSTRING 21084 . 21998) (TEDIT-SEE -22000 . 22684) (TEDIT.COPY 22686 . 24831) (TEDIT.DELETE 24833 . 26194) (TEDIT.INSERT 26196 . 29165) ( -TEDIT.TERPRI 29167 . 30281) (TEDIT.KILL 30283 . 31265) (TEDIT.QUIT 31267 . 32633) (TEDIT.MOVE 32635 . -33523) (TEDIT.STRINGWIDTH 33525 . 34196) (TEDIT.CHARWIDTH 34198 . 36440)) (36443 38384 (TEXTOBJ 36453 - . 36918) (COERCETEXTOBJ 36920 . 38382)) (39784 41434 (TDRIBBLE 39794 . 41432)) (41475 53371 ( -TEDIT.INSERT.OBJECT 41485 . 45192) (TEDIT.EDIT.OBJECT 45194 . 48134) (TEDIT.OBJECT.CHANGED 48136 . -51326) (TEDIT.MAP.OBJECTS 51328 . 52899) (\TEDIT.FIRST.OBJPIECE 52901 . 53134) (\TEDIT.NEXT.OBJPIECE -53136 . 53369)) (53394 60837 (\TEDIT.CONCAT.PAGEFRAMES 53404 . 58471) (\TEDIT.GET.PAGE.HEADINGS 58473 - . 59502) (\TEDIT.CONCAT.INSTALL.HEADINGS 59504 . 60835)) (60838 64445 (\TEDIT.MOVE.MSG 60848 . 62929) - (\TEDIT.READONLY 62931 . 64443)) (64446 70337 (TEDIT.NCHARS 64456 . 64829) (TEDIT.RPLCHARCODE 64831 - . 67821) (TEDIT.NTHCHARCODE 67823 . 69866) (TEDIT.NTHCHAR 69868 . 70335)) (70383 127160 (\TEDIT1 -70393 . 72470) (\TEDIT.INSERT 72472 . 78585) (\TEDIT.MOVE 78587 . 86493) (\TEDIT.COPY 86495 . 91026) ( -\TEDIT.REPLACE.SELPIECES 91028 . 95564) (\TEDIT.INSERT.SELPIECES 95566 . 98563) (\TEDIT.RESTARTFN -98565 . 101070) (\TEDIT.CHARDELETE 101072 . 104001) (\TEDIT.COPYPIECE 104003 . 109165) ( -\TEDIT.APPLY.OBJFN 109167 . 112253) (\TEDIT.DELETE 112255 . 116623) (\TEDIT.DIFFUSE.PARALOOKS 116625 - . 118896) (\TEDIT.WORDDELETE 118898 . 120513) (\TEDIT.WORDDELETE.FORWARD 120515 . 122304) ( -\TEDIT.FINISHEDIT? 122306 . 127158)) (127161 127820 (\TEDIT.THELP 127171 . 127818)) (127854 136985 ( -\TEDIT.PARAPIECES 127864 . 129838) (\TEDIT.PARACHNOS 129840 . 130732) (\TEDIT.PARA.FIRST 130734 . -133835) (\TEDIT.PARA.LAST 133837 . 136983)) (136986 144081 (\TEDIT.WORD.FIRST 136996 . 141000) ( -\TEDIT.WORD.LAST 141002 . 144079)) (144282 144559 (TEDITSYSTEMDATE 144292 . 144557)) (144695 144902 ( -TEDIT.IMAGESOURCEP 144705 . 144900))))) + (FILEMAP (NIL (4936 7330 (MAKE-TEDIT-EXPORTS.ALL 4946 . 5492) (UPDATE-TEDIT 5494 . 6423) (EDIT-TEDIT +6425 . 7328)) (8760 37759 (TEDIT 8770 . 11384) (TEXTSTREAM 11386 . 13275) (TEXTSTREAMP 13277 . 13661) +(COERCETEXTSTREAM 13663 . 17874) (TEDIT.CONCAT 17876 . 21178) (TEDITSTRING 21180 . 22094) (TEDIT-SEE +22096 . 22780) (TEDIT.COPY 22782 . 24927) (TEDIT.DELETE 24929 . 26290) (TEDIT.INSERT 26292 . 29261) ( +TEDIT.TERPRI 29263 . 30377) (TEDIT.KILL 30379 . 31361) (TEDIT.QUIT 31363 . 32729) (TEDIT.MOVE 32731 . +33619) (TEDIT.STRINGWIDTH 33621 . 34292) (TEDIT.CHARWIDTH 34294 . 36536) (TEDIT.PARAGRAPH.BOUNDARIES +36538 . 37757)) (37760 39701 (TEXTOBJ 37770 . 38235) (COERCETEXTOBJ 38237 . 39699)) (41101 42751 ( +TDRIBBLE 41111 . 42749)) (42792 54772 (TEDIT.INSERT.OBJECT 42802 . 46509) (TEDIT.EDIT.OBJECT 46511 . +49451) (TEDIT.OBJECT.CHANGED 49453 . 52643) (TEDIT.MAP.OBJECTS 52645 . 54300) (\TEDIT.FIRST.OBJPIECE +54302 . 54535) (\TEDIT.NEXT.OBJPIECE 54537 . 54770)) (54795 62238 (\TEDIT.CONCAT.PAGEFRAMES 54805 . +59872) (\TEDIT.GET.PAGE.HEADINGS 59874 . 60903) (\TEDIT.CONCAT.INSTALL.HEADINGS 60905 . 62236)) (62239 + 65846 (\TEDIT.MOVE.MSG 62249 . 64330) (\TEDIT.READONLY 64332 . 65844)) (65847 71738 (TEDIT.NCHARS +65857 . 66230) (TEDIT.RPLCHARCODE 66232 . 69222) (TEDIT.NTHCHARCODE 69224 . 71267) (TEDIT.NTHCHAR +71269 . 71736)) (71784 128828 (\TEDIT1 71794 . 73871) (\TEDIT.INSERT 73873 . 79986) (\TEDIT.MOVE 79988 + . 88086) (\TEDIT.COPY 88088 . 92694) (\TEDIT.REPLACE.SELPIECES 92696 . 97232) ( +\TEDIT.INSERT.SELPIECES 97234 . 100231) (\TEDIT.RESTARTFN 100233 . 102738) (\TEDIT.CHARDELETE 102740 + . 105669) (\TEDIT.COPYPIECE 105671 . 110833) (\TEDIT.APPLY.OBJFN 110835 . 113921) (\TEDIT.DELETE +113923 . 118291) (\TEDIT.DIFFUSE.PARALOOKS 118293 . 120564) (\TEDIT.WORDDELETE 120566 . 122181) ( +\TEDIT.WORDDELETE.FORWARD 122183 . 123972) (\TEDIT.FINISHEDIT? 123974 . 128826)) (128829 129488 ( +\TEDIT.THELP 128839 . 129486)) (129522 138653 (\TEDIT.PARAPIECES 129532 . 131506) (\TEDIT.PARACHNOS +131508 . 132400) (\TEDIT.PARA.FIRST 132402 . 135503) (\TEDIT.PARA.LAST 135505 . 138651)) (138654 +145749 (\TEDIT.WORD.FIRST 138664 . 142668) (\TEDIT.WORD.LAST 142670 . 145747)) (145950 146227 ( +TEDITSYSTEMDATE 145960 . 146225)) (146363 146570 (TEDIT.IMAGESOURCEP 146373 . 146568))))) STOP diff --git a/library/tedit/TEDIT-ABBREV b/library/tedit/TEDIT-ABBREV index 5f3a3cc3..6c874eea 100644 --- a/library/tedit/TEDIT-ABBREV +++ b/library/tedit/TEDIT-ABBREV @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Jan-2026 17:51:55" {WMEDLEY}tedit>TEDIT-ABBREV.;55 18063 +(FILECREATED "23-Jan-2026 15:49:26" {WMEDLEY}TEDIT>TEDIT-ABBREV.;58 18256 :EDIT-BY rmk :CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND) - (VARS TEDIT-ABBREVCOMS) - :PREVIOUS-DATE " 8-Jan-2026 09:09:58" {WMEDLEY}tedit>TEDIT-ABBREV.;53) + :PREVIOUS-DATE "13-Jan-2026 17:51:55" {WMEDLEY}tedit>TEDIT-ABBREV.;55) (PRETTYCOMPRINT TEDIT-ABBREVCOMS) @@ -87,7 +86,9 @@ (DEFINEQ (\TEDIT.ABBREV.EXPAND - [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 13-Jan-2026 17:51 by rmk") + [LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 23-Jan-2026 15:49 by rmk") + (* ; "Edited 20-Jan-2026 09:56 by rmk") + (* ; "Edited 13-Jan-2026 17:51 by rmk") (* ; "Edited 8-Jan-2026 09:08 by rmk") (* ; "Edited 3-Jan-2026 13:13 by rmk") (* ; "Edited 20-Apr-2025 23:30 by rmk") @@ -143,11 +144,11 @@ (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL (PCHARLOOKS (\TEDIT.CHTOPC FIRSTCHNO TEXTOBJ))) TSTREAM SEL) - (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced " (CL:IF BACKSLASH - (CONCAT (CAR ABBREV) - "\") - (CAR ABBREV)) - " with " EXPANSION) + (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced %"" (CL:IF BACKSLASH + (CONCAT (CAR ABBREV) + "\") + (CAR ABBREV)) + "%" with %"" EXPANSION "%"") T) else (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T]) @@ -362,7 +363,7 @@ ("DATE" \TEDIT.EXPAND.DATE) (">>DATE<<" \TEDIT.EXPAND.DATE))) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4390 14959 (\TEDIT.ABBREV.EXPAND 4400 . 8930) (\TEDIT.ABBREV.EXPANSION 8932 . 11996) ( -\TEDIT.ABBREV.TREE 11998 . 13129) (\TEDIT.ABBREV.PARSE 13131 . 14283) (\TEDIT.ABBREV.PARSE.CHARCODE -14285 . 14957)) (14960 15605 (\TEDIT.EXPAND.DATE 14970 . 15603))))) + (FILEMAP (NIL (4348 15152 (\TEDIT.ABBREV.EXPAND 4358 . 9123) (\TEDIT.ABBREV.EXPANSION 9125 . 12189) ( +\TEDIT.ABBREV.TREE 12191 . 13322) (\TEDIT.ABBREV.PARSE 13324 . 14476) (\TEDIT.ABBREV.PARSE.CHARCODE +14478 . 15150)) (15153 15798 (\TEDIT.EXPAND.DATE 15163 . 15796))))) STOP diff --git a/library/tedit/TEDIT-ABBREV.LCOM b/library/tedit/TEDIT-ABBREV.LCOM index 5cf09f864e91ff210863c5bd7ea13bc239fefbb3..0d3e936ec46168defc98124f1c74fb4f820d9b5c 100644 GIT binary patch delta 336 zcmX?QdfaqExQLOlu2*87u91O}nS!CIm5HU5k=ev-6}=Ew7tatoFsbY4H%WOt5a|I<;B_#!8149r)p**uBLqSz(@;+7xCRL@)*I2)Z005mTQh5LX delta 322 zcmX?ZddhS{xQL;#u2*87u91O}nS!CYm8qeXsp-UQmC277#l;o4loTwHq%ExsEUXO8 zChj#2Hb4mL>FFscq$HN4rU2C&B1sq-TN#*GnVKkRa%s4E`nWm=xjKfpx+o}Nvr|c7 z@&!f>HU&cq12f~v#f)Y)8ext>!3sbPo*}x9PEJ9tVb1=(!I}zI0YIjwe`v6-3(z

p`a84q|GfAl!8(VauSn)9^HJI^@|7q DXn0Tr diff --git a/library/tedit/TEDIT-BUTTONS b/library/tedit/TEDIT-BUTTONS index f015ff00..bb2ccdbe 100644 --- a/library/tedit/TEDIT-BUTTONS +++ b/library/tedit/TEDIT-BUTTONS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;229 125526 +(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;230 123301 :EDIT-BY rmk - :CHANGES-TO (FNS MB.ADD) + :CHANGES-TO (VARS TEDIT-BUTTONSCOMS) - :PREVIOUS-DATE "30-Apr-2025 14:09:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;228) + :PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;229) (PRETTYCOMPRINT TEDIT-BUTTONSCOMS) @@ -36,10 +36,9 @@ (* ;; "Mutually exclusive togggles with a single enclosing object") - (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.WHENOPERATEDONFN MB.NWAY.SIZEFN - MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN - MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ - MB.NWAY.SETSTATEFN) + (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.SIZEFN MB.NWAY.SELECT + MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN MB.NWAY.INIT + MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ MB.NWAY.SETSTATEFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT] [COMS (* ; "TOGGLE") (FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE @@ -922,39 +921,6 @@ (APPLY* (IMAGEOBJPROP SOBJ 'DISPLAYFN) SOBJ STREAM]) -(MB.NWAY.WHENOPERATEDONFN - [LAMBDA (OBJ PANE OPERATION SEL) (* ; "Edited 21-Oct-2024 00:26 by rmk") - (* ; "Edited 24-Aug-2024 23:38 by rmk") - (* ; "Edited 13-Aug-2024 23:43 by rmk") - (* ; "Edited 2-Aug-2024 00:36 by rmk") - (* ; "Edited 21-Jul-2024 13:17 by rmk") - (* ; "Edited 17-Jul-2024 21:51 by rmk") - (* ; "Edited 9-Apr-2023 15:57 by rmk") - (* ; "Edited 13-Sep-2022 12:09 by rmk") - (* ; "Edited 30-May-91 22:16 by jds") - - (* ;; "Perhaps the selected subobject should be stored here, as the state?") - - (* ;; "Mouse tracking and highlighting happens in the BUTTONEVENTINFN (MB.NWAYBUTTON.SELFN). The code here applies the STATECHANGEFN on the main object") - - (NOTUSED) - (SELECTQ OPERATION - (SELECTED [AND NIL (\TEDIT.THELP) - (LET [(SELECTED (IMAGEOBJPROP OBJ 'SELECTED] - (if (IMAGEOBJPROP OBJ 'STATECHANGEFN) - then (\TEDIT.THELP) - (APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN) - OBJ SELECTED SEL PANE) - elseif (AND NIL SELECTED (IMAGEOBJPROP SELECTED 'STATECHANGEFN)) - then - (* ;; - "This is nuked out: the selected object may be should have done its own thing?") - - (APPLY* (IMAGEOBJPROP SELECTED 'STATECHANGEFN) - OBJ SELECTED SEL PANE]) - ((HIGHLIGHTED UNHIGHLIGHTED DESELECTED)) - NIL]) - (MB.NWAY.SIZEFN [LAMBDA (OBJ STREAM CURX RIGHTMARGIN) (* ; "Edited 20-Aug-2024 15:12 by rmk") (* ; "Edited 22-Jul-2024 11:31 by rmk") @@ -1971,25 +1937,25 @@ (MB.FIELD.INIT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3221 19357 (MB.ADD 3231 . 9943) (MB.DELETE 9945 . 10319) (MB.GET 10321 . 17091) ( -MB.GET.MBARG 17093 . 18762) (TEDIT.BACKTOMAIN 18764 . 19355)) (19401 39337 (MB.BUTTONEVENTINFN 19411 - . 20979) (MB.DISPLAYFN 20981 . 23040) (MB.SETIMAGE 23042 . 24210) (MB.SIZEFN 24212 . 25760) ( -MB.WHENOPERATEDONFN 25762 . 27711) (MB.COPYFN 27713 . 28171) (MB.GETFN 28173 . 29134) (MB.PUTFN 29136 - . 30236) (MB.SHOWSELFN 30238 . 31747) (MB.CREATE 31749 . 35772) (MB.CHANGENAME 35774 . 36256) ( -MB.INIT 36258 . 37719) (MB.TRACK.UNTIL 37721 . 38416) (MB.DON'T 38418 . 38714) (MB.SPEC.REMAINDER -38716 . 39335)) (39499 49504 (MB.3STATE.CREATE 39509 . 40373) (MB.3STATE.DISPLAYFN 40375 . 41361) ( -MB.3STATE.SHOWSELFN 41363 . 43674) (MB.3STATE.INIT 43676 . 45087) (MB.3STATE.SETSTATEFN 45089 . 45747) - (MB.3STATE.BUTTONEVENTINFN 45749 . 49502)) (49659 80755 (MB.NWAY.CREATE 49669 . 55852) ( -MB.NWAY.DISPLAYFN 55854 . 56717) (MB.NWAY.WHENOPERATEDONFN 56719 . 58909) (MB.NWAY.SIZEFN 58911 . -62847) (MB.NWAY.SELECT 62849 . 66419) (MB.NWAY.BUTTONEVENTINFN 66421 . 69633) (MB.NWAY.NEWMENUBUTTON -69635 . 70347) (MB.NWAY.COPYFN 70349 . 71316) (MB.NWAY.INIT 71318 . 72809) (MB.NWAY.ARRANGEBUTTONS -72811 . 74782) (MB.NWAY.ADDITEM 74784 . 78933) (MB.NWAY.FINDSUBOBJ 78935 . 79449) (MB.NWAY.SETSTATEFN -79451 . 80753)) (80834 92833 (MB.TOGGLE.CREATE 80844 . 81839) (MB.TOGGLE.DISPLAYFN 81841 . 83324) ( -MB.TOGGLE.INIT 83326 . 85125) (MB.SET.TOGGLE 85127 . 86328) (MB.TOGGLE.SETSTATEFN 86330 . 87170) ( -MB.TOGGLE.BUTTONEVENTINFN 87172 . 91488) (MB.TOGGLE.WHENOPERATEDONFN 91490 . 92831)) (92914 125447 ( -MB.FIELD.CREATE 92924 . 98375) (MB.FIELD.DISPLAYFN 98377 . 99168) (MB.FIELD.IMAGEBOXFN 99170 . 100652) - (MB.FIELD.PREFIXCREATE 100654 . 104590) (MB.FIELD.SUFFIXCREATE 104592 . 106252) (MB.FIELD.INIT 106254 - . 108021) (MB.FIELD.WHENOPERATEDONFN 108023 . 109294) (MB.FIELD.GETSTATEFN 109296 . 113230) ( -MB.FIELD.SETSTATEFN 113232 . 118036) (MB.FIELD.BUTTONEVENTINFN 118038 . 120343) (MB.FIELD.SIZEFN -120345 . 120585) (MB.FIELD.INSURETYPE 120587 . 125445))))) + (FILEMAP (NIL (3188 19324 (MB.ADD 3198 . 9910) (MB.DELETE 9912 . 10286) (MB.GET 10288 . 17058) ( +MB.GET.MBARG 17060 . 18729) (TEDIT.BACKTOMAIN 18731 . 19322)) (19368 39304 (MB.BUTTONEVENTINFN 19378 + . 20946) (MB.DISPLAYFN 20948 . 23007) (MB.SETIMAGE 23009 . 24177) (MB.SIZEFN 24179 . 25727) ( +MB.WHENOPERATEDONFN 25729 . 27678) (MB.COPYFN 27680 . 28138) (MB.GETFN 28140 . 29101) (MB.PUTFN 29103 + . 30203) (MB.SHOWSELFN 30205 . 31714) (MB.CREATE 31716 . 35739) (MB.CHANGENAME 35741 . 36223) ( +MB.INIT 36225 . 37686) (MB.TRACK.UNTIL 37688 . 38383) (MB.DON'T 38385 . 38681) (MB.SPEC.REMAINDER +38683 . 39302)) (39466 49471 (MB.3STATE.CREATE 39476 . 40340) (MB.3STATE.DISPLAYFN 40342 . 41328) ( +MB.3STATE.SHOWSELFN 41330 . 43641) (MB.3STATE.INIT 43643 . 45054) (MB.3STATE.SETSTATEFN 45056 . 45714) + (MB.3STATE.BUTTONEVENTINFN 45716 . 49469)) (49626 78530 (MB.NWAY.CREATE 49636 . 55819) ( +MB.NWAY.DISPLAYFN 55821 . 56684) (MB.NWAY.SIZEFN 56686 . 60622) (MB.NWAY.SELECT 60624 . 64194) ( +MB.NWAY.BUTTONEVENTINFN 64196 . 67408) (MB.NWAY.NEWMENUBUTTON 67410 . 68122) (MB.NWAY.COPYFN 68124 . +69091) (MB.NWAY.INIT 69093 . 70584) (MB.NWAY.ARRANGEBUTTONS 70586 . 72557) (MB.NWAY.ADDITEM 72559 . +76708) (MB.NWAY.FINDSUBOBJ 76710 . 77224) (MB.NWAY.SETSTATEFN 77226 . 78528)) (78609 90608 ( +MB.TOGGLE.CREATE 78619 . 79614) (MB.TOGGLE.DISPLAYFN 79616 . 81099) (MB.TOGGLE.INIT 81101 . 82900) ( +MB.SET.TOGGLE 82902 . 84103) (MB.TOGGLE.SETSTATEFN 84105 . 84945) (MB.TOGGLE.BUTTONEVENTINFN 84947 . +89263) (MB.TOGGLE.WHENOPERATEDONFN 89265 . 90606)) (90689 123222 (MB.FIELD.CREATE 90699 . 96150) ( +MB.FIELD.DISPLAYFN 96152 . 96943) (MB.FIELD.IMAGEBOXFN 96945 . 98427) (MB.FIELD.PREFIXCREATE 98429 . +102365) (MB.FIELD.SUFFIXCREATE 102367 . 104027) (MB.FIELD.INIT 104029 . 105796) ( +MB.FIELD.WHENOPERATEDONFN 105798 . 107069) (MB.FIELD.GETSTATEFN 107071 . 111005) (MB.FIELD.SETSTATEFN +111007 . 115811) (MB.FIELD.BUTTONEVENTINFN 115813 . 118118) (MB.FIELD.SIZEFN 118120 . 118360) ( +MB.FIELD.INSURETYPE 118362 . 123220))))) STOP diff --git a/library/tedit/TEDIT-BUTTONS.LCOM b/library/tedit/TEDIT-BUTTONS.LCOM index 5fd325814497f27709e434bd2691ecc91b73fa8b..ae82ac19f855c0f2067c5bb6168907b34aa6a405 100644 GIT binary patch delta 556 zcmZ2Jh3ViVrU~I9My9%6iFvw421aHI29{QaCRPTf6SJ+Pj14puxRi{H5weD+Rwkxa zhQ<^3izVmfmtw@8z>kW853JnSI_X~FR_YKxm zunGur4fFI54c2u58aG*yQG$_cVy!kim#>qaql?SrcRH$@1()|+?V3_ap8Wy-Cn+&lb@ysOIsKt=}|y2VX}FK z-saAXx3ZJ_+gt>Ie((!-jMQ`X4~TU0Q{bBXxXpdCcDpTI5Tb2G`dhtv3w={^apI zpN973^=s|_K9CpES$0;h8Km4GC5LGEj7bhQW}}h4s7n^qdV^f7 zSxuYMr~uMAfh%=y{_rfTf`WU@8K&s(GoRv21V1En1f0*H)?gqYT%2> z=h4Uky56zX2;NHa_%_+kh{8A#6lqNAUzplSF%kce+ztEpi(i?TSSXBhda4}4$16#^ zbK_KejP3p=nlYm8wB^0Ei0w zbrstedit>TEDIT-FILE.;656 173140 +(FILECREATED " 7-Feb-2026 17:02:37" {WMEDLEY}tedit>TEDIT-FILE.;657 173103 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8) + :CHANGES-TO (FNS TEDITFROMLISPSOURCE) - :PREVIOUS-DATE "25-Sep-2025 21:32:46" {WMEDLEY}tedit>TEDIT-FILE.;655) + :PREVIOUS-DATE "23-Oct-2025 08:49:06" {WMEDLEY}tedit>TEDIT-FILE.;656) (PRETTYCOMPRINT TEDIT-FILECOMS) @@ -2625,7 +2625,8 @@ (DEFINEQ (TEDITFROMLISPSOURCE - [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END) (* ; "Edited 7-Apr-2025 23:13 by rmk") + [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END) (* ; "Edited 7-Feb-2026 17:02 by rmk") + (* ; "Edited 7-Apr-2025 23:13 by rmk") (* ; "Edited 1-Apr-2025 12:54 by rmk") (* ; "Edited 26-Mar-2025 10:02 by rmk") (* ; "Edited 18-Feb-2025 23:34 by rmk") @@ -2658,9 +2659,6 @@ ,(TEDIT.ATOMBOUND.READTABLE (fetch (READER-ENVIRONMENT REREADTABLE) of USERTEMP)) DEFAULTPUTEXTENSION "")) - (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Fetching " (FULLNAME SOURCEFILE) - " ...") - T) (COPY.TEXT.TO.IMAGE SOURCEFILE TSTREAM) TSTREAM]) @@ -2693,28 +2691,28 @@ (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5317 35576 (TEDIT.GET 5327 . 11737) (TEDIT.FORMATTEDFILEP 11739 . 13055) ( -TEDIT.FILEDATE 13057 . 14366) (TEDIT.INCLUDE 14368 . 22397) (TEDIT.RAW.INCLUDE 22399 . 23207) ( -TEDIT.PUT 23209 . 31565) (TEDIT.PUT.STREAM 31567 . 35574)) (35577 56851 (\TEDIT.GET.FOREIGN.FILE 35587 - . 39012) (\TEDIT.GET.UNFORMATTED.FILE 39014 . 43320) (\TEDIT.GET.FORMATTED.FILE 43322 . 46965) ( -\TEDIT.FORMATTEDSTREAMP 46967 . 50098) (\ARBIN 50100 . 50820) (\ATMIN 50822 . 51359) (\DWIN 51361 . -51740) (\STRINGIN 51742 . 52450) (\TEDIT.GET.TRAILER 52452 . 55320) (\TEDIT.CACHEFILE 55322 . 56849)) -(57017 73055 (\TEDIT.GET.PIECES3 57027 . 67990) (\TEDIT.GET.PROPS3 67992 . 71214) ( -\TEDIT.MAKE.STRINGPIECE 71216 . 73053)) (73056 86482 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73066 . 79299) -(\TEDIT.INTERPRET.MCCS.SHIFTS 79301 . 85546) (\TEDIT.CONVERT.XCCSTOMCCS 85548 . 86480)) (86504 92749 ( -\TEDIT.GET.UNFORMATTED.FILE.UTF8 86514 . 92747)) (92772 104114 (\TEDIT.GET.CHARLOOKS.LIST 92782 . -93513) (\TEDIT.GET.SINGLE.CHARLOOKS 93515 . 100587) (\TEDIT.GET.CHARLOOKS 100589 . 102145) ( -\TEDIT.GET.PARALOOKS.INDEX 102147 . 102691) (\TEDIT.GET.CHARLOOKS.INDEX 102693 . 104112)) (104115 -111772 (\TEDIT.GET.PARALOOKS.LIST 104125 . 104747) (\TEDIT.GET.SINGLE.PARALOOKS 104749 . 111770)) ( -111773 115606 (\TEDIT.GET.OBJECT 111783 . 115604)) (115671 148934 (\TEDIT.PUT.PCTB 115681 . 125588) ( -\TEDIT.PUT.PCTB.PIECEDATA 125590 . 128788) (\TEDIT.PUT.TRAILER 128790 . 130118) ( -\TEDIT.PUT.PCTB.MERGEABLE 130120 . 133893) (\TEDIT.PUT.UTF8.SPLITPIECES 133895 . 138597) ( -\TEDIT.PUT.PCTB.NEXTNEW 138599 . 143095) (\TEDIT.INSERT.NEWPIECES 143097 . 146532) (\TEDIT.PUTRESET -146534 . 146776) (\ARBOUT 146778 . 147502) (\ATMOUT 147504 . 148109) (\DWOUT 148111 . 148390) ( -\STRINGOUT 148392 . 148932)) (148935 161669 (\TEDIT.PUT.CHARLOOKS.LIST 148945 . 150617) ( -\TEDIT.PUT.SINGLE.CHARLOOKS 150619 . 156899) (\TEDIT.PUT.CHARLOOKS 156901 . 158240) ( -\TEDIT.PUT.CHARLOOKS1 158242 . 159293) (\TEDIT.PUT.OBJECT 159295 . 161667)) (161670 169309 ( -\TEDIT.PUT.PARALOOKS.LIST 161680 . 162582) (\TEDIT.PUT.SINGLE.PARALOOKS 162584 . 168168) ( -\TEDIT.PUT.PARALOOKS 168170 . 169307)) (169404 172833 (TEDITFROMLISPSOURCE 169414 . 172082) ( -SHELLSCRIPTP 172084 . 172313) (TEDITFROMSHELLSCRIPT 172315 . 172831))))) + (FILEMAP (NIL (5304 35563 (TEDIT.GET 5314 . 11724) (TEDIT.FORMATTEDFILEP 11726 . 13042) ( +TEDIT.FILEDATE 13044 . 14353) (TEDIT.INCLUDE 14355 . 22384) (TEDIT.RAW.INCLUDE 22386 . 23194) ( +TEDIT.PUT 23196 . 31552) (TEDIT.PUT.STREAM 31554 . 35561)) (35564 56838 (\TEDIT.GET.FOREIGN.FILE 35574 + . 38999) (\TEDIT.GET.UNFORMATTED.FILE 39001 . 43307) (\TEDIT.GET.FORMATTED.FILE 43309 . 46952) ( +\TEDIT.FORMATTEDSTREAMP 46954 . 50085) (\ARBIN 50087 . 50807) (\ATMIN 50809 . 51346) (\DWIN 51348 . +51727) (\STRINGIN 51729 . 52437) (\TEDIT.GET.TRAILER 52439 . 55307) (\TEDIT.CACHEFILE 55309 . 56836)) +(57004 73042 (\TEDIT.GET.PIECES3 57014 . 67977) (\TEDIT.GET.PROPS3 67979 . 71201) ( +\TEDIT.MAKE.STRINGPIECE 71203 . 73040)) (73043 86469 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73053 . 79286) +(\TEDIT.INTERPRET.MCCS.SHIFTS 79288 . 85533) (\TEDIT.CONVERT.XCCSTOMCCS 85535 . 86467)) (86491 92736 ( +\TEDIT.GET.UNFORMATTED.FILE.UTF8 86501 . 92734)) (92759 104101 (\TEDIT.GET.CHARLOOKS.LIST 92769 . +93500) (\TEDIT.GET.SINGLE.CHARLOOKS 93502 . 100574) (\TEDIT.GET.CHARLOOKS 100576 . 102132) ( +\TEDIT.GET.PARALOOKS.INDEX 102134 . 102678) (\TEDIT.GET.CHARLOOKS.INDEX 102680 . 104099)) (104102 +111759 (\TEDIT.GET.PARALOOKS.LIST 104112 . 104734) (\TEDIT.GET.SINGLE.PARALOOKS 104736 . 111757)) ( +111760 115593 (\TEDIT.GET.OBJECT 111770 . 115591)) (115658 148921 (\TEDIT.PUT.PCTB 115668 . 125575) ( +\TEDIT.PUT.PCTB.PIECEDATA 125577 . 128775) (\TEDIT.PUT.TRAILER 128777 . 130105) ( +\TEDIT.PUT.PCTB.MERGEABLE 130107 . 133880) (\TEDIT.PUT.UTF8.SPLITPIECES 133882 . 138584) ( +\TEDIT.PUT.PCTB.NEXTNEW 138586 . 143082) (\TEDIT.INSERT.NEWPIECES 143084 . 146519) (\TEDIT.PUTRESET +146521 . 146763) (\ARBOUT 146765 . 147489) (\ATMOUT 147491 . 148096) (\DWOUT 148098 . 148377) ( +\STRINGOUT 148379 . 148919)) (148922 161656 (\TEDIT.PUT.CHARLOOKS.LIST 148932 . 150604) ( +\TEDIT.PUT.SINGLE.CHARLOOKS 150606 . 156886) (\TEDIT.PUT.CHARLOOKS 156888 . 158227) ( +\TEDIT.PUT.CHARLOOKS1 158229 . 159280) (\TEDIT.PUT.OBJECT 159282 . 161654)) (161657 169296 ( +\TEDIT.PUT.PARALOOKS.LIST 161667 . 162569) (\TEDIT.PUT.SINGLE.PARALOOKS 162571 . 168155) ( +\TEDIT.PUT.PARALOOKS 168157 . 169294)) (169391 172796 (TEDITFROMLISPSOURCE 169401 . 172045) ( +SHELLSCRIPTP 172047 . 172276) (TEDITFROMSHELLSCRIPT 172278 . 172794))))) STOP diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM index 6809340d344c34f60e7356fb15cfe4bbe58993d3..92c52ac81534c9fb3057e2b2fd9ff4d4259e586f 100644 GIT binary patch delta 530 zcmZutO>5LZ7~b7pWRX&_Ab5HR7B^sq?4XS4m27pF(Zvjfatot~Yq#m&=?tGhUQ2`j6M0)O%tV-^mc zU6|#61vg?hu0GdYe~;v5GRz6C(XCZd%YmKT7FMAe*zTWhd2NL delta 626 zcmZuv&2G~`5VmtbY2bhar?x^eoSBv>+eFXKJ#pUaVeltql`ygMt!9!+(!7 zNVmx6jjqJkv~w)Blh)>^a41eaVSco(XNLke?^aI;ITvtuL)aGH7HHnuUD9&MU8#?C z6M`&%ff#+x5X(?JBKs6Db{e^R?=i-hhtq&Cz#0ZI&XkNOxE|yc6P&!r@)8`}{9J8) zur!FWlwHpb3S6+jE{E2$84LxQAi7wrsKHC(h*Mp%Z0tHN<&8W z5(=gTA&p3tFd+|}m+%zci1^>$6~ F{04LWl+6GD diff --git a/library/tedit/TEDIT-FNKEYS b/library/tedit/TEDIT-FNKEYS index 850b43ba..d4a6abf3 100644 --- a/library/tedit/TEDIT-FNKEYS +++ b/library/tedit/TEDIT-FNKEYS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-Nov-2025 08:40:56" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;317 109076 +(FILECREATED " 8-Feb-2026 19:54:41" {WMEDLEY}tedit>TEDIT-FNKEYS.;318 109228 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT.BASIC.CHARBINDINGS) + :CHANGES-TO (VARS TEDIT.BASIC.CHARBINDINGS ORIG.TEDIT.CHARACTIONS) - :PREVIOUS-DATE "24-Nov-2025 00:38:18" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;316) + :PREVIOUS-DATE "24-Nov-2025 08:40:56" {WMEDLEY}tedit>TEDIT-FNKEYS.;317) (PRETTYCOMPRINT TEDIT-FNKEYSCOMS) @@ -1776,6 +1776,8 @@ (:PRINT.MENU \TEDIT.PRINT.MENU) (:EXPAND \TEDIT.ABBREV.EXPAND) (:GET.OBJECT GET.OBJ.FROM.USER) + (:PAGENUMOBJ (TEDIT.INSERT.OBJECT (TEDIT.PAGENO.CREATE) + TSTREAM)) (:OPENLINE \TEDIT.KEY.OPENLINE) (* ;; "") @@ -1913,6 +1915,7 @@ (:PRINT.MENU "Meta,P" "Meta,p") (:EXPAND "^X") (:GET.OBJECT "^O") + (:PAGENUMOBJ "^P") (* ;; "") @@ -1986,30 +1989,30 @@ (RPAQ TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE)) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5031 23296 (TEDIT.INSTALL.CHARBINDINGS 5041 . 7892) (TEDIT.CLEAR.CHARBINDINGS 7894 . -10914) (TEDIT.GET.CHARACTION 10916 . 13697) (TEDIT.GET.CHARBINDING 13699 . 15876) ( -TEDIT.GET.ALL.CHARBINDINGS 15878 . 18377) (TEDIT.CHARBINDINGS.INVERT 18379 . 19658) ( -TEDIT.GET.ALL.CHARACTIONS 19660 . 21982) (TEDIT.CONFLICTING.CHARBINDINGS 21984 . 23294)) (23356 33411 -(\TEDIT.KEY.CHARLOOKS 23366 . 24558) (\TEDIT.KEY.QUAD 24560 . 26653) (\TEDIT.DEFAULTSSEL 26655 . 27266 -) (\TEDIT.SETDEFAULT.FROM.SEL 27268 . 27945) (\TEDIT.KEY.SIZE 27947 . 29143) (\TEDIT.SUBSCRIPTSEL -29145 . 29348) (\TEDIT.SUPERSCRIPTSEL 29350 . 29554) (\TEDIT.KEY.TRANSFORM 29556 . 31553) ( -\TEDIT.KEY.OPENLINE 31555 . 32009) (\TEDIT.KEY.FAMILYN 32011 . 33409)) (33412 33701 (CAP-CASECODE -33422 . 33699)) (33735 37167 (\TEDIT.SHOWCARETLOOKS 33745 . 36260) (\TEDIT.DESCRIBEFONT 36262 . 37165) -) (37198 52171 (\TEDIT.ONECHAR.BACKWARD 37208 . 38355) (\TEDIT.ONECHAR.FORWARD 38357 . 39593) ( -\TEDIT.ONELINE.UP 39595 . 42556) (\TEDIT.ONELINE.DOWN 42558 . 44215) (\TEDIT.ONELINE.MOVE 44217 . -46504) (\TEDIT.ONEWORD.BACKWARD 46506 . 47694) (\TEDIT.ONEWORD.FORWARD 47696 . 48883) ( -\TEDIT.LINE.BEGIN 48885 . 49964) (\TEDIT.LINE.END 49966 . 51203) (\TEDIT.DOCUMENT.BEGIN 51205 . 51564) - (\TEDIT.DOCUMENT.END 51566 . 52169)) (52172 55480 (\TEDIT.LINEDELETE.FORWARD 52182 . 53291) ( -\TEDIT.LINEDELETE.BACKWARD 53293 . 54432) (\TEDIT.LINEDELETE 54434 . 55478)) (55481 58009 ( -\TEDIT.KEY.NEST 55491 . 58007)) (58010 59292 (\TEDIT.KEY.WRAP 58020 . 59290)) (59383 67431 ( -\TEDIT.KEY.FIND 59393 . 64571) (\TEDIT.KEY.FIND.SEARCHSTRING 64573 . 65713) (\TEDIT.GET.TARGET.STRING -65715 . 67429)) (67462 70094 (\TEDIT.KEY.SUBSTITUTE 67472 . 67693) (\TEDIT.MANPAGE 67695 . 68942) ( -\TEDIT.CALL.ED 68944 . 69774) (\TEDIT.SELECT.ALL 69776 . 70092)) (70121 75811 (\TEDIT.CLIPBOARD 70131 - . 71886) (\TEDIT.COPYTOCLIPBOARD 71888 . 72668) (\TEDIT.EXTRACTTOCLIPBOARD 72670 . 72865) ( -\TEDIT.WRITE.SEL 72867 . 75809)) (75977 88484 (\TEDIT.READTABLE 75987 . 76923) ( -\TEDIT.WORDBOUND.READTABLE 76925 . 79973) (TEDIT.GETSYNTAX 79975 . 81204) (TEDIT.SETSYNTAX 81206 . -82520) (TEDIT.GETFUNCTION 82522 . 83995) (TEDIT.SETFUNCTION 83997 . 86153) (TEDIT.WORDGET 86155 . -86416) (TEDIT.WORDSET 86418 . 87158) (TEDIT.ATOMBOUND.READTABLE 87160 . 88482)) (88585 95573 ( -TEDIT.BUTTONS.BUILD 88595 . 93841) (TEDIT.BUTTONBITMAP.FILL 93843 . 95571)) (98038 98626 ( -\TEDIT.TTCCLASS 98048 . 98624))))) + (FILEMAP (NIL (5054 23319 (TEDIT.INSTALL.CHARBINDINGS 5064 . 7915) (TEDIT.CLEAR.CHARBINDINGS 7917 . +10937) (TEDIT.GET.CHARACTION 10939 . 13720) (TEDIT.GET.CHARBINDING 13722 . 15899) ( +TEDIT.GET.ALL.CHARBINDINGS 15901 . 18400) (TEDIT.CHARBINDINGS.INVERT 18402 . 19681) ( +TEDIT.GET.ALL.CHARACTIONS 19683 . 22005) (TEDIT.CONFLICTING.CHARBINDINGS 22007 . 23317)) (23379 33434 +(\TEDIT.KEY.CHARLOOKS 23389 . 24581) (\TEDIT.KEY.QUAD 24583 . 26676) (\TEDIT.DEFAULTSSEL 26678 . 27289 +) (\TEDIT.SETDEFAULT.FROM.SEL 27291 . 27968) (\TEDIT.KEY.SIZE 27970 . 29166) (\TEDIT.SUBSCRIPTSEL +29168 . 29371) (\TEDIT.SUPERSCRIPTSEL 29373 . 29577) (\TEDIT.KEY.TRANSFORM 29579 . 31576) ( +\TEDIT.KEY.OPENLINE 31578 . 32032) (\TEDIT.KEY.FAMILYN 32034 . 33432)) (33435 33724 (CAP-CASECODE +33445 . 33722)) (33758 37190 (\TEDIT.SHOWCARETLOOKS 33768 . 36283) (\TEDIT.DESCRIBEFONT 36285 . 37188) +) (37221 52194 (\TEDIT.ONECHAR.BACKWARD 37231 . 38378) (\TEDIT.ONECHAR.FORWARD 38380 . 39616) ( +\TEDIT.ONELINE.UP 39618 . 42579) (\TEDIT.ONELINE.DOWN 42581 . 44238) (\TEDIT.ONELINE.MOVE 44240 . +46527) (\TEDIT.ONEWORD.BACKWARD 46529 . 47717) (\TEDIT.ONEWORD.FORWARD 47719 . 48906) ( +\TEDIT.LINE.BEGIN 48908 . 49987) (\TEDIT.LINE.END 49989 . 51226) (\TEDIT.DOCUMENT.BEGIN 51228 . 51587) + (\TEDIT.DOCUMENT.END 51589 . 52192)) (52195 55503 (\TEDIT.LINEDELETE.FORWARD 52205 . 53314) ( +\TEDIT.LINEDELETE.BACKWARD 53316 . 54455) (\TEDIT.LINEDELETE 54457 . 55501)) (55504 58032 ( +\TEDIT.KEY.NEST 55514 . 58030)) (58033 59315 (\TEDIT.KEY.WRAP 58043 . 59313)) (59406 67454 ( +\TEDIT.KEY.FIND 59416 . 64594) (\TEDIT.KEY.FIND.SEARCHSTRING 64596 . 65736) (\TEDIT.GET.TARGET.STRING +65738 . 67452)) (67485 70117 (\TEDIT.KEY.SUBSTITUTE 67495 . 67716) (\TEDIT.MANPAGE 67718 . 68965) ( +\TEDIT.CALL.ED 68967 . 69797) (\TEDIT.SELECT.ALL 69799 . 70115)) (70144 75834 (\TEDIT.CLIPBOARD 70154 + . 71909) (\TEDIT.COPYTOCLIPBOARD 71911 . 72691) (\TEDIT.EXTRACTTOCLIPBOARD 72693 . 72888) ( +\TEDIT.WRITE.SEL 72890 . 75832)) (76000 88507 (\TEDIT.READTABLE 76010 . 76946) ( +\TEDIT.WORDBOUND.READTABLE 76948 . 79996) (TEDIT.GETSYNTAX 79998 . 81227) (TEDIT.SETSYNTAX 81229 . +82543) (TEDIT.GETFUNCTION 82545 . 84018) (TEDIT.SETFUNCTION 84020 . 86176) (TEDIT.WORDGET 86178 . +86439) (TEDIT.WORDSET 86441 . 87181) (TEDIT.ATOMBOUND.READTABLE 87183 . 88505)) (88608 95596 ( +TEDIT.BUTTONS.BUILD 88618 . 93864) (TEDIT.BUTTONBITMAP.FILL 93866 . 95594)) (98061 98649 ( +\TEDIT.TTCCLASS 98071 . 98647))))) STOP diff --git a/library/tedit/TEDIT-FNKEYS.LCOM b/library/tedit/TEDIT-FNKEYS.LCOM index 1e667affb04ed3b06499f9254224276ba8471ce8..e2989380eb96f1cd72d85936ec725df90d0ef06b 100644 GIT binary patch delta 450 zcmeych3Vc_rU~I93KqIQCRQef6SGzHOHxxZOYA~iT|7f{-Tb^= zBZKvCTlk_a>fy9P@oO)d>LPajw3AXi7A zEefcnLLH){P#x~;>f+-XS!EhozsOA1&81i6NJ z`iBPVx&SRu;F_$&s40nEv$-bMg(_1rJw;00zFT^ zVAr4!J)nrIbBKZl7eo}S&R-AW2Tg^L;1Hm1d^IPZ=`fmnF;|?CYqD6U|Kuf|AXaUs z_vDkE(m>XePOr%|Qw15hHam1BaRD8QuuUm0Kxy)ZHj&AjrYKClJjEKQns2K5WV5Lj UKvv#Vjmgue>I3y1o4Sex0J9Q;SpWb4 delta 425 zcmcb&mFdG4rU~I9Mkcy``DMCB21cd|1{PK(23DqK6SGzHLtI@vL+rq$uA85?Yh}ZIQ+G^z@VzQW8s2Q?P0v{87$7})9xMB1eWo34leIeaB)F8^it=+6!0vJJ4{~(z z2Zex==H!A-e@3p!4V{vcZ+3dha5;N8208n?xGMO#x`pVv_=h_AxCVy$hq!8LPPXgv z65_IQ_VEmG@^=h!(G74620C~1tga-k$syGOlNF{a0F82(YCXATsydLhc&f$ZsxJA- Szo&8nc`VcPH=9gb#R33Det7x- diff --git a/library/tedit/TEDIT-LOOKS b/library/tedit/TEDIT-LOOKS index 9c66d9ca..7467df8b 100644 --- a/library/tedit/TEDIT-LOOKS +++ b/library/tedit/TEDIT-LOOKS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}tedit>TEDIT-LOOKS.;460 155196 +(FILECREATED "10-Feb-2026 11:07:12" {WMEDLEY}TEDIT>TEDIT-LOOKS.;465 155591 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-LOOKSCOMS) + :CHANGES-TO (FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.PARALOOKS) - :PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}tedit>TEDIT-LOOKS.;459) + :PREVIOUS-DATE " 7-Dec-2025 16:32:32" {WMEDLEY}tedit>TEDIT-LOOKS.;460) (PRETTYCOMPRINT TEDIT-LOOKSCOMS) @@ -1377,7 +1377,8 @@ (DEFINEQ (\TEDIT.CHANGE.CHARLOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 31-Jul-2025 09:18 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 10-Feb-2026 11:06 by rmk") + (* ; "Edited 31-Jul-2025 09:18 by rmk") (* ; "Edited 22-Apr-2025 20:17 by rmk") (* ; "Edited 21-Apr-2025 20:17 by rmk") (* ; "Edited 20-Apr-2025 13:27 by rmk") @@ -1403,10 +1404,12 @@ (* ;;; "Internal programmatic interface to changing character looks. DOES NOT CHANGE the current selection (unless it's the TARGETSEL).") (PROG ((TEXTOBJ (TEXTOBJ TSTREAM)) - SELPIECES NEWLOOKSLIST FONT DIRTY) (* ; - "Construct the set of new looks to apply:") + SELPIECES NEWLOOKSLIST FONT DIRTY) (CL:UNLESS TARGETSEL (SETQ TARGETSEL (TEXTSEL TEXTOBJ))) + (CL:WHEN (EQ 0 (GETSEL TARGETSEL DCH)) + (TEDIT.PROMPTPRINT TSTREAM "No characters are selected" T) + (RETURN)) (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET) (NOT (\TEDIT.READONLY TSTREAM NIL (GETSEL TARGETSEL CH#))) (ILEQ (GETSEL TARGETSEL CH#) @@ -2103,7 +2106,8 @@ then (\TEDIT.CHANGE.PARALOOKS TSTREAM NEWLOOKS TARGETSEL)))]) (\TEDIT.CHANGE.PARALOOKS - [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 21-Apr-2025 23:27 by rmk") + [LAMBDA (TSTREAM NEWLOOKS TARGETSEL) (* ; "Edited 10-Feb-2026 11:07 by rmk") + (* ; "Edited 21-Apr-2025 23:27 by rmk") (* ; "Edited 20-Apr-2025 13:27 by rmk") (* ; "Edited 16-Apr-2025 09:05 by rmk") (* ; "Edited 6-Apr-2025 14:29 by rmk") @@ -2126,6 +2130,9 @@ NEWPAGEAFTER HEADINGKEEP KEEP HARDCOPY USERINFO REVISED STYLE CHARSTYLES COLUMN TABS DEFAULTTAB MARGINBAR)) PARAPIECES) + (CL:WHEN (EQ 0 (TEXTLEN TEXTOBJ)) + (TEDIT.PROMPTPRINT TSTREAM "No text to modify" T) + (RETURN)) (CL:UNLESS TARGETSEL (SETQ TARGETSEL (TEXTSEL TEXTOBJ))) (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET) @@ -2458,26 +2465,26 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162 - . 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444 -)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 ( -\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 . -36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) ( -\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604 - . 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) ( -\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) ( -\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) ( -\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) ( -\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) ( -\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS -75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 ( -\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) ( -\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS -107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) ( -\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) ( -TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS -130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 . -142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 ( -TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 ( -\TEDIT.MARK.REVISION 154325 . 155000))))) + (FILEMAP (NIL (22045 23987 (\TEDIT.CHARLOOKS.DEFPRINT 22055 . 23191) (\TEDIT.PARALOOKS.DEFPRINT 23193 + . 23985)) (24091 24477 (\TEDIT.CREATE.FACE.MENU 24101 . 24273) (\TEDIT.CREATE.SIZE.MENU 24275 . 24475 +)) (25481 27370 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25491 . 27368)) (27642 52899 ( +\TEDIT.CHARLOOKS.FROM.FONT 27652 . 29936) (\TEDIT.EQCLOOKS 29938 . 32969) (\TEDIT.SAMECLOOKS 32971 . +36142) (TEDIT.CARETLOOKS 36144 . 37690) (TEDIT.COPY.LOOKS 37692 . 40975) ( +\TEDIT.UNPARSE.CHARLOOKS.LIST 40977 . 44471) (\TEDIT.MODIFYLOOKS 44473 . 46633) (TEDIT.NEW.FONT 46635 + . 47082) (\TEDIT.CARETLOOKS.VERIFY 47084 . 47921) (\TEDIT.CARETPIECE 47923 . 48228) ( +\TEDIT.GET.INSERT.CHARLOOKS 48230 . 51277) (\TEDIT.GET.TERMSA.WIDTHS 51279 . 51695) ( +\TEDIT.PARSE.CHARLOOKS.LIST 51697 . 52897)) (52900 65027 (\TEDIT.MCCS.TRANSLATE 52910 . 58763) ( +\TEDIT.CONVERT.TO.FORMATTED 58765 . 65025)) (65899 73236 (\TEDIT.UNIQUIFY.CHARLOOKS 65909 . 67569) ( +\TEDIT.UNIQUIFY.PARALOOKS 67571 . 68838) (\TEDIT.UNIQUIFY.ALL 68840 . 70928) ( +\TEDIT.FLUSH.UNUSED.LOOKS 70930 . 73234)) (73269 85227 (TEDIT.LOOKS 73279 . 75668) (TEDIT.GET.LOOKS +75670 . 78005) (TEDIT.SUBLOOKS 78007 . 82387) (TEDIT.FINDLOOKS 82389 . 85225)) (85228 115001 ( +\TEDIT.CHANGE.CHARLOOKS 85238 . 94139) (\TEDIT.CHANGE.CHARLOOKS.NEW 94141 . 97956) ( +\TEDIT.CHARLOOKS.CHANGE.FONT 97958 . 106265) (\TEDIT.FONT.NEXTSIZE 106267 . 107888) (\TEDIT.LOOKS +107890 . 111219) (\TEDIT.FONTCOPY 111221 . 112722) (\TEDIT.COERCE.FONTCLASS 112724 . 113875) ( +\TEDIT.FONTCLASS.TO.FONT 113877 . 114999)) (115044 146933 (\TEDIT.EQFMTSPEC 115054 . 118269) ( +TEDIT.GET.PARALOOKS 118271 . 122318) (\TEDIT.PARSE.PARALOOKS.LIST 122320 . 130353) (TEDIT.PARALOOKS +130355 . 131395) (\TEDIT.CHANGE.PARALOOKS 131397 . 138606) (\TEDIT.CHANGE.PARALOOKS.NEW 138608 . +142591) (TEDIT.COPY.PARALOOKS 142593 . 145267) (\TEDIT.PARABOUNDS 145269 . 146931)) (146993 154709 ( +TEDIT.SUBPARALOOKS 147003 . 151105) (SAMEPARALOOKS 151107 . 154707)) (154710 155397 ( +\TEDIT.MARK.REVISION 154720 . 155395))))) STOP diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM index 066f0a1552dac306f0d36b44660325e55156333b..c5bf83c2f775ced8638c75e4c0819bce81bd0038 100644 GIT binary patch delta 1924 zcmZuy&u<$=6i#f4L;yh=bX47!kK1Yu$f)bHlpIIwg zRb@6*0fD@5D1=JW@bz9zm8z=s&4(x5{eHXuC`3KMo{7K%;hY-;@?J$T-K`{JhjH<8G3|BKbd1t|r5I&5>+ zt=N06s)7{K*H-6~k{SNz-S-EQQ3y|%g@*Emw*iv!k)K)dY{vwt8PTzAMZqU*02nd%3ZaG1_vQERQ6&fw4P*=dkICsTzJ-g8=luEd(jRHiw zS+%PW1?LP(*h$rJ(O0AX=ADIvWWMvk%A(H4<*OYtERD&W|M+Mz$+R3^#uCle)gDlt zN7XqEyXJU^2SZbq1JkaX1zZvdHB~DDk=);Ud}A4}TaEx>*^Z@5$uC3}U9_@s}b9H8(^2qAan-9DnL*Js;Z0;DT_N1F>%raU=nT^VAXdm z*D6-A`Pipp$`!BI=qRt(c+5%3v~HBEy111Qd%x;WWY$X>PnPjM0fp z%^^8HY%~x`V~)28l6KMqq~OGe_rvdnIbL#sEieYLm)|2BPsosg8{dH62qD$|q71 zF<7J|?tgo96vQ7jdVJMTO^hw~ns_71!E9;Na72W$S| Mle-u0$zN;#1JEw-{r~^~ delta 1716 zcmZvc%WoT16vmS=P!Wj*l;%NF>2yRMG=4l7Tie%q=&pr2?@BF@e{+;&qH`b6qvto9a5OxA zba3<#4vs)?Z+5#deYMeO=mn`S-OJI+g{MpNLQqr;rKqP?RD z=j^t&C~j!~F3!xd#{nm`$;U5 zw8Supz!J1Pi95k|EW2QFrhYiNRMU3=7&pKM6rp%_B9fpx@nrRL%QIu=WA+WMOZUBo?(VtSIDln-+!0U+XNW2;3L8k;PNc4u?;k1HkPq)ah;rs%{ro4_DB^ zTo8vK>8YmR*i-kA%_%)H`J{I*Q%96?q-sz$6-UgnNgM%C!vVcsAM6fCXnq~nM16I~ ztP$H*Ki@GGF_+Fdcc0w4s=Zbja+taD4ejighyToKh}`+X;ykyV3XH;W+%_`DaY4~> zZ*OuON@3S&@c9I(DeyVsPy}BDpHngcp9%Hi@q%Uu_4~>45_K|brOuKY?Oqax(gSKU zQ0E^nEI0ac8z@p!q%93e4UW{mDIKeV-YTJIRa5`-3_(rHUfjqn#!ZO&?PO(aR%e%T zFN|{B93Ps%!gIchTwFMX131p884gB+0y|0p(P?=>xC7K85MluZNLX*^kI|GsQNMyU zn=$76|BswA`r02~K0;X#96UL04ZM*3W)Dq^th{Rh+wa diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU index 6794e9d7..5a14b140 100644 --- a/library/tedit/TEDIT-MENU +++ b/library/tedit/TEDIT-MENU @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}tedit>TEDIT-MENU.;501 183343 +(FILECREATED " 9-Feb-2026 09:10:43" {WMEDLEY}tedit>TEDIT-MENU.;510 183027 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-MENUCOMS) + :CHANGES-TO (FNS \TEDIT.PAGEMENU.CREATE) - :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}tedit>TEDIT-MENU.;499) + :PREVIOUS-DATE "27-Jan-2026 10:42:09" {WMEDLEY}tedit>TEDIT-MENU.;508) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -1381,7 +1381,8 @@ (DEFINEQ (\TEDIT.EXPANDEDMENU.CREATE - [LAMBDA NIL (* ; "Edited 29-May-2025 09:31 by rmk") + [LAMBDA NIL (* ; "Edited 25-Jan-2026 10:52 by rmk") + (* ; "Edited 29-May-2025 09:31 by rmk") (* ; "Edited 8-Mar-2025 12:27 by rmk") (* ; "Edited 7-Jan-2025 16:05 by rmk") (* ; "Edited 8-Nov-2024 08:35 by rmk") @@ -1463,13 +1464,15 @@ TAB (FIELD (IDENTIFIER SERVER) (PRELABEL "server:") - (FIELDTYPE SYMBOL)) + (FIELDTYPE SYMBOL) + (EMPTYVALUE NIL)) (FIELD (IDENTIFIER COPIES) (PRELABEL "copies:") + (EMPTYVALUE 1) (FIELDTYPE POSITIVENUMBER)) - 2 - (NWAY (IDENTIFIER SIDES) - (BUTTONS (One% Side Duplex))) + 3 + (TOGGLE (IDENTIFIER DOUBLE-SIDED) + (LABEL "Double-sided")) EOL TAB TAB (FIELD (IDENTIFIER MESSAGE/PHONE#) (PRELABEL "Message/Phone#:") (FIELDTYPE STRING]) @@ -1546,7 +1549,8 @@ (RETURN 'DON'T]) (\TEDIT.EXPANDEDMENU.ACTIONFN - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 29-May-2025 09:29 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 25-Jan-2026 11:05 by rmk") + (* ; "Edited 29-May-2025 09:29 by rmk") (* ; "Edited 11-May-2025 15:01 by rmk") (* ; "Edited 6-Apr-2025 14:39 by rmk") (* ; "Edited 18-Mar-2025 23:54 by rmk") @@ -1564,11 +1568,11 @@ (* ;  "MBFN for TEdit default menu item buttons.") (ERSETQ (RESETLST + (RESETSAVE NIL (LIST [FUNCTION (LAMBDA (SEL) + (FSETSEL SEL SET NIL] + MENUSEL)) (LET ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM)) STATES STATE) - [RESETSAVE (PROG1 OBJ - (IMAGEOBJPROP OBJ 'MENUBUTTON.SELECTED T)) - '(AND (IMAGEOBJPROP OLDVALUE 'MENUBUTTON.SELECTED NIL] (SELECTQ (IMAGEOBJPROP OBJ 'IDENTIFIER) (QUIT (* ; "Is it OK to quit the main edit?") (\TEDIT.FINISHEDIT? MAINSTREAM)) @@ -1636,29 +1640,21 @@ ) (EQ 'ON (LISTGET STATES 'CONFIRM)) (EQ 'ON (LISTGET STATES 'USENEWLOOKS])]) - (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#) + (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES DOUBLE-SIDED MESSAGE/PHONE#) MENUSTREAM 'STATE MENUSEL)) - (LET ((SERVER (LISTGET STATES 'SERVER)) - (COPIES (LISTGET STATES 'COPIES)) - (SIDES (LISTGET STATES 'SIDES)) + (LET ((COPIES (LISTGET STATES 'COPIES)) (MSG (LISTGET STATES 'MESSAGE/PHONE#)) PRINTOPTIONS) - (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME - SERVER))) - (TEDIT.PROMPTPRINT MAINSTREAM - "Using default print server.")) (CL:WHEN COPIES (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES))) - (CL:WHEN SIDES - (push PRINTOPTIONS '%#SIDES (SELECTQ SIDES - (One% Side 1) - (Duplex 2) - NIL))) + (CL:WHEN (LISTGET STATES 'DOUBLE-SIDED) + (push PRINTOPTIONS '%#SIDES 2)) (CL:WHEN MSG (push PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG))) - (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS))) - (ERROR))))]) + (SEND.FILE.TO.PRINTER MAINSTREAM (LISTGET STATES 'SERVER) + PRINTOPTIONS))) + (SHOULDNT))))]) ) @@ -2371,7 +2367,9 @@ (DEFINEQ (\TEDIT.PAGEMENU.CREATE - [LAMBDA (TSTREAM) (* ; "Edited 5-Jun-2025 18:41 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 9-Feb-2026 09:09 by rmk") + (* ; "Edited 26-Jan-2026 12:03 by rmk") + (* ; "Edited 5-Jun-2025 18:41 by rmk") (* ; "Edited 11-May-2025 14:40 by rmk") (* ; "Edited 27-Jan-2025 08:51 by rmk") (* ; "Edited 7-Jan-2025 15:47 by rmk") @@ -2411,16 +2409,10 @@ EOL "Paper Size: " (NWAY (IDENTIFIER PAPERSIZE) (BUTTONS (Letter Legal A4)) (INITSTATE Letter)) - 8 + 16 (TOGGLE (LABEL "Landscape")) - 7 - (FIELD (IDENTIFIER STARTINGPAGE#) - (PRELABEL "Starting page #:") - (LABELFONT (HELVETICA 10)) - (FIELDTYPE POSITIVENUMBER)) EOL - (TEXT (STRING "For page: ") - (FONT (HELVETICA 10))) + (TEXT (STRING "For page: ")) (NWAY (IDENTIFIER PAGEID) (BUTTONS (|First(&Default)| Other% Left Other% Right))) EOL @@ -2430,8 +2422,7 @@ (* ;; "Page numbers") 5 - (TEXT (STRING "Page numbers: ") - (FONT (HELVETICA 10))) + (TEXT (STRING "Page numbers: ")) (NWAY (IDENTIFIER PAGENOS) (BUTTONS (No Yes Heading)) (INITSTATE Yes)) @@ -2454,14 +2445,18 @@ 3 "Alignment:" 2 (NWAY (IDENTIFIER QUAD) (BUTTONS (Left Centered Right)) (INITSTATE Centered)) + EOL TAB (FIELD (IDENTIFIER FOLIOPRETEXT) + (PRELABEL "Text before number:")) + 5 + (FIELD (IDENTIFIER FOLIOPOSTTEXT) + (PRELABEL "Text after number:")) EOL (* ;; "") (* ;; "Margins") - EOL 5 (TEXT (STRING "Margins: ") - (FONT (HELVETICA 10))) + EOL 5 (TEXT (STRING "Margins: ")) (FIELD (IDENTIFIER LEFTMARGIN) (PRELABEL "Left") (POSTLABEL "picas") @@ -2489,7 +2484,6 @@ EOL 5 (FIELD (IDENTIFIER COLUMNS) (PRELABEL "Columns:") - (LABELFONT (HELVETICA 10)) (INITSTATE 1) (FIELDTYPE POSITIVENUMBER)) 4 @@ -2735,7 +2729,8 @@ (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.CHANGE.PAGELOOKS - [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 11-May-2025 15:04 by rmk") + [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 27-Jan-2026 10:41 by rmk") + (* ; "Edited 11-May-2025 15:04 by rmk") (* ; "Edited 24-Dec-2024 21:28 by rmk") (* ; "Edited 20-Oct-2024 17:17 by rmk") (* ; "Edited 30-Aug-2024 23:43 by rmk") @@ -2754,8 +2749,8 @@ ((OFF NEUTRAL) (RPLACA PLTAIL NIL)) NIL)) - (SELECTQ PAGENOS - (Yes (* ; + (SELECTQ (L-CASE PAGENOS T) + ((Yes T) (* ;  "Page number format specfified in pagelooks menu") (CL:UNLESS (AND (LISTGET PAGELOOKS 'PAGENUMBERX) (LISTGET PAGELOOKS 'PAGENUMBERY)) @@ -2776,7 +2771,7 @@ (* ;; "Page numbers formatted/printed by image object in header paragraphs") (push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#))) - NIL) + (SHOULDNT)) (CL:UNLESS (LISTGET PAGELOOKS 'COLUMNS) (LISTPUT PAGELOOKS 'COLUMNS 1) (RETURN)) @@ -2786,9 +2781,6 @@ (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please specify the space between columns" T T) (RETURN)) [push PAGEPROPS 'LANDSCAPE? (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE] - - (* ;; "**EMPTY** may come from field values in the pagelooks menue") - (TEDIT.PAGEFORMAT MAINTEXTOBJ (TEDIT.SINGLE.PAGEFORMAT PAGENOS (LISTGET PAGELOOKS 'PAGENUMBERX) (LISTGET PAGELOOKS 'PAGENUMBERY) @@ -2907,32 +2899,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) ( -TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347 - . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) ( -MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981) - (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) ( -MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363 - . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN -54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) ( -MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980 - . 65414)) (66241 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START - 68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842 -81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE -79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 ( -\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) ( -\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 ( -\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) ( -\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) ( -\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 ( -\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC -125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) ( -\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) ( -\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) ( -\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) ( -\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN - 159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970) - (\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) ( -177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN -180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185))))) + (FILEMAP (NIL (4936 16574 (TEDIT.ADD.MENUITEM 4946 . 7063) (TEDIT.DEFAULT.MENUFN 7065 . 13786) ( +TEDIT.REMOVE.MENUITEM 13788 . 14785) (\TEDIT.CREATEMENU 14787 . 15352) (\TEDIT.MENU.WHENHELDFN 15354 + . 16259) (\TEDIT.MENU.WHENSELECTEDFN 16261 . 16572)) (17388 65423 (DRAWMARGINSCALE 17398 . 20857) ( +MARGINBAR 20859 . 27984) (MARGINBAR.CREATE 27986 . 32184) (MB.MARGINBAR.BUTTONEVENTINFN 32186 . 39988) + (MB.MARGINBAR.SELFN.TABS 39990 . 45230) (MB.MARGINBAR.SELFN.TABS.KIND 45232 . 46167) ( +MARGINBAR.GETSTATEFN 46169 . 50156) (MARGINBAR.SETSTATEFN 50158 . 50368) (MARGINBAR.NEUTRALIZE 50370 + . 51045) (MARGINBAR.LOOKS 51047 . 54153) (MB.MARGINBAR.SIZEFN 54155 . 54941) (MB.MARGINBAR.DISPLAYFN +54943 . 58004) (MDESCALE 58006 . 58546) (MSCALE 58548 . 58878) (MB.MARGINBAR.SHOWTAB 58880 . 61203) ( +MB.MARGINBAR.TABTRACK 61205 . 62590) (MARGINBAR.INIT 62592 . 63985) (\TEDIT.PARALOOKS.TO.MARBAR 63987 + . 65421)) (66248 73530 (TEDIT.MENUSTREAM 66258 . 67258) (TEDITMENUP 67260 . 68229) (\TEDIT.MENU.START + 68231 . 72578) (\TEDIT.MENU.OPEN? 72580 . 72954) (\TEDIT.MENU.BUTTONEVENTFN 72956 . 73528)) (73849 +81900 (\TEDIT.MENU.CREATE 73859 . 75799) (\TEDIT.MENU.PARSE 75801 . 79490) (\TEDIT.MENU.NEUTRALIZE +79492 . 81563) (\TEDITMENU.RECORD.UNFORMATTED 81565 . 81898)) (81966 101368 ( +\TEDIT.EXPANDEDMENU.CREATE 81976 . 87654) (\TEDIT.EXPANDEDMENU.START 87656 . 89280) ( +\TEDIT.EXPANDEDMENU.FN 89282 . 92537) (\TEDIT.EXPANDEDMENU.ACTIONFN 92539 . 101366)) (101430 120855 ( +\TEDIT.PARAMENU.CREATE 101440 . 110171) (\TEDIT.PARAMENU.START 110173 . 111427) ( +\TEDIT.APPLY.PARALOOKS 111429 . 112481) (\TEDIT.SHOW.PARALOOKS 112483 . 115200) ( +\TEDIT.PARAMENU.FILLIN 115202 . 119951) (\TEDIT.PARAMENU.RESHAPEFN 119953 . 120853)) (121049 147891 ( +\TEDIT.CHARMENU.CREATE 121059 . 123663) (\TEDIT.CHARMENU.START 123665 . 124955) (\TEDIT.CHARMENU.SPEC +124957 . 129640) (\TEDIT.CHARMENU.PARSE 129642 . 132810) (\TEDIT.CHARMENU.FILLIN 132812 . 137442) ( +\TEDIT.SHOW.CHARLOOKS 137444 . 140989) (\TEDIT.APPLY.CHARLOOKS 140991 . 142152) ( +\TEDIT.OFFSETTYPE.STATEFN 142154 . 144117) (\TEDIT.OTHER.STATECHANGEFN 144119 . 145764) ( +\TEDIT.OTHER.SELECTFN 145766 . 147889)) (147953 177067 (\TEDIT.PAGEMENU.CREATE 147963 . 156484) ( +\TEDIT.PAGEMENU.START 156486 . 156837) (\TEDIT.SHOW.PAGELOOKS 156839 . 158725) (\TEDIT.PAGEMENU.FILLIN + 158727 . 160277) (\TEDIT.PAGEREGION.UNPARSE 160279 . 169678) (\TEDIT.APPLY.PAGELOOKS 169680 . 171607) + (\TEDIT.CHANGE.PAGELOOKS 171609 . 176223) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176225 . 177065)) ( +177068 182871 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177078 . 179890) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN +179892 . 181317) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181319 . 182869))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index 8c35a52dc1e1ef10776debc2adc8559dbd0c993a..4e14a98ae8505ac369622276901a086a06cf0bb9 100644 GIT binary patch delta 3981 zcmbVPU2GKB6}H!+0TWYW)<0N;9F`FOP&;$ye->9TyF0eW%+73gX1&-@f$d%J`e*If zrb23>ZQ4q0cnY}>eP~I51gI(%QM-LeQ9(@~DpaZDrBdIbl)kl6o%dGixp!ubosvBC z!F%VNd(XM&o}cd=e|oQp-fMcN7zbluxI8@|3Ze>vkt9M=mafff0ulP4IRW~!U1B5^ zH7Uypm|iK*EG;fq7Rn_kUs+yRJ(dLe`JX$_R;rK~E;tTsmm3@$Oh9RB4G%w0p&};w zntO+B$4cidGq5s{c&<&~?dc-|5M2^P4U$&I4hB*au(CK0&B^qr>5f?bK;S{|u35qBbx#RSnRa${mj5p=_^cZ;XXtg>A$BBy|P2kW`sAGlzHA57OzGk>+y1Cma58QHnyO-&yO}{&!h?Y~$Wz(MgCw%>NO;08r2N1R3RtF!VbH_n&YDn{#v;NRNLxNAssiVRC#}4f14R+Q z#lp`c8?h_WC>wI5F_-tSfVnXs>s!iBTN7xhn*mwX>+-USr4(8uOF|?+v_k<=Bew0P zokGR}8Osl!5LjpM4m3wX(;^*`q|nWB{J2OW8TM2OHEcgGYI6O&D9iNJgSfqQb*>PA zC@MS76J4yIC(4%BtN@(@L}oXg39z=Y@Cne(?{^#`0{SX+ZqCf3eMW{6#&>Ii3{)N8p>&$W&sOQ=QA1}aOSfC03s5Ws+DP;LTLyvuWO5ukwiWfdLI zJMDuiB8DNGXejRv+xaXgn!#8KK4|+%MHV1uVubRzCrOaEa*mm{&=CPB#2AV$RRjXt zvQI|mhStck3M^CVI%G-XG{}NN-tf>yefRpYSnCpfz1l_H>R$Tv z`so%9l^lE*c7;3Nd~cop^Su{)Fj{rMW7QVUGav~Pq@ARh%OOf)xMlkC`<+dgC2UHe z-uo>zT?fl^K-9EwMYnJoQ=P2@GlH*JD14O-2+S0QQx0hnF^kbe;j|HwdPrdkG9e5R zTM!*MRX3EymJZ$gI(_HkJuk4Bh`L0-S7@i3g#)zh#(GRuIC=Q@FVMf;xP4rap|>AS zoIoc|T`I$Dd8$;YURq6{XVI!?i&HXveX^bY@#guMq|s{=aXNHsEG7y3^Jh3vJ-yxE zBO-=GGU=s-%Zt@jV6r%-Y||v@q4)=9n?yn4-}gQkj~OAm`@_kY5pu77I6i`|>}6Sp zc@^MDH3Et3)XJqwbu|fqy8D1=YF&A>gEtb5)R~M@3A;re_8i;Gc|HeuocC~=j7Gko zd}R%$F0PeVpn7?6y1bG^)y+T@nF&gvVBTVe{IA?}`Qp+F=H8Ydj%5a2zT8X8xBJ^f zNSF(iOV!14buEc0DJt~l?P{YyTkklX2k>h9`_PfZdJapmxEOP30cPkS8BX}-=1i}QKb7c{&kOp)j_BLlAZTdI_Fq&R{ z(9(mYnKN@%-nS=_jRl;u@dSQJFlw0@yafqar4Ju;)FcC2ms7Me!6=p`BCqEZvN-n3 zh?pra2)u08%#YYE&KNr2KLuM9fxJC38q{gTeum}|DH$4KvxyA|>;D;;OS;4X+%05N zR(=B8Q;nHAf&j%BXK--g4OLP!a7;Jjr|}usxX=Z4>Lf^_0e%jfXUYnSmgUwhmJoTi zo+1hSUHmDmsnrjO*#5V^RRe0+5%U3hgjsPEM7;kC97Taq1Qx6=QP#j+Le$0{i};zx zna;$nClNSfk7F}L4|v5bHjY?VD&GNup4d^l$PpqA7G;gW1JPx`9+$GySo{jSK}6{d zhX3KQC{2hehO~|S9jlwqDcejZID+mpoi)~H&Yi&W4clkk*#u)opZso!VPea}fktWL J#KTt({uh4J>fZnW delta 4000 zcmbVPU2q&n5w=b^mSr6OAjz`gpY|D9cTRNd&i>w|9D8-QC#}4DM+;uoHvfGYAz;qV9#&@+3hAF%zv zJ={#sO!sv6bbsATKWhB*M~&Yrw}_-WR~_vp0#QH^GJ=>P>h~wKB|%I=b6gbHcZrmd zqzp;N;o@9%bY^O{Hd(De_3G^0d}juxXBNh5(_>JZhIqbY+pv)}l}g2-GO~c@pCnV# z;>qSj-m=ZCXBvT-gZPv6`c~I@K?G5kBw2!tnX`iKo*|flXYZWQv|SV7Vo~JBN2b9JF=YL^UJH8A+gz8oCjVqvS+SDF|H0hlD#_?F7G8sX}gXcCvakxpL*~ zo~`tc7vh>IK+&_Dz%2$AJ6nV_6#QNs^-vDZG|0L|%Ve7>_@*~tdi3zfxg}AAf?+v+ zfbJ0t=zVqk-Ps- zdU=1jZK5vY(-;^3)s6C&13Gi@xl`?Yr`*B!hQhnLhAYcm<+lEDi*I)E|Hr?4zTC!V zT+2{axsC1~ZRrhGL+hR<>=+7rhAifcExWm_1KFp^IL;KRRGuMbC--uc#E$*{>4`&WA0>2cy8}< zYj|!i7wd-0%#@1bw$$x!;@;en&?OB_&vQM{B{59fRG;DHFc*eE$GkbmQ#n;IPMZuQ z9HU@@Ch2tKwXZE{M1JDFs>@L5N%fims0yh|^-Dc|UM)N6jD*ylRtQP2d2f(X-~ru7J3RWvt* zSJX)ZRGmeHD!^LUsj>pD11fs010T`DO__ja7HuPIqOSr_2x30JRKf7x5S21IKirTN1z7MzB4l({7)+u}AC9+V zWC3yB0ST=tISk#|T{)0+5%7gso`8f752Z z2yrb5x`xFWA!)q3Z7I!Ii70Ji6;YGuW)ZV5WEC;sS;UEo2DX{U31&Nnm6;7X!C-v? z5rL&s=wK0_i-lB3VJ;Oh6l`P2MG=|=XG#|4^Adp#MOYSi@e6BkDin>5KwMahTIL2` zI@M?mV-4j=5HHQMuBB4FG_p9k0JC$o=>?dt&b?lp!gn@vP*px=Dof|Ohk_m}3B^LvkrQ?5jBMFXW zCzHu$`t89MI(uQ~O4Ec+8ZJ=ddS_D;NBqfc^vv}ZdU$#(ee?PNJ$t>G&;NCOncjPM zdlyD?1j8)b!$u7V27lJh7{#KAY7s3>|MKp>n4-}upTijXnBbe4t_=j^nvb#^j)=aD z7F9JIF+Mp>Gzg3y42tl4IwaE}r7HXo;t`h>vdFaI#tZbPpKssB-jt|1{j!vxe|>K` zrU*D~rQHv=(Ul+HdJ$7OaU5QL8J#>bR)z8ENClsMK8~J8G^}qi3WNMexrJW4aUn(s zpYFWb9}^Wmow^C_w$WqSc^4Bo(P!ENW?*Fv5QQY&b-Vi*K?ti0%g#(LPEF4P3T4T$ zeuaoP%(v2i+&tST>N=NOd4He*XSn+4{o$AvE}r^eAf`$5M;{!dKb+h9B3_Y1QK}e; zDvZpH)ux#VqM}BNjFRc0#U%Z~t>b&s5H}`kW7AXB>4gl&krZ0=#jW86jh?)1w;^W6 z0e|_Kxv7zb3?L;68ohCQpiva+=HJQT;ibE+bnK24(+Pd&&Jm_iiYwF%niAd3Jv+TP zb+J0fv|{NKx*Q3Wp1IRb|9$5~Oi}17cezPTp-FP++b?dVp6=U&w-2wpdiUb)hR^6H zzZ%(5Z#J>td6TLipL+Fh*hLwi!M4|N&Hf1m#8y8-VMRpg_1+XnY;DCq8kCi$m^MRhY zzq1Q#O3^5qo^K6fk(UrIF>rjG5$H3G9JU`w5QSd3-?k*OVr7@DT+oO8079f|mkRjV zz+k_}#m|jG!SH%5Rsb+Z+~OJ~fM@mg1rd#%0E69#L`XkVGO$b_EU%-kgz3qwa!Q3B z(;EUw!RoWVFbEPBFjj0N6>J0`KZ|A{h1N#YNst5`HE&%a*g>tS&H9z3GJ{~^ zug&o?EEZmX4q%raMJP=F&kFhoGqyU1*(!lEgK4Tl32_G-$AZDCkq(2_01)=EWV_|H zbxg;rwb${ZQG>i|TW-tjnkCnw7Q{WAeNN-?b>EWsRi;LJy zayb?jT}(7yA~&cmN?4CJTO*=s>&_g)FJt@^T=VuI>zTgu;6zMR>B9%z4P@o-55B(t EKSWB>pF diff --git a/library/tedit/TEDIT-PAGE b/library/tedit/TEDIT-PAGE index 557b9cbe..3ed7ebe6 100644 --- a/library/tedit/TEDIT-PAGE +++ b/library/tedit/TEDIT-PAGE @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Jan-2026 12:00:08" {WMEDLEY}tedit>TEDIT-PAGE.;241 130528 +(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}TEDIT>TEDIT-PAGE.;243 130855 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE) + :CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT) + (VARS TEDIT-PAGECOMS) - :PREVIOUS-DATE "15-Jan-2026 10:48:30" {WMEDLEY}tedit>TEDIT-PAGE.;240) + :PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}TEDIT>TEDIT-PAGE.;241) (PRETTYCOMPRINT TEDIT-PAGECOMS) @@ -51,6 +52,7 @@ (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1] (FNS TEDIT.TO.IMAGEFILE) + [P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE] (COMS (* ;; "Perform page layout, based on a regular expression of typed regions.") @@ -313,7 +315,8 @@ (TEDIT.SINGLE.PAGEFORMAT [LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS - PAGEPROPS PAPERSIZE) (* ; "Edited 11-May-2025 14:59 by rmk") + PAGEPROPS PAPERSIZE) (* ; "Edited 27-Jan-2026 10:30 by rmk") + (* ; "Edited 11-May-2025 14:59 by rmk") (* ; "Edited 10-Jan-2025 11:41 by rmk") (* ; "Edited 24-Dec-2024 21:20 by rmk") (* ; "Edited 15-Aug-2024 23:01 by rmk") @@ -356,7 +359,8 @@ (AND INTERCOL (SETQ INTERCOL (HCSCALE SCALEFACTOR INTERCOL))) (SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT) LEFT)) - (CL:WHEN (EQ PAGE#S? 'Yes) + (CL:WHEN (MEMB (L-CASE PAGE#S? T) + '(T Yes)) (* ;; "This asserts that the page number's region is 4 inches wide. Why? What if the pretext/posttext is longer?") @@ -730,6 +734,8 @@ (RETURN (CLOSEF IMAGESTREAM))))]) ) +(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE)) + (* ;; "Perform page layout, based on a regular expression of typed regions.") @@ -2056,18 +2062,18 @@ (RETURN (DREMOVE NIL $$VAL]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 . -14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811) - (TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT -35085 . 37823)) (38112 44592 (TEDIT.TO.IMAGEFILE 38122 . 44590)) (44679 97931 (\TEDIT.FORMATBOX 44689 - . 58113) (\TEDIT.FORMATHEADING 58115 . 62761) (\TEDIT.FORMATPAGE 62763 . 71952) (\TEDIT.FORMATTEXTBOX - 71954 . 88467) (\TEDIT.FORMATFOLIO 88469 . 93786) (\TEDIT.FORMAT.FOUNDBOX? 93788 . 95827) ( -\TEDIT.SKIP.SPECIALCOND 95829 . 97929)) (98011 103066 (\TEDIT.HARDCOPY.PAGEHEADINGS 98021 . 103064)) ( -103175 111226 (\TEDIT.HARDCOPY-COLUMN-END 103185 . 111224)) (111271 116212 (SCALEPAGEUNITS 111281 . -112422) (SCALEPAGEXUNITS 112424 . 113194) (SCALEPAGEYUNITS 113196 . 113967) (\TEDIT.PAPERHEIGHT 113969 - . 114904) (\TEDIT.PAPERWIDTH 114906 . 116210)) (116628 120196 (ROMANNUMERALS 116638 . 120194)) ( -120235 127501 (TEDIT.PAGENO.CREATE 120245 . 120621) (\TEDIT.PAGENO.OBJINIT 120623 . 121906) ( -\TEDIT.PAGENO.BUTTONEVENTINFN 121908 . 122974) (\TEDIT.PAGENO.IMAGEBOXFN 122976 . 125126) ( -\TEDIT.PAGENO.DISPLAYFN 125128 . 126778) (\TEDIT.PAGENO.GETFN 126780 . 127172) (\TEDIT.PAGENO.PUTFN -127174 . 127499)) (127566 130505 (\TEDIT.FORMAT.FOOTNOTE 127576 . 130503))))) + (FILEMAP (NIL (12248 15860 (\TEDIT.PARSE.PAGEFRAMES 12258 . 14037) (\TEDIT.PUT.PAGEFRAMES 14039 . +14863) (\TEDIT.UNPARSE.PAGEFRAMES 14865 . 15858)) (15923 38091 (TEDIT.SINGLE.PAGEFORMAT 15933 . 27077) + (TEDIT.COMPOUND.PAGEFORMAT 27079 . 28058) (TEDIT.PAGEFORMAT 28060 . 35349) (TEDIT.GET.PAGEFORMAT +35351 . 38089)) (38378 44858 (TEDIT.TO.IMAGEFILE 38388 . 44856)) (45006 98258 (\TEDIT.FORMATBOX 45016 + . 58440) (\TEDIT.FORMATHEADING 58442 . 63088) (\TEDIT.FORMATPAGE 63090 . 72279) (\TEDIT.FORMATTEXTBOX + 72281 . 88794) (\TEDIT.FORMATFOLIO 88796 . 94113) (\TEDIT.FORMAT.FOUNDBOX? 94115 . 96154) ( +\TEDIT.SKIP.SPECIALCOND 96156 . 98256)) (98338 103393 (\TEDIT.HARDCOPY.PAGEHEADINGS 98348 . 103391)) ( +103502 111553 (\TEDIT.HARDCOPY-COLUMN-END 103512 . 111551)) (111598 116539 (SCALEPAGEUNITS 111608 . +112749) (SCALEPAGEXUNITS 112751 . 113521) (SCALEPAGEYUNITS 113523 . 114294) (\TEDIT.PAPERHEIGHT 114296 + . 115231) (\TEDIT.PAPERWIDTH 115233 . 116537)) (116955 120523 (ROMANNUMERALS 116965 . 120521)) ( +120562 127828 (TEDIT.PAGENO.CREATE 120572 . 120948) (\TEDIT.PAGENO.OBJINIT 120950 . 122233) ( +\TEDIT.PAGENO.BUTTONEVENTINFN 122235 . 123301) (\TEDIT.PAGENO.IMAGEBOXFN 123303 . 125453) ( +\TEDIT.PAGENO.DISPLAYFN 125455 . 127105) (\TEDIT.PAGENO.GETFN 127107 . 127499) (\TEDIT.PAGENO.PUTFN +127501 . 127826)) (127893 130832 (\TEDIT.FORMAT.FOOTNOTE 127903 . 130830))))) STOP diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM index 79d8c691c3b11a18cd55db2a42541cfec55902fc..e0e57bf5fa6495153edfbc7d46b41777216facf7 100644 GIT binary patch delta 968 zcmb7CO;6NN6t#nfqzDd5z!(-c70ooJL*MK4y|x%*ZC{54Rtx*z}E=>FZE_^MJAHCv3@&@>Fs88j#Rwnb=ZQOEn}AUoLl;8?f%H+mAQbch+`Z94Y=wHYSlBaNO!s0A!ZB3@Jp z8H5PRAv@z`RfE*A16G>e%|ky+!6e3@wsKsx2?6smC_Y@;sv)(Qsm}^}k<}Fe7q9Cx zBSbTxkwJIkncRO{U&v=;XoxQJ>^#VteusNky3pjmcZnq_H!+3AVjl4~*{I%Z@AH)* TS(f`hHx7nx{oh=%yY=G_l9Ktj delta 801 zcmZvZ-)a*<7{%R)76P#;RIpI-V<}?5jWe@mZg$hnZku2bB8?K1T+|kn zB7Fc+QszMvawYf@-iiu>H{wlw1819*rnGx?=HolRb7tq`PvzHlWxTzNskYu9X#^1q zFmVua5IcIYrtJ-OhI^HSdw!y|+&V8mBnB=)UOi{P4#JM9AAMOpOro;il#4Y#;4mD4 zT1$ff=C{k`vI;wWNxlRlqp@1b-^=XPn7c9=&S%Zasc^8}6)@I`LXaicm4Sl`5jLN`El;hV$ch#QCKB_v1vff@5E9Oda95CJdPtdM5c8nF=Qq; z0o&H0U3CMVy+bz*{iF@H$-k|l>9#o7R6jj~ZHeQhn+0Gd zo%)!GrZ$Fbs6~Mv`C%;rhKM}HO*c6?O7`aB?Fy53Y`Ad{MH_9P5?keABD;7%EfY3V zHxoz}jNRFej;Bzd#K>}VuxtrAv4O?r2$rQo?AIF!ScVM&uSua3=nh_qzl)tedit>TEDIT-SCREEN.;915 186658 +(FILECREATED " 5-Feb-2026 00:39:54" {WMEDLEY}TEDIT>TEDIT-SCREEN.;916 186880 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-SCREENCOMS) + :CHANGES-TO (FNS \TEDIT.FORMATLINE) - :PREVIOUS-DATE " 7-Dec-2025 16:28:01" {WMEDLEY}tedit>TEDIT-SCREEN.;914) + :PREVIOUS-DATE "31-Dec-2025 23:10:18" {WMEDLEY}TEDIT>TEDIT-SCREEN.;915) (PRETTYCOMPRINT TEDIT-SCREENCOMS) @@ -654,6 +654,7 @@ (\TEDIT.FORMATLINE [LAMBDA (TSTREAM CH#1 LINE REGION IMAGESTREAM FORMATTINGSTATE) + (* ; "Edited 5-Feb-2026 00:38 by rmk") (* ; "Edited 21-Nov-2025 16:36 by rmk") (* ; "Edited 7-Aug-2025 12:49 by rmk") (* ; "Edited 27-Apr-2025 11:24 by rmk") @@ -706,8 +707,10 @@ (CL:UNLESS LINE (SETQ LINE (create LINEDESCRIPTOR))) (CL:UNLESS IMAGESTREAM - (SETQ IMAGESTREAM (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM) - 'DSP))) + (SETQ IMAGESTREAM (CL:IF (\TEDIT.PRIMARYPANE TSTREAM) + (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM) + 'DSP) + (DSPCREATE)))) (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM)) (OFFSET 0) (TRUEASCENT -1) @@ -2863,21 +2866,21 @@ (\TEDIT.LINE.TALLP LINE PHEIGHT))))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119502 ( -\TEDIT.FORMATLINE 35880 . 70986) (\TEDIT.FORMATLINE.SETUP.PARA 70988 . 76182) ( -\TEDIT.FORMATLINE.HORIZONTAL 76184 . 81001) (\TEDIT.FORMATLINE.VERTICAL 81003 . 83454) ( -\TEDIT.FORMATLINE.JUSTIFY 83456 . 89477) (\TEDIT.FORMATLINE.TABS 89479 . 97507) (\TEDIT.SCALE.TABS -97509 . 98300) (\TEDIT.FORMATLINE.PURGE.SPACES 98302 . 99729) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN -99731 . 100808) (\TEDIT.FORMATLINE.EMPTY 100810 . 105630) (\TEDIT.FORMATLINE.UPDATELOOKS 105632 . -111813) (\TEDIT.FORMATLINE.LASTLEGAL 111815 . 115265) (\TEDIT.LINES.ABOVE 115267 . 118878) ( -\TEDIT.CHNO.TO.YTOP 118880 . 119500)) (119779 140359 (\TEDIT.DISPLAYLINE 119789 . 132299) ( -\TEDIT.DISPLAYLINE.TABS 132301 . 135105) (\TEDIT.LINECACHE 135107 . 135835) (\TEDIT.CREATE.LINECACHE -135837 . 136673) (\TEDIT.BLTCHAR 136675 . 139302) (\TEDIT.DIACRITIC.SHIFT 139304 . 140357)) (140974 -186635 (\TEDIT.BACKFORMAT 140984 . 143538) (\TEDIT.PREVIOUS.LINEBREAK 143540 . 146343) ( -\TEDIT.UPDATE.LINES 146345 . 152651) (\TEDIT.PANE.CREATELINES 152653 . 154943) ( -\TEDIT.SUFFIXLINE.CREATE 154945 . 156560) (\TEDIT.LINES.BELOW 156562 . 161172) (\TEDIT.MEASURED.LINES -161174 . 163183) (\TEDIT.VALID.LASTCHNOS 163185 . 166961) (\TEDIT.VALID.NEXTCHNOS 166963 . 170437) ( -\TEDIT.LASTVALIDLINE 170439 . 175110) (\TEDIT.NEXTVALIDLINE 175112 . 178082) ( -\TEDIT.CLEARPANE.BELOW.LINE 178084 . 180190) (\TEDIT.INSERTLINE 180192 . 181578) (\TEDIT.LINE.BOTTOM -181580 . 184810) (\TEDIT.SHOW.AT.BOTTOMP 184812 . 185922) (\TEDIT.SHOW.AT.TOPP 185924 . 186633))))) + (FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119724 ( +\TEDIT.FORMATLINE 35880 . 71208) (\TEDIT.FORMATLINE.SETUP.PARA 71210 . 76404) ( +\TEDIT.FORMATLINE.HORIZONTAL 76406 . 81223) (\TEDIT.FORMATLINE.VERTICAL 81225 . 83676) ( +\TEDIT.FORMATLINE.JUSTIFY 83678 . 89699) (\TEDIT.FORMATLINE.TABS 89701 . 97729) (\TEDIT.SCALE.TABS +97731 . 98522) (\TEDIT.FORMATLINE.PURGE.SPACES 98524 . 99951) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN +99953 . 101030) (\TEDIT.FORMATLINE.EMPTY 101032 . 105852) (\TEDIT.FORMATLINE.UPDATELOOKS 105854 . +112035) (\TEDIT.FORMATLINE.LASTLEGAL 112037 . 115487) (\TEDIT.LINES.ABOVE 115489 . 119100) ( +\TEDIT.CHNO.TO.YTOP 119102 . 119722)) (120001 140581 (\TEDIT.DISPLAYLINE 120011 . 132521) ( +\TEDIT.DISPLAYLINE.TABS 132523 . 135327) (\TEDIT.LINECACHE 135329 . 136057) (\TEDIT.CREATE.LINECACHE +136059 . 136895) (\TEDIT.BLTCHAR 136897 . 139524) (\TEDIT.DIACRITIC.SHIFT 139526 . 140579)) (141196 +186857 (\TEDIT.BACKFORMAT 141206 . 143760) (\TEDIT.PREVIOUS.LINEBREAK 143762 . 146565) ( +\TEDIT.UPDATE.LINES 146567 . 152873) (\TEDIT.PANE.CREATELINES 152875 . 155165) ( +\TEDIT.SUFFIXLINE.CREATE 155167 . 156782) (\TEDIT.LINES.BELOW 156784 . 161394) (\TEDIT.MEASURED.LINES +161396 . 163405) (\TEDIT.VALID.LASTCHNOS 163407 . 167183) (\TEDIT.VALID.NEXTCHNOS 167185 . 170659) ( +\TEDIT.LASTVALIDLINE 170661 . 175332) (\TEDIT.NEXTVALIDLINE 175334 . 178304) ( +\TEDIT.CLEARPANE.BELOW.LINE 178306 . 180412) (\TEDIT.INSERTLINE 180414 . 181800) (\TEDIT.LINE.BOTTOM +181802 . 185032) (\TEDIT.SHOW.AT.BOTTOMP 185034 . 186144) (\TEDIT.SHOW.AT.TOPP 186146 . 186855))))) STOP diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM index 5181485e0f04e6c19aed9a1889d677d48154872c..93232968f7c007b0b40f655fea9db0cd075a7e54 100644 GIT binary patch delta 1388 zcmZuxOOMl56egKWr_3OsDp3gZ!6AaeEXH#mzV^MLDtPSc#NgPL?Q|v;i$Y;B0jvGzheee%VF-8+wNKY|}BxJN+)m6nvG*lm1r$&WHP0(2b)NvgjJ;z_pQVb9`1 zqgVXdXrDQL3*z9v#<$Cje~M&f^W%f_*H50n-%r(}wEsHs-vc)s#tt;u-tS-W>y zm~hMgTBmUW3>R5Aopy1}SZgt6OOnRpBu~;H%7Jl(`PG8mk&|W`eM}+5MIWCb{k$pg z(S;VH%&wcPG;LX$zjfA{xZFS5o#IvJbknT7`<)M#EK+7IQ6Y=#ol7lh^4X{t_b4|h z_`yyJloMWCjMxy2ouQ7mZXnhKD3zpsM@@5X5w;LTW}AH{63jhs>hN&I~aRi(Q zs7xeWR$KekICa_N;00L{I@2sifsgSm!)`T4ZXUZM)T=Dsbk7ZOOZAJIWSf+o%8LOO zjub@MB-PtNc4nv5l6@ei>awr9qWLngO8f|-y68bO=Zp~b{Px#cNv#)>z_ z*^t?+ggfuUENdYchcwmuBT>8@RTqV8(>pn;6l_)e(!0DQh+X{K`*c-uxIzhPdcF9l Q)h_nGKXq{a?BBcp19?kd0{{R3 delta 1455 zcmZ`(&2QX96lX(GlvDwsEGu#Vy;zl+t=P@X_+!SVityUwT^Fy%vb{~V$|a-$R!y@g z+6zJ`;sEDXK5{}rTzkkJ(L)dY3pjHHapi`@TYK}h2|ifw&AgA_d++z=mme1X`hMZr zc3r0}|6sqx2s44{4kZp1&!61coE$tJO}29Bhj}aWQYqv1$2K*au&n9i!i5OOG#uT2 z{%d3ZXgv9Hbo2#`jz9|rQ3RI_+wHankM}U_jS&p4HJ3MnFp`+d#k8Q^gsgCD^^^aB z22@y^q<=PTeVlkqs7gY7oRM>fnWK1efsm_ zv)fH#!)}S99mZMiMo~Knr6+;e27%q+kxW&B3Sq@}_0{65)s+Qdmg0}?r7b3O9Rd~S zo=S$mxWzAAxPD2ojPo>JFIR~N%oN2R^?LF5>SE1AY29OnZC4FxC#mWud6I^4jzr+- zTTKG{mu3>rm_TszXRN~b@4a_#F=|W|ZGq}juuHky$$;9HQM{~wSmVXZ#(TwKW91gL zbmNkNX-~c2O=?;NU9T6@P#CEy7?l&MGY&zxlLBSJo=Mc!A?&+dsX7l3c>jC9uXHO(fa)|9hHdOaB0+4VP>F1mpX-I8){d#!wF2L6isTWJ)2U_do=!yZ(dJr&TT`MvgThR9&6err)ru%COO=FU+vHA;JO#@v{(S%L vJp;L`MWdqwn2g78IL0S)GKSB`$4~br_(%%Nh7H6>^=9$g2lZ36_WS5R(K~xT diff --git a/library/tedit/TEDIT-SELECTION b/library/tedit/TEDIT-SELECTION index c6a90222..39b781d0 100644 --- a/library/tedit/TEDIT-SELECTION +++ b/library/tedit/TEDIT-SELECTION @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Jul-2025 11:22:10" {WMEDLEY}tedit>TEDIT-SELECTION.;731 161124 +(FILECREATED "14-Jan-2026 14:32:01" {WMEDLEY}tedit>TEDIT-SELECTION.;736 162073 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.FIND.PROTECTED.START \TEDIT.FIND.PROTECTED.END) + :CHANGES-TO (FNS \TEDIT.COPYSEL TEDIT.SELPROP) - :PREVIOUS-DATE "28-Jul-2025 23:50:43" {WMEDLEY}tedit>TEDIT-SELECTION.;730) + :PREVIOUS-DATE "10-Jan-2026 12:33:26" {WMEDLEY}tedit>TEDIT-SELECTION.;735) (PRETTYCOMPRINT TEDIT-SELECTIONCOMS) @@ -73,8 +73,7 @@ (* ;; "If DCH=0, this is a caret-only selection, with no highlighting. In that case CHLIM=(ADD1 CH#) and POINT essentially indicates whether the caret blinks before or after CH#.") - NIL (* ; - "Was Y0: Y value of topmost line of selection") + SELOPERATION (* ; "NORMAL, MOVE, COPY... HOW and HOWHEIGHT are derived from the operation. Was Y0: Y value of topmost line of selection") X0 (* ;  "X value of left edge of selection on the first line") SELLINES (* ; "A list of (L1 L2) pairs one for each pane, to replace the separate L1 L2 lists. Was DX: Width of the selection, if it's on one line.") @@ -1214,7 +1213,8 @@ (SETTOBJ TEXTOBJ BLUEPENDINGDELETE NIL]) (\TEDIT.SET.SEL.LOOKS - [LAMBDA (SEL OPERATION) (* ; "Edited 6-May-2025 11:32 by rmk") + [LAMBDA (SEL OPERATION) (* ; "Edited 10-Jan-2026 12:30 by rmk") + (* ; "Edited 6-May-2025 11:32 by rmk") (* ; "Edited 28-Feb-2025 17:45 by rmk") (* ; "Edited 7-Nov-2024 21:50 by rmk") (* ; "Edited 4-Oct-2024 08:40 by rmk") @@ -1260,6 +1260,7 @@ (FSETSEL SEL HASCARET T)) (NIL) (\TEDIT.THELP "UNKNOWN SELECTION OPERATION" OPERATION)) + (FSETSEL SEL SELOPERATION OPERATION) SEL]) ) (DECLARE%: EVAL@COMPILE DONTCOPY @@ -1421,7 +1422,8 @@ 'INVERT) repeatuntil (EQ L LN]) (\TEDIT.UPDATE.SEL - [LAMBDA (TSTREAM/SEL CH# DCH POINT LOOKS CHLIM) (* ; "Edited 6-May-2025 11:36 by rmk") + [LAMBDA (TSTREAM/SEL CH# DCH POINT LOOKS CHLIM) (* ; "Edited 6-Jan-2026 20:18 by rmk") + (* ; "Edited 6-May-2025 11:36 by rmk") (* ; "Edited 21-Apr-2025 22:50 by rmk") (* ; "Edited 6-Apr-2025 11:47 by rmk") (* ; "Edited 10-Jul-2024 17:25 by rmk") @@ -1458,6 +1460,13 @@ (CL:UNLESS POINT (SETQ POINT (GETTH CH# THPOINT CH#))) (SETQ CH# (GETTH CH# THCH#)) + elseif (LISTP CH#) + then (CL:UNLESS DCH + (SETQ DCH (CADR CH#))) + (CL:UNLESS POINT + (SETQ POINT (CADDR CH#))) + (CL:UNLESS CH# + (SETQ POINT (CAR CH#))) else (* ;;  "Get defaults from SEL (either a selection or a textobj whose SEL is indicated)") @@ -1611,7 +1620,8 @@ (DEFINEQ (\TEDIT.COPYSEL - [LAMBDA (FROM TO) (* ; "Edited 3-Sep-2024 22:44 by rmk") + [LAMBDA (FROM TO) (* ; "Edited 11-Jan-2026 00:17 by rmk") + (* ; "Edited 3-Sep-2024 22:44 by rmk") (* ; "Edited 7-Jul-2024 11:21 by rmk") (* ; "Edited 30-Jun-2024 23:21 by rmk") (* ; "Edited 29-Apr-2024 12:35 by rmk") @@ -1644,6 +1654,7 @@ (FSETSEL TO HASCARET (FGETSEL FROM HASCARET)) (FSETSEL TO SELOBJ (FGETSEL FROM SELOBJ)) (FSETSEL TO ONFLG (FGETSEL FROM ONFLG)) + (FSETSEL TO SELOPERATION (FGETSEL FROM SELOPERATION)) else (SETQ TO (create SELECTION using FROM SELTEXTSTREAM _ NIL L1 _ (COPY (FGETSEL FROM L1)) LN _ (COPY (FGETSEL FROM LN)) SELLINES _ (COPY (FGETSEL FROM SELLINES] @@ -2237,7 +2248,8 @@ (FGETSEL SCRSEL CH#]) (TEDIT.SELPROP - [LAMBDA X (* ; "Edited 28-Feb-2025 17:14 by rmk") + [LAMBDA X (* ; "Edited 11-Jan-2026 00:18 by rmk") + (* ; "Edited 28-Feb-2025 17:14 by rmk") (* ; "Edited 6-Feb-2025 16:48 by rmk") (* ; "Edited 31-Oct-2024 18:00 by rmk") (* ; "Edited 23-Sep-2024 23:11 by rmk") @@ -2277,6 +2289,7 @@ (TEXTSTREAM (FGETSEL SEL SELTEXTSTREAM)) (SHADE (FGETSEL SEL HOW)) (SHADEHEIGHT (FGETSEL SEL HOWHEIGHT)) + (SELOPERATION (FGETSEL SEL SELOPERATION)) (SET (FGETSEL SEL SET)) (\ILLEGAL.ARG PROP)) (CL:WHEN (IGREATERP X 2) @@ -2296,6 +2309,7 @@ (CHLIM (\TEDIT.UPDATE.SEL SEL NIL (IDIFFERENCE NEWVALUE (FGETSEL SEL CH#)))) (SHADE (FSETSEL SEL HOW NEWVALUE)) (SHADEHEIGHT (FSETSEL SEL HOWHEIGHT NEWVALUE)) + (SELOPERATION (\TEDIT.SET.SEL.LOOKS SEL NEWVALUE)) (SET (FSETSEL SEL SET NEWVALUE)) (\ILLEGAL.ARG PROP)) (CL:WHEN (FGETSEL SEL SELTEXTSTREAM) @@ -2556,26 +2570,26 @@ (ADDTOVAR LAMA TEDIT.SELPROP) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (15897 17718 (\TEDIT.SELECTION.DEFPRINT 15907 . 17716)) (17755 19260 ( -\TEDIT.SET.GLOBAL.SELECTIONS 17765 . 19258)) (19261 25482 (\TEDIT.SELECTED.PIECES 19271 . 20910) ( -\TEDIT.FIND.PROTECTED.END 20912 . 22706) (\TEDIT.FIND.PROTECTED.START 22708 . 24691) ( -\TEDIT.WORD.BOUND 24693 . 25480)) (25616 59723 (\TEDIT.EXTEND.SEL 25626 . 32866) (\TEDIT.SCAN.LINE -32868 . 44541) (\TEDIT.SCAN.LINE.WORD 44543 . 49536) (\TEDIT.XYTOSEL 49538 . 56876) (\TEDIT.REGIONTYPE - 56878 . 57897) (\TEDIT.XYTOSEL.INLINEP 57899 . 58354) (\TEDIT.XYTOSEL.LINE 58356 . 59721)) (59724 -73269 (\TEDIT.FIXSEL 59734 . 69111) (\TEDIT.CHTOLINEX 69113 . 73267)) (73270 77324 ( -\TEDIT.RESET.EXTEND.PENDING.DELETE 73280 . 74558) (\TEDIT.SET.SEL.LOOKS 74560 . 77322)) (78261 99027 ( -\TEDIT.SHOWSEL 78271 . 83247) (\TEDIT.NOSEL 83249 . 83550) (\TEDIT.SEL.OFF 83552 . 83963) ( -\TEDIT.SEL.ON 83965 . 84381) (\TEDIT.SHOWSEL.HILIGHT 84383 . 89004) (\TEDIT.UPDATE.SEL 89006 . 93221) -(\TEDIT.CARETLINE 93223 . 93937) (\TEDIT.SEL.L1 93939 . 94622) (\TEDIT.SEL.LN 94624 . 95307) ( -\TEDIT.SEL.DELETEDCHARS 95309 . 99025)) (99028 103734 (\TEDIT.COPYSEL 99038 . 101504) ( -\TEDIT.SEL.CHANGED? 101506 . 103732)) (103765 117424 (\TEDIT.SELECT.OBJECT 103775 . 108728) ( -\TEDIT.SHOWSEL.OBJECT 108730 . 110961) (\TEDIT.CLIP.OBJECT 110963 . 112967) (\TEDIT.OPERATE.OBJECT -112969 . 117422)) (117452 137201 (\TEDIT.SELPIECES 117462 . 121743) (\TEDIT.SELPIECES.COPY 121745 . -124234) (\TEDIT.SELPIECES.CONCAT 124236 . 126115) (\TEDIT.SELPIECES.CHARTRANSFORM 126117 . 129576) ( -\TEDIT.SELPIECES.FROM.STRING 129578 . 134836) (\TEDIT.SELPIECES.TO.STRING 134838 . 137199)) (137254 -160955 (TEDIT.XYTOCH 137264 . 139840) (TEDIT.SELPROP 139842 . 143872) (TEDIT.GETPOINT 143874 . 145794) - (TEDIT.GETSEL 145796 . 146672) (TEDIT.GETSEL.PARA 146674 . 147623) (TEDIT.SCANSEL 147625 . 148573) ( -TEDIT.SET.SEL.LOOKS 148575 . 150060) (TEDIT.SETSEL 150062 . 154980) (TEDIT.SHOWSEL 154982 . 156846) ( -TEDIT.SEL.AS.STRING 156848 . 159333) (TEDIT.SEL.AS.SEXPR 159335 . 160621) (TEDIT.SELECTALL 160623 . -160953))))) + (FILEMAP (NIL (15886 17707 (\TEDIT.SELECTION.DEFPRINT 15896 . 17705)) (17744 19249 ( +\TEDIT.SET.GLOBAL.SELECTIONS 17754 . 19247)) (19250 25471 (\TEDIT.SELECTED.PIECES 19260 . 20899) ( +\TEDIT.FIND.PROTECTED.END 20901 . 22695) (\TEDIT.FIND.PROTECTED.START 22697 . 24680) ( +\TEDIT.WORD.BOUND 24682 . 25469)) (25605 59712 (\TEDIT.EXTEND.SEL 25615 . 32855) (\TEDIT.SCAN.LINE +32857 . 44530) (\TEDIT.SCAN.LINE.WORD 44532 . 49525) (\TEDIT.XYTOSEL 49527 . 56865) (\TEDIT.REGIONTYPE + 56867 . 57886) (\TEDIT.XYTOSEL.INLINEP 57888 . 58343) (\TEDIT.XYTOSEL.LINE 58345 . 59710)) (59713 +73258 (\TEDIT.FIXSEL 59723 . 69100) (\TEDIT.CHTOLINEX 69102 . 73256)) (73259 77463 ( +\TEDIT.RESET.EXTEND.PENDING.DELETE 73269 . 74547) (\TEDIT.SET.SEL.LOOKS 74549 . 77461)) (78400 99553 ( +\TEDIT.SHOWSEL 78410 . 83386) (\TEDIT.NOSEL 83388 . 83689) (\TEDIT.SEL.OFF 83691 . 84102) ( +\TEDIT.SEL.ON 84104 . 84520) (\TEDIT.SHOWSEL.HILIGHT 84522 . 89143) (\TEDIT.UPDATE.SEL 89145 . 93747) +(\TEDIT.CARETLINE 93749 . 94463) (\TEDIT.SEL.L1 94465 . 95148) (\TEDIT.SEL.LN 95150 . 95833) ( +\TEDIT.SEL.DELETEDCHARS 95835 . 99551)) (99554 104436 (\TEDIT.COPYSEL 99564 . 102206) ( +\TEDIT.SEL.CHANGED? 102208 . 104434)) (104467 118126 (\TEDIT.SELECT.OBJECT 104477 . 109430) ( +\TEDIT.SHOWSEL.OBJECT 109432 . 111663) (\TEDIT.CLIP.OBJECT 111665 . 113669) (\TEDIT.OPERATE.OBJECT +113671 . 118124)) (118154 137903 (\TEDIT.SELPIECES 118164 . 122445) (\TEDIT.SELPIECES.COPY 122447 . +124936) (\TEDIT.SELPIECES.CONCAT 124938 . 126817) (\TEDIT.SELPIECES.CHARTRANSFORM 126819 . 130278) ( +\TEDIT.SELPIECES.FROM.STRING 130280 . 135538) (\TEDIT.SELPIECES.TO.STRING 135540 . 137901)) (137956 +161904 (TEDIT.XYTOCH 137966 . 140542) (TEDIT.SELPROP 140544 . 144821) (TEDIT.GETPOINT 144823 . 146743) + (TEDIT.GETSEL 146745 . 147621) (TEDIT.GETSEL.PARA 147623 . 148572) (TEDIT.SCANSEL 148574 . 149522) ( +TEDIT.SET.SEL.LOOKS 149524 . 151009) (TEDIT.SETSEL 151011 . 155929) (TEDIT.SHOWSEL 155931 . 157795) ( +TEDIT.SEL.AS.STRING 157797 . 160282) (TEDIT.SEL.AS.SEXPR 160284 . 161570) (TEDIT.SELECTALL 161572 . +161902))))) STOP diff --git a/library/tedit/TEDIT-SELECTION.LCOM b/library/tedit/TEDIT-SELECTION.LCOM index 466a0b7f935c7258bd0f1d8eb6b0ff55fec2280a..9ee82cd8e61c69adb0d03aa3f44d2120bd9c4cb9 100644 GIT binary patch delta 1615 zcmZ`(OKcle6rFLv6sLaH3SWvOS8VW5HA0a?wH;x6HB3Y;i$t>uWiXD4USXHdT9goL#q~OK#eLDBt@0qv% znEm%L`{6t%$m7$iTjL@xsvyWoNlfxWb>p=`H432!XkDO|cUTEEbDEXl?ba*ViD@4Tw^bmy?PdiH6QiQIn)gM8|mO zbWBAN*qNUp8IxSveRcDC_14)FSgk7ZamoISeQDy@dZLglmdG3}%$CP982V^>K}h4&N5)Iim-X5%94%|O65(VZ>mSK8y3HCQ9@wl1_GWcs|zJF%LHSCMM3kw=# ziDl?z160X3u@_B*w4s+QebOY5=)Ndw7b16GL=CX}Op8+lQMN~V!}Z>i4~8m#W43^o zU0=KE=04c(Z=|*k54mt7wZRSJ@o<=_F+aD#zSP$Cb_ZK;Vc&JA14#AY&4A1G@b~?| ze%!4Tpb>27^--O5&e&u8PM^dp z?Mh;0qcHDkUepBpNB;bvqyb(@+M&SJYE%sG+Bt49C+aCl4E*y|jSX)0tlsy1K55V#7pyUVdI9#P?a`&@*k5dIX@vdS zURW9%*!GYw=(XI&@7TkmUN@GrVt>BWUokxJHUS=^^6<5Y>3A1W}QWlwjvq9`wk(U~{V@ M0Y$CHS9iky0T{H&4*&oF delta 1446 zcmZuxO>Em_7`78pMmkCbSxHMl?~0~2pr-a`J5GZ@abh?A64y=>w*^|dm3E>eRfZ;D zhe>n@cH**P%HI$IP9Sk`8aM$89D{_$38{CucLJ&6R9?q%nxaLK{e5|!_j&&w<=-QA z|A@V{93`{Ug*UdR2}dO0`7|MEp4+WGJIco)GI0vz(wuz6m-9??8E5sysGQA5j>HO1D{|B<@+9gCel!vmk>c_KRRvXhwbA?L=` z2l4&zWE|3^vbIF6#mcmbB3_-TlO~9embkPicp@yRe4t*>Fgqs%_q9_BegR17 zW0?0)IH}N`=?R>4&=v4|c<<9IUWZD=duE22DY766u6$2 zKuI%IYUWkV0AAz(-x{u;=VX|-mNbwh$XTTq49hB301fch6odr1d4HS^urX(0=8MpT z;tX@wM~IvZa#eI|xq^BmNt`dar$%`W@T%o(YMDSd9t>^HMkk8RKe>(j*x{z09A?9f zW3BnJ{N@EV;vB5%L%;dc*rV-8gZbH+dFj!euX{g58_ey3fBUA;UF?S~+Kx4tcY-O> z_Sx#;2edulUZKAABDDi|BcR_#`UvgJ%I!`b$xpc1fUxHgT)~$^XzY?Z*^iC8F(3Pw z{u*Vfhg*j?3lDgs*SAA=ziKf5Y=_r>2m(H8(PDI<=dxbWSjARx(2Hs?-#NnCdG>v0 zaqVgLvh()Zh;9bqpL;ZH<)A}#lYZho)Esl;0SO0CjE=jbKKKbO?$&Np??joK1?TQs z>;j((_A^JH_tqnEBCJxw(DI6rP|A4_CC*tGdL$$gr!*9mMcmXWT$m*=ugzyckZ{-i zk%EYJ=^*&uf)ZgObIwl}pW6{rN!+~+B08<2E2^ezG_T`blKne+3LT~!bRI?V+`wv=Ko^SvF diff --git a/library/tedit/TEDIT-STREAM b/library/tedit/TEDIT-STREAM index de978046..a90a0fa7 100644 --- a/library/tedit/TEDIT-STREAM +++ b/library/tedit/TEDIT-STREAM @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 2-Dec-2025 17:50:45" {WMEDLEY}tedit>TEDIT-STREAM.;930 194007 +(FILECREATED "26-Jan-2026 23:58:48" {WMEDLEY}tedit>TEDIT-STREAM.;936 194450 :EDIT-BY rmk - :CHANGES-TO (FNS OPENTEXTSTREAM \TEDIT.OPENTEXTFILE) + :CHANGES-TO (VARS TEDIT-STREAMCOMS) + (FNS TEDIT.IMAGESTREAM.OPEN \TEDIT.STREAMINIT \TEDIT.TEXTINIT) - :PREVIOUS-DATE "19-Oct-2025 15:09:09" {WMEDLEY}TEDIT>TEDIT-STREAM.;927) + :PREVIOUS-DATE "14-Jan-2026 14:32:01" {WMEDLEY}tedit>TEDIT-STREAM.;933) (PRETTYCOMPRINT TEDIT-STREAMCOMS) @@ -43,7 +44,9 @@ (FNS \TEDIT.REOPENTEXTSTREAM \TEDIT.OPENTEXTSTREAM.PIECES \TEDIT.OPENTEXTSTREAM.PROPS \TEDIT.OPENTEXTSTREAM.SETUP.SEL \TEDIT.OPENTEXTSTREAM.WINDOW \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS \TEDIT.OPENTEXTFILE \TEDIT.CREATE.TEXTSTREAM - \TEDIT.REOPEN.STREAM \TEDIT.TEXTINIT) + \TEDIT.REOPEN.STREAM) + (FNS \TEDIT.STREAMINIT TEDIT.IMAGESTREAM.OPEN) + (ALISTS (IMAGESTREAMTYPES TEDIT)) (* ;; "Is this being used:") @@ -83,7 +86,7 @@ (ADDVARS (INSPECTMACROS (TEXTOBJ \TEDIT.TEXTOBJ.PROPNAMES \TEDIT.TEXTOBJ.PROPFETCHFN \TEDIT.TEXTOBJ.PROPSTOREFN] - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.TEXTINIT))) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.STREAMINIT))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TEXTPROP]) @@ -158,8 +161,7 @@  "The current selection within the text") LASTARROWX (* ;  "X for next arrow up or arrow down. Was: Scratch space for the selection code") - NIL (* ; - "Was MOVESEL: Source for the next MOVE of text") + SECONDARYSEL (* ; "Holds secondary selection and operation just before the mouse leaves a window. Was MOVESEL: Source for the next MOVE of text") NIL (* ;  "Was SHIFTEDSEL: Source for the next COPY") NIL (* ; @@ -1519,7 +1521,8 @@ (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS TEXTOBJ]) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL - [LAMBDA (TSTREAM) (* ; "Edited 21-Apr-2025 20:14 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 10-Jan-2026 23:53 by rmk") + (* ; "Edited 21-Apr-2025 20:14 by rmk") (* ; "Edited 6-Apr-2025 14:24 by rmk") (* ; "Edited 17-Feb-2025 08:56 by rmk") (* ; "Edited 25-Nov-2024 14:33 by rmk") @@ -1562,20 +1565,22 @@ (OR (CADR SELPROP) 0) (OR (CADDR SELPROP) - 'LEFT)) + 'LEFT) + 'NORMAL) elseif (FIXP SELPROP) - then (\TEDIT.UPDATE.SEL SEL SELPROP 0 'LEFT) + then (\TEDIT.UPDATE.SEL SEL SELPROP 0 'LEFT 'NORMAL) elseif (FGETTOBJ TEXTOBJ TXTAPPENDONLY) then (* ;; "Default to after the last character") (\TEDIT.UPDATE.SEL SEL (FGETTOBJ TEXTOBJ TEXTLEN) 0 - 'RIGHT) + 'RIGHT + 'NORMAL) else (* ;; "Default to before the first character. UPDATE.SEL screws up the CHLIM=CH#+DCH invariant when DCH=0, it adds 1, But UPDATE.SEL adds 1 when DCH=0. That's wrong for the initial caret, so brute-force fix it here. Maybe it's wrong in general?") - (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT) + (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT 'NORMAL) (FSETSEL SEL CHLIM 1)) [FSETTOBJ TEXTOBJ CARETLOOKS (if (FGETSEL SEL SET) then (* ; @@ -1751,9 +1756,12 @@ (* ;; "Return the new value for the stream:") NEWSTREAM]) +) +(DEFINEQ -(\TEDIT.TEXTINIT - [LAMBDA NIL (* ; "Edited 23-Sep-2025 21:03 by rmk") +(\TEDIT.STREAMINIT + [LAMBDA NIL (* ; "Edited 26-Jan-2026 16:06 by rmk") + (* ; "Edited 23-Sep-2025 21:03 by rmk") (* ; "Edited 20-Sep-2025 08:48 by rmk") (* ; "Edited 18-Sep-2025 14:52 by rmk") (* ; "Edited 10-Jul-2025 11:28 by rmk") @@ -1807,14 +1815,6 @@ IMSCALE _ [FUNCTION (LAMBDA NIL 1] IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR))) - (* ;; "Do we need TEXT here?") - - (FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY) - (ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT) - (CREATECHARSET \CREATECHARSET.DISPLAY))) - (ADDTOVAR IMAGESTREAMTYPES (TEDIT (FONTCREATE \CREATEDISPLAYFONT) - (CREATECHARSET \CREATECHARSET.DISPLAY))) - (* ;; "Maybe more functions later. The INCODE and BACK functions possibly need to count. If \TEXTBACKFILEPTR takes a count variable, the extra level wouldn't be needed. But INCCODE wants to go through the BIN opcode") (MAKE-EXTERNALFORMAT :TEXTSTREAM (FUNCTION \TEDIT.TEXTINCCODEFN) @@ -1881,8 +1881,15 @@ (* ;  "Some other kind of stream, so punt to the old handler (if there is one):") (APPLY* *TEDIT-OLD-STREAM-ERROR-HANDLER* CONDITION]) + +(TEDIT.IMAGESTREAM.OPEN + [LAMBDA (FILE OPTIONS) (* ; "Edited 26-Jan-2026 23:55 by rmk") + (OPENTEXTSTREAM FILE NIL OPTIONS]) ) +(ADDTOVAR IMAGESTREAMTYPES (TEDIT (OPENSTREAM TEDIT.IMAGESTREAM.OPEN) + (CREATECHARSET \CREATECHARSET.DISPLAY))) + (* ;; "Is this being used:") @@ -3140,7 +3147,7 @@ ) (DECLARE%: DONTEVAL@LOAD DOCOPY -(\TEDIT.TEXTINIT) +(\TEDIT.STREAMINIT) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -3151,34 +3158,34 @@ (ADDTOVAR LAMA TEXTPROP) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (36705 67564 (\TEDIT.TEXTBIN 36715 . 47508) (\TEDIT.TEXTPEEKBIN 47510 . 53060) ( -\TEDIT.TEXTBACKFILEPTR 53062 . 58735) (\TEDIT.TEXTBOUT 58737 . 63354) (\TEDIT.INSTALL.FILEBUFFER 63356 - . 67562)) (68462 72753 (\TEDIT.TEXTOUTCHARFN 68472 . 70028) (\TEDIT.TEXTINCCODEFN 70030 . 70769) ( -\TEDIT.TEXTBACKCCODEFN 70771 . 71363) (\TEDIT.TEXTFORMATBYTESTREAM 71365 . 72202) ( -\TEDIT.TEXTFORMATBYTESTRING 72204 . 72751)) (72800 84875 (OPENTEXTSTREAM 72810 . 79786) ( -COPYTEXTSTREAM 79788 . 84098) (TEDIT.STREAMCHANGEDP 84100 . 84402) (TXTFILE 84404 . 84873)) (84876 -116145 (\TEDIT.REOPENTEXTSTREAM 84886 . 86238) (\TEDIT.OPENTEXTSTREAM.PIECES 86240 . 91168) ( -\TEDIT.OPENTEXTSTREAM.PROPS 91170 . 92272) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92274 . 97515) ( -\TEDIT.OPENTEXTSTREAM.WINDOW 97517 . 100308) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100310 . 102249) ( -\TEDIT.OPENTEXTFILE 102251 . 104383) (\TEDIT.CREATE.TEXTSTREAM 104385 . 105532) (\TEDIT.REOPEN.STREAM -105534 . 107870) (\TEDIT.TEXTINIT 107872 . 116143)) (116183 117371 (\TEDIT.TTYBOUT 116193 . 117369)) ( -117489 139172 (\TEDIT.TEXTCLOSEF 117499 . 118823) (\TEDIT.TEXTDSPFONT 118825 . 120023) ( -\TEDIT.TEXTEOFP 120025 . 121780) (\TEDIT.TEXTGETEOFPTR 121782 . 122105) (\TEDIT.TEXTSETEOFPTR 122107 - . 123394) (\TEDIT.TEXTGETFILEPTR 123396 . 126231) (\TEDIT.TEXTSETFILEINFO 126233 . 126741) ( -\TEDIT.TEXTOPENF 126743 . 127674) (\TEDIT.TEXTSETEOF 127676 . 128292) (\TEDIT.TEXTSETFILEPTR 128294 . -130404) (\TEDIT.TEXTDSPXPOSITION 130406 . 133109) (\TEDIT.TEXTDSPYPOSITION 133111 . 133852) ( -\TEDIT.TEXTLEFTMARGIN 133854 . 134445) (\TEDIT.TEXTCOLOR 134447 . 135030) (\TEDIT.TEXTRIGHTMARGIN -135032 . 138321) (\TEDIT.TEXTDSPCHARWIDTH 138323 . 138627) (\TEDIT.TEXTDSPSTRINGWIDTH 138629 . 138935) - (\TEDIT.TEXTDSPLINEFEED 138937 . 139170)) (139210 151823 (\TEDIT.NTHCHARCODE 139220 . 140671) ( -\TEDIT.PIECE.NTHCHARCODE 140673 . 144583) (\TEDIT.RPLCHARCODE 144585 . 146043) ( -\TEDIT.PIECE.RPLCHARCODE 146045 . 151468) (\TEDIT.NTHCHARLOOKS 151470 . 151821)) (152870 173964 ( -\TEDIT.DELETE.SELPIECES 152880 . 156505) (\TEDIT.INSERTCH 156507 . 164546) (\TEDIT.INSERTCH.HISTORY -164548 . 168012) (\TEDIT.INSERTEOL 168014 . 169839) (\TEDIT.INSERTCH.INSERTION 169841 . 172678) ( -\TEDIT.INSERTCH.EXTEND 172680 . 173962)) (173965 175469 (\TEDIT.NEXTCHANGEABLE.CHNO 173975 . 174690) ( -\TEDIT.LASTCHANGEABLE.CHNO 174692 . 175467)) (175470 177174 (\SETUPGETCH 175480 . 177172)) (177232 -181690 (\TEDIT.INSTALL.PIECE 177242 . 181688)) (181728 191194 (TEXTPROP 181738 . 182085) (GETTEXTPROP -182087 . 182331) (PUTTEXTPROP 182333 . 182590) (GETTEXTPROPS 182592 . 183036) (PUTTEXTPROPS 183038 . -183942) (TEXTPROP.ADD 183944 . 184207) (\TEDIT.TEXTPROP 184209 . 191192)) (191195 193572 ( -\TEDIT.TEXTOBJ.PROPNAMES 191205 . 192464) (\TEDIT.TEXTOBJ.PROPFETCHFN 192466 . 192982) ( -\TEDIT.TEXTOBJ.PROPSTOREFN 192984 . 193570))))) + (FILEMAP (NIL (36872 67731 (\TEDIT.TEXTBIN 36882 . 47675) (\TEDIT.TEXTPEEKBIN 47677 . 53227) ( +\TEDIT.TEXTBACKFILEPTR 53229 . 58902) (\TEDIT.TEXTBOUT 58904 . 63521) (\TEDIT.INSTALL.FILEBUFFER 63523 + . 67729)) (68629 72920 (\TEDIT.TEXTOUTCHARFN 68639 . 70195) (\TEDIT.TEXTINCCODEFN 70197 . 70936) ( +\TEDIT.TEXTBACKCCODEFN 70938 . 71530) (\TEDIT.TEXTFORMATBYTESTREAM 71532 . 72369) ( +\TEDIT.TEXTFORMATBYTESTRING 72371 . 72918)) (72967 85042 (OPENTEXTSTREAM 72977 . 79953) ( +COPYTEXTSTREAM 79955 . 84265) (TEDIT.STREAMCHANGEDP 84267 . 84569) (TXTFILE 84571 . 85040)) (85043 +108248 (\TEDIT.REOPENTEXTSTREAM 85053 . 86405) (\TEDIT.OPENTEXTSTREAM.PIECES 86407 . 91335) ( +\TEDIT.OPENTEXTSTREAM.PROPS 91337 . 92439) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92441 . 97891) ( +\TEDIT.OPENTEXTSTREAM.WINDOW 97893 . 100684) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100686 . 102625) ( +\TEDIT.OPENTEXTFILE 102627 . 104759) (\TEDIT.CREATE.TEXTSTREAM 104761 . 105908) (\TEDIT.REOPEN.STREAM +105910 . 108246)) (108249 116436 (\TEDIT.STREAMINIT 108259 . 116253) (TEDIT.IMAGESTREAM.OPEN 116255 . +116434)) (116624 117812 (\TEDIT.TTYBOUT 116634 . 117810)) (117930 139613 (\TEDIT.TEXTCLOSEF 117940 . +119264) (\TEDIT.TEXTDSPFONT 119266 . 120464) (\TEDIT.TEXTEOFP 120466 . 122221) (\TEDIT.TEXTGETEOFPTR +122223 . 122546) (\TEDIT.TEXTSETEOFPTR 122548 . 123835) (\TEDIT.TEXTGETFILEPTR 123837 . 126672) ( +\TEDIT.TEXTSETFILEINFO 126674 . 127182) (\TEDIT.TEXTOPENF 127184 . 128115) (\TEDIT.TEXTSETEOF 128117 + . 128733) (\TEDIT.TEXTSETFILEPTR 128735 . 130845) (\TEDIT.TEXTDSPXPOSITION 130847 . 133550) ( +\TEDIT.TEXTDSPYPOSITION 133552 . 134293) (\TEDIT.TEXTLEFTMARGIN 134295 . 134886) (\TEDIT.TEXTCOLOR +134888 . 135471) (\TEDIT.TEXTRIGHTMARGIN 135473 . 138762) (\TEDIT.TEXTDSPCHARWIDTH 138764 . 139068) ( +\TEDIT.TEXTDSPSTRINGWIDTH 139070 . 139376) (\TEDIT.TEXTDSPLINEFEED 139378 . 139611)) (139651 152264 ( +\TEDIT.NTHCHARCODE 139661 . 141112) (\TEDIT.PIECE.NTHCHARCODE 141114 . 145024) (\TEDIT.RPLCHARCODE +145026 . 146484) (\TEDIT.PIECE.RPLCHARCODE 146486 . 151909) (\TEDIT.NTHCHARLOOKS 151911 . 152262)) ( +153311 174405 (\TEDIT.DELETE.SELPIECES 153321 . 156946) (\TEDIT.INSERTCH 156948 . 164987) ( +\TEDIT.INSERTCH.HISTORY 164989 . 168453) (\TEDIT.INSERTEOL 168455 . 170280) (\TEDIT.INSERTCH.INSERTION + 170282 . 173119) (\TEDIT.INSERTCH.EXTEND 173121 . 174403)) (174406 175910 (\TEDIT.NEXTCHANGEABLE.CHNO + 174416 . 175131) (\TEDIT.LASTCHANGEABLE.CHNO 175133 . 175908)) (175911 177615 (\SETUPGETCH 175921 . +177613)) (177673 182131 (\TEDIT.INSTALL.PIECE 177683 . 182129)) (182169 191635 (TEXTPROP 182179 . +182526) (GETTEXTPROP 182528 . 182772) (PUTTEXTPROP 182774 . 183031) (GETTEXTPROPS 183033 . 183477) ( +PUTTEXTPROPS 183479 . 184383) (TEXTPROP.ADD 184385 . 184648) (\TEDIT.TEXTPROP 184650 . 191633)) ( +191636 194013 (\TEDIT.TEXTOBJ.PROPNAMES 191646 . 192905) (\TEDIT.TEXTOBJ.PROPFETCHFN 192907 . 193423) +(\TEDIT.TEXTOBJ.PROPSTOREFN 193425 . 194011))))) STOP diff --git a/library/tedit/TEDIT-STREAM.LCOM b/library/tedit/TEDIT-STREAM.LCOM index d9bbf2466f92f6fec195decaf3f11479bf8f9437..f94131b32ce4bdd9f728461b6c042b7e53aa0468 100644 GIT binary patch delta 2121 zcmZ`)ONC@r30g)n2Ktu>c+$Uosd_Zu;jF? z)4Ux9+-j9PpSy7BD&%Sl%_a>0S1Ofquy*eH`L(A8)RbI7%GaDGw=oa~hTPL2<>1Cr zi&vX`<(=8rH*O#5Fi^^bP#Me!OR=&7Z@zH_B-5U^Ttrn2J;*OwK^uBli!n^wYqblI zuepi($rM)O)M9tXbwWrqAzu!oZ!C-H2OJh1Z=qeRB4WrXWT;HU)KpVeHf|itXx+)| zUoT~5#l-Y%Hj@?h^ilZ5xiE&$-pQ}(-$cU4bw`TcpO4+DuZ?dO#qH_CVb5j9M5KQZ zXs~&}sbB8th7INU@0Q0dKkiOB^WSElG#_-Xj3~u#(+y2i)HI>?ytmZm*egRxRkjuI zu<3b?c4?6ZPHhEL#>Cl~!&ySbqnSP9s!H&^H(Sm|jTTjC}`YZjgpBkmi z?$S{~#N90I1}c`?l*8%B)GVE~Mk#Ru#A zvp93R=Jt&pUSN_9DL!^Xt^w9l2^c;kkv0VNu&o*SUIn_iov8i#!-rwUdPs7gn4 zjtf*tKoO%HFD4*3{WrIa*Q$ImT=Dsln>bF`>5bhlY$uF@9ROi+^gX#1_bd=f#jmFh ztVDeopr}}O!?wLDuepFraoFT@-oQ4adgKqs?fYvKyV-B1cx|pRJ5p6bK%Y=9 zBo#C?kC?57aFE1NqY5w< zZOQE1MQeMs6?cy1b#&tH0C+*du1Wc>Reii0Yl!?O$bXeEl(e2iQBr#n>7H4tAMYer z!3g}`&i@~L=x;ThHWDO11U+h7a-S5?;~1Pc0XgRyT)%kf8oYY`($x#_*0u9%W-d8S zN*gDBde0Ka?>)OM{Yw(1^)tItbIKb@++APHg4F$Ued~lYXpQ*#{TH9(i&k?EuQeZw zBtduj&X3!+S=DOj;oS$~hCNk}s+92b=~c(m4{P5S0)u>EyIs=^B7HMgf2BpSjQX zh^PPH{e{n^@a}@E%Kyh}3+H<8KE*#A9WFoKR?HZ1%Uw9%-kxX*^ItCaoPXHb@6Lar zbOQbEg>=aejnxNqi@?b?wPJHVIMHMt=os@i#-312#NQhmRy3P`GqzvR5&wEDt5CV> zSBNHmeD63hObcSR90zj?plc?0tQL#(*$}zM=7mHzRhXohVYEIN|7vHSJjJh=1^(m9 zeXTpDmf0yauJ6VULc;lPWRPzsBNFBs$?nvJsSpr2NT&vGlIw|upGd8}MW-8WMe9C& zHj_Xjb}@6k71^I;vhBoOl*!s5KZ(Tmln?UZvf3Ic-^#4ph(Nd)hfxrMCDIaw&hZ(* znhp)8&I*DXi+snc1yRF^!6X=*YBdg)oCr+ZxiB%*0$&=EEmIV`s-k5oO!S|Pw9RyH z1*;(nmYpGd_te0kt-*4|DopPD|9vvFreLdNQX2oQ_#x2F%T zQ`(8nIhDGMH;f}7#Oj2aES8At*8(8e?u62oqF4ZFE{LfmF%d&g1${GcG1h*&a!nxX zqNCgCBnT%0wn-{jUDRZiYJh1Msfrggnb49hK64_iLWepz%9t@uNnza-GbOGI$YPDc z)xO@E=%9EdWFuDrBf{^^98xhtP!X+XW3kL}*w;5?+FdqxZ^F7nvp)SR^jFK_tL`n9U~B_vdUq z5$ew0$z(R>_GA=GsPlM38k(-+p&|tA+~GB&L2D2?zW1*Es2_RFs2Q( zWIdE3A;FFIn*`;C1UDqwr3b_%NJvOS6O*_hap1_Yhyw>Me0IFnG>Iblz2E!Z^Y8uM z^Y`^f1A8A2e0t?+z|U*7)p?d-1ptLC!{Yz;HFh(_CP9P(FceK?IX0UTD6o37_SU=a z+-SUAtAbkd#?4z7v%pms4VNxU721*us^U7JaUD?FQmF*OMQEC)Ky~FkoY`BQ%Q8Hb zj3hLpbU{^YRl-F9)sG=!Na{?A1&|j+F@s(qpM{#~^dZruRgr8dZ%Y-OmaQdoQL+uy zNuu}3>G24~!TG|<^*{iaFAp5Jm9naa)^oNpf6}V!|M;8MX&vL9V)Z9#~T$1u#=Q7{f9_DjjloCggBj z$YH|{6hhUKk)SeYe=y56e;3$e=zvrKJgFwRek>KgL+l2M?J7puPXH@8qyXn$+>#9 zF?!lZt+6%l>F3=`=H!O2U&lDW@6qDtiv>mMBGU1>PQ9VjtD~pUj>Zn8A!_8$o1DlV zX=hc`%c|)DPUwU2ncj0)ykHoPZe76&BPRdZtRRBC>Ut7YY^ws;6#wYdBA$V(0+wgd zAFquMvMi4t*PkH;G^bA{S>|Ll05iRi$fK8^i=8{Bh+kVVR7G_FOmVp0~Vq2vWtw^@&;)b|KS_Fy#n1(%&2+?67MrKesKY0q`?M4fw z$pOfsz5Ij-VfugiLPj`QAk%}SJ=M;k{h|;RfN9xfsRSV8+J6_5b1w!rN52m}2@>Ab zaOfVfVuV3G~u!eH=%%hlvxsfIlc)bEm135j4$R zKx@q`w!Uo6qMw=)wuW05Nxxl`Z^f|xMvF&xThr)=*W>7y)(hz0))YqLck)k$t^q|i tEld*Ky5mNDF7ujUE@EJ1tBkO0&3}}jEMjM delta 1177 zcmZuwO>7fa5cb-w0t>NF8$xU-JeDAAh!?;8v%ROR*Sp@0*M6(rO~4XWMQ}tMAfS{( zVh5#)id6Lk%(beJDo&M9z_}oVK&r%{m%=HR0^-VvTsa_KHh+%DUS{4m^Jd=n&Fs=| z(FeDqch2<*Ql>OdZld7Las_PkJHW~FZ zC0ZWsq=i*MRIzZk%|#`p(;Hnr*7?Ns_A*vyPj;!FnTIFl56n2Mn6<(0N&H_kGWD@D zRGnIVe2T=U{xc)bNnB$i^jnTCK8mb@RX)wWEbd)Hp6h#Iv3&MNYk0EJ?EN-`Nc{4e z4R1W=^)PR^xi5^_%i|>8XoMJvhh{RFT#qf8Bf7TkYTFgoI>aquA*Y}VAz|LK{eXCN ztyJPEd6)P$Wh^SW&A3ZkW6Y=pNR)TMBy06w%NdOF%Z4xX2QdV7eTZnuxYgLe5l sc4Hr1&C_(NMrg;+?SLk{Upxkaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;243 52506 +(FILECREATED "14-Jan-2026 14:50:53"  +{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;248 52743 :EDIT-BY rmk - :PREVIOUS-DATE "20-Sep-2025 11:04:51" {WMEDLEY}TEDIT>tedit-exports.all;242) + :PREVIOUS-DATE "10-Jan-2026 23:04:09" {WMEDLEY}TEDIT>tedit-exports.all;247) (PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION @@ -17,7 +17,7 @@ PRINT)))))))) (PUTPROPS FTEXTOBJ MACRO ((X) (TEXTOBJ! (CL:IF (type? TEXTOBJ X) X (GETTSTR X TEXTOBJ))))) (GLOBALVARS CHECK-TEDIT-ASSERTIONS) (RPAQ? CHECK-TEDIT-ASSERTIONS T) -(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "28-Sep-2025 11:35:06")) +(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "10-Jan-2026 01:39:21")) (RPAQQ \BTREEWORDSPERSLOT 4) (RPAQQ \BTREEMAXCOUNT 8) (CONSTANTS (\BTREEWORDSPERSLOT 4) (\BTREEMAXCOUNT 8)) @@ -56,8 +56,9 @@ by (\DTEST (OR (PREVPIECE I.V.) (GO $$OUT)) (QUOTE PIECE))))) "Description of a piece of selected text for TEdit. Text has to be selected before it can be operated on by the user. The caret is to the left of CH# if POINT is LEFT, to the keft of CHLIM if POINT is RIGHT." ) (* ;; "If DCH > 0, highlighting goes from CH# to (SUB1 CHLIM = (SUB1 (IPLUS CH# DCH)).") (* ;; "If DCH=0, this is a caret-only selection, with no highlighting. In that case CHLIM=(ADD1 CH#) and POINT essentially indicates whether the caret blinks before or after CH#." -) NIL (* ; "Was Y0: Y value of topmost line of selection") X0 (* ; -"X value of left edge of selection on the first line") SELLINES (* ; +) SELOPERATION (* ; +"NORMAL, MOVE, COPY... HOW and HOWHEIGHT are derived from the operation. Was Y0: Y value of topmost line of selection" +) X0 (* ; "X value of left edge of selection on the first line") SELLINES (* ; "A list of (L1 L2) pairs one for each pane, to replace the separate L1 L2 lists. Was DX: Width of the selection, if it's on one line." ) CH# (* ; "CH# of the first selected character") XLIM (* ; "X value of right edge of last selected character on the last line") CHLIM (* ; @@ -127,7 +128,7 @@ TSTREAM ONLYPANE DONTFIX))) (PUTPROPS \TEDIT.SEL.OFF MACRO ((TSTREAM SEL ONLYPANE) (* ; "Takes down SEL in TSTREAM, where SEL defaults to the current selection") (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE))) -(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "29-Jul-2025 11:22:10")) +(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "14-Jan-2026 14:32:01")) (RECORD TAB (TABX . TABKIND)) (RECORD TABSPEC (DEFAULTTAB . TABS)) (DATATYPE LINECACHE ((* ;; "Image cache for display lines.") LCBITMAP (* ; @@ -208,8 +209,6 @@ ITEM collect (FIXR (FTIMES SCALE ITEM))) (FIXR (FTIMES SCALE ITEM))))) (PUTPROPS SCALEDOWN MACRO (OPENLAMBDA (SCALE ITEM) (* ; "List = region?") (CL:IF (LISTP ITEM) (for I in ITEM collect (FIXR (FQUOTIENT I SCALE))) (FIXR (FQUOTIENT ITEM SCALE))))) (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS) -(ADDTOVAR CHARACTERNAMES (SOFT-HYPHEN "357,043") (NONBREAKING-HYPHEN "357,042") (NONBREAKING-SPACE -"357,041")) (PUTPROPS DIACRITICP MACRO (OPENLAMBDA (CHAR) (* ;; "An XCCS diacritic") (AND (SMALLP CHAR) (IGEQ CHAR 192) (ILEQ CHAR 207)))) (PUTPROPS \TEDIT.LINE.TALLP MACRO ((LINE HEIGHT) (OR (IGREATERP (FGETLD LINE LHEIGHT) 50) (IGREATERP ( @@ -260,7 +259,7 @@ NEXTAVAILABLECHARSLOT) of THISLINE))) (T $$STARTSLOT))) (SETQ $$CHARSLOTLIMIT (F ) by (PREVCHARSLOT I.V.) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch ( CHARSLOT CHARW) of I.V.)) (SETQ CHARCL (fetch (CHARSLOT CHARCL) of I.V.)) repeatuntil (EQ I.V. $$CHARSLOTLIMIT))))) T) -(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 00:07:29")) +(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "31-Dec-2025 23:10:18")) (DATATYPE PIECE ((* ; "The piece describes either a string or part of a file. , or a generalized OBJECT.") PCONTENTS (* ; "The background source of data for this piece (stream, string, block, object, depending on the PTYPE)." @@ -299,9 +298,10 @@ HINTPC (* ; "Was: Space left in the type-in piece") HINTPCSTARTCH# (* ; ) DS (* ; "NOTE: THIS IS ONLY USED INCORRECTLY BY TEDIT-CHAT Display stream where this textobj is displayed") SEL (* ; "The current selection within the text") LASTARROWX (* ; -"X for next arrow up or arrow down. Was: Scratch space for the selection code") NIL (* ; -"Was MOVESEL: Source for the next MOVE of text") NIL (* ; "Was SHIFTEDSEL: Source for the next COPY") -NIL (* ; "Was DELETESEL: Text to be deleted imminently") NIL (* ; +"X for next arrow up or arrow down. Was: Scratch space for the selection code") SECONDARYSEL (* ; +"Holds secondary selection and operation just before the mouse leaves a window. Was MOVESEL: Source for the next MOVE of text" +) NIL (* ; "Was SHIFTEDSEL: Source for the next COPY") NIL (* ; +"Was DELETESEL: Text to be deleted imminently") NIL (* ; "Was WRIGHT: Right edge of the window (or subregion) where this is displayed") WTOP (* ; "Top of the window/region") NIL (* ; "Was WBOTTOM: Bottom of the window/region") NIL (* ; "Was WLEFT: Left edge of the window/region") TXTFILE (* ; "The original text file we're editing") ( @@ -440,7 +440,7 @@ UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE F BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))) (GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV) -(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:09:09")) +(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "14-Jan-2026 14:32:01")) (PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;; "Test to see if only the specified mouse button is down. DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called." ) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1)) @@ -449,12 +449,12 @@ THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTY I in ARGS as J on ARGS when (NOT (STRINGP I)) collect (LIST (QUOTE OR) I (LIST (QUOTE HELP) "TEdit consistency-check failure [RETURN to continue]: " (COND ((STRINGP (CADR J))) (T (KWOTE I)))))) )) (T (CONS COMMENTFLG ARGS))))) -(PUTPROP (QUOTE TEDIT-COMMAND) (QUOTE IMPORTDATE) (IDATE "17-Jul-2025 00:24:49")) +(PUTPROP (QUOTE TEDIT-COMMAND) (QUOTE IMPORTDATE) (IDATE " 8-Nov-2025 10:03:19")) (PUTPROPS \SMALLPIN MACRO (OPENLAMBDA (STREAM) (SIGNED (create WORD HIBYTE _ (\BIN STREAM) LOBYTE _ ( \BIN STREAM)) BITSPERWORD))) (PUTPROPS \SMALLPOUT MACRO (OPENLAMBDA (STREAM W) (* ; "Signed smallp, unlike \WOUT") (\BOUT STREAM ( LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255)))) -(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "25-Sep-2025 21:32:46")) +(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "23-Oct-2025 08:49:06")) (PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE " 8-Sep-2025 22:10:10")) (DATATYPE CHARLOOKS ((* ;; "Describes the appearance (%"Looks%") of characters in a TEdit document.") (* ;; "NOTE: If fields change EQCLOOKS should change too.") CLFONT (* ; @@ -537,7 +537,7 @@ LINELEAD _ 0) (PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with NEWVALUE))) (PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS)))) -(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 6-Oct-2025 20:50:59")) +(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 7-Dec-2025 16:32:32")) (PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43")) (DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T @@ -600,17 +600,18 @@ OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BOD GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO $$OUT))))) (PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS)))) -(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:13:01")) +(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "14-Jan-2026 14:32:01")) (PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 10:44:18")) -(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:14:00")) +(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "12-Dec-2025 00:01:26")) (PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57")) -(RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) ( -UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT -21) (WHITESPACE 22))) +(RPAQQ \TEDIT.TTCCODES ((NONE . 0) (CHARDELETE . 1) (:CHARDELETE.BACKWARD . 1) (WORDDELETE . 2) ( +:WORDDELETE.BACKWORD . 2) (DELETE . 3) (:DELETE . 3) (FN . 4) (REDO . 5) (:REDO . 5) (UNDO . 6) (:UNDO + . 6) (CMD . 7) (:CMD . 7) (NEXT . 8) (:NEXT . 8) (EXPAND . 9) (:EXPAND . 9) (CHARDELETE.FORWARD . 10) + (:CHARDELETE.FORWARD . 10) (:WORDDELETE.FORWARD . 11) (PUNCT . 20) (TEXT . 21) (WHITESPACE . 22))) (CONSTANTS \TEDIT.TTCCODES) -(PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES))))) -(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 7-Aug-2025 15:00:51")) -(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 17:08:05")) +(PUTPROPS \TEDIT.TTC MACRO ((ACTION) (CONSTANT (GETMULTI \TEDIT.TTCCODES (QUOTE ACTION))))) +(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE "24-Nov-2025 08:40:56")) +(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "24-Dec-2025 11:16:22")) (DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (* ; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?") THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ; @@ -659,8 +660,8 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R $$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP $$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES)))))))))))) (PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS))))) -(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "27-Sep-2025 16:25:26")) -(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE " 6-Sep-2025 00:10:45")) +(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "25-Dec-2025 15:07:57")) +(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "13-Jan-2026 17:51:55")) (PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 7-Sep-2025 11:11:43")) (DECLARE%: DONTCOPY (FILEMAP (NIL)))