From 82d08f355cc461f1bbc005b291e496beb0b9a825 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 22 Oct 2025 14:50:30 -0700 Subject: [PATCH 1/6] Initial commit --- library/tedit/TEDIT-BUTTONS | 54 +++--- library/tedit/TEDIT-BUTTONS.LCOM | Bin 35426 -> 35367 bytes library/tedit/TEDIT-MENU | 296 ++++++++++++++++++------------- library/tedit/TEDIT-MENU.LCOM | Bin 54213 -> 55202 bytes library/tedit/TEDIT-SCREEN | 46 ++--- library/tedit/TEDIT-SCREEN.LCOM | Bin 33825 -> 33863 bytes library/tedit/TEDIT-WINDOW | 181 +++++++++++-------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62714 -> 62506 bytes 8 files changed, 328 insertions(+), 249 deletions(-) diff --git a/library/tedit/TEDIT-BUTTONS b/library/tedit/TEDIT-BUTTONS index 2f00fe35a..f015ff000 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 "30-Apr-2025 14:09:18" {WMEDLEY}tedit>TEDIT-BUTTONS.;228 125393 +(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;229 125526 :EDIT-BY rmk - :CHANGES-TO (FNS MB.NWAY.ADDITEM MB.NWAY.CREATE MB.NWAY.SETSTATEFN MB.NWAY.SELECT) + :CHANGES-TO (FNS MB.ADD) - :PREVIOUS-DATE "14-Apr-2025 23:50:23" {WMEDLEY}tedit>TEDIT-BUTTONS.;226) + :PREVIOUS-DATE "30-Apr-2025 14:09:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;228) (PRETTYCOMPRINT TEDIT-BUTTONSCOMS) @@ -67,14 +67,16 @@ (DEFINEQ (MB.ADD - [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 6-Apr-2025 14:35 by rmk") + [LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES MAINTSTREAM) + (* ; "Edited 19-Oct-2025 10:22 by rmk") + (* ; "Edited 6-Apr-2025 14:35 by rmk") (* ; "Edited 5-Jan-2025 11:36 by rmk") (* ; "Edited 22-Oct-2024 09:16 by rmk") (* ; "Edited 21-Oct-2024 00:26 by rmk") (* ; "Edited 18-Oct-2024 13:49 by rmk") (* ; "Edited 6-Oct-2024 15:25 by rmk") (* ; "Edited 24-Aug-2024 21:08 by rmk") - (DECLARE (SPECVARS MENUTSTREAM)) + (DECLARE (SPECVARS MENUTSTREAM MAINTSTREAM)) (SETQ MENUTSTREAM (TEXTSTREAM MENUTSTREAM)) (* ; "Edited 22-Aug-2024 11:10 by rmk") (* ;; "MENUDESC is a Tedit menu specification, a list of items describing one or more elements to be inserted in TSTREAM after WHERE. ") @@ -1969,25 +1971,25 @@ (MB.FIELD.INIT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3279 19224 (MB.ADD 3289 . 9810) (MB.DELETE 9812 . 10186) (MB.GET 10188 . 16958) ( -MB.GET.MBARG 16960 . 18629) (TEDIT.BACKTOMAIN 18631 . 19222)) (19268 39204 (MB.BUTTONEVENTINFN 19278 - . 20846) (MB.DISPLAYFN 20848 . 22907) (MB.SETIMAGE 22909 . 24077) (MB.SIZEFN 24079 . 25627) ( -MB.WHENOPERATEDONFN 25629 . 27578) (MB.COPYFN 27580 . 28038) (MB.GETFN 28040 . 29001) (MB.PUTFN 29003 - . 30103) (MB.SHOWSELFN 30105 . 31614) (MB.CREATE 31616 . 35639) (MB.CHANGENAME 35641 . 36123) ( -MB.INIT 36125 . 37586) (MB.TRACK.UNTIL 37588 . 38283) (MB.DON'T 38285 . 38581) (MB.SPEC.REMAINDER -38583 . 39202)) (39366 49371 (MB.3STATE.CREATE 39376 . 40240) (MB.3STATE.DISPLAYFN 40242 . 41228) ( -MB.3STATE.SHOWSELFN 41230 . 43541) (MB.3STATE.INIT 43543 . 44954) (MB.3STATE.SETSTATEFN 44956 . 45614) - (MB.3STATE.BUTTONEVENTINFN 45616 . 49369)) (49526 80622 (MB.NWAY.CREATE 49536 . 55719) ( -MB.NWAY.DISPLAYFN 55721 . 56584) (MB.NWAY.WHENOPERATEDONFN 56586 . 58776) (MB.NWAY.SIZEFN 58778 . -62714) (MB.NWAY.SELECT 62716 . 66286) (MB.NWAY.BUTTONEVENTINFN 66288 . 69500) (MB.NWAY.NEWMENUBUTTON -69502 . 70214) (MB.NWAY.COPYFN 70216 . 71183) (MB.NWAY.INIT 71185 . 72676) (MB.NWAY.ARRANGEBUTTONS -72678 . 74649) (MB.NWAY.ADDITEM 74651 . 78800) (MB.NWAY.FINDSUBOBJ 78802 . 79316) (MB.NWAY.SETSTATEFN -79318 . 80620)) (80701 92700 (MB.TOGGLE.CREATE 80711 . 81706) (MB.TOGGLE.DISPLAYFN 81708 . 83191) ( -MB.TOGGLE.INIT 83193 . 84992) (MB.SET.TOGGLE 84994 . 86195) (MB.TOGGLE.SETSTATEFN 86197 . 87037) ( -MB.TOGGLE.BUTTONEVENTINFN 87039 . 91355) (MB.TOGGLE.WHENOPERATEDONFN 91357 . 92698)) (92781 125314 ( -MB.FIELD.CREATE 92791 . 98242) (MB.FIELD.DISPLAYFN 98244 . 99035) (MB.FIELD.IMAGEBOXFN 99037 . 100519) - (MB.FIELD.PREFIXCREATE 100521 . 104457) (MB.FIELD.SUFFIXCREATE 104459 . 106119) (MB.FIELD.INIT 106121 - . 107888) (MB.FIELD.WHENOPERATEDONFN 107890 . 109161) (MB.FIELD.GETSTATEFN 109163 . 113097) ( -MB.FIELD.SETSTATEFN 113099 . 117903) (MB.FIELD.BUTTONEVENTINFN 117905 . 120210) (MB.FIELD.SIZEFN -120212 . 120452) (MB.FIELD.INSURETYPE 120454 . 125312))))) + (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))))) STOP diff --git a/library/tedit/TEDIT-BUTTONS.LCOM b/library/tedit/TEDIT-BUTTONS.LCOM index 3b2a83e0ffe50cb95f086724c10c0ba31a8735a9..5fd325814497f27709e434bd2691ecc91b73fa8b 100644 GIT binary patch delta 331 zcmaDfg=zT|rU~H&hL*bi$tAi*21cd|h6Yw9CRT=)N(vfE$@#ejnK`K`3i){oN($BC zzOF7lu93Ai6W7Sr8yQ(@DsU+onj^FtSX!ByTbURtDI^u8!u6(B6ciP!S}FKC={dT% zC}aYSatrnGQ9#zIr>Cc+kdjyevzMaN(vfE$@#ejnK`K`3i){oN(x-n zF2UZlHlf9-Ma6d6i3K@{d3HYe$%#33xv42Rsg=fhrgrI>CAtuv-Nbg;OfwTr1tk>I zEv$^qtxU{-rj>w9&rwfN$OIbh7V6`pfUHnYPftl9C9wo(ITiyscEaStuA9 znHpOfPtIaguJ;RfjMQ^<0V;9zRq%Dv1M?xq!nwh&A;BR)d))kxgn*WZXew9*1i6NJ z`iBPVx&Rd@a48v@=sFe@K?2jr*vizv%E(wr0jJv}(H&=|$pv%;&_R>m>8NfNV6tIn VG@jhZBr>^>)0&ZG^IFcT1^~I$eDeSR diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU index f6075e5d5..cc340649a 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 "10-Sep-2025 17:08:43" {WMEDLEY}TEDIT>TEDIT-MENU.;492 178438 +(FILECREATED "22-Oct-2025 12:55:36" {WMEDLEY}TEDIT>TEDIT-MENU.;498 183397 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-MENUCOMS) + :CHANGES-TO (FNS MARGINBAR.NEUTRALIZE \TEDIT.PARALOOKS.TO.MARBAR) - :PREVIOUS-DATE "28-Jul-2025 23:26:01" {WMEDLEY}TEDIT>TEDIT-MENU.;491) + :PREVIOUS-DATE "19-Oct-2025 15:14:00" {WMEDLEY}TEDIT>TEDIT-MENU.;496) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -59,7 +59,7 @@ (* ; "PARAMENU") (FNS \TEDIT.PARAMENU.CREATE \TEDIT.PARAMENU.START \TEDIT.APPLY.PARALOOKS - \TEDIT.SHOW.PARALOOKS \TEDIT.PARAMENU.FILLIN) + \TEDIT.SHOW.PARALOOKS \TEDIT.PARAMENU.FILLIN \TEDIT.PARAMENU.RESHAPEFN) (* ;; "") @@ -95,7 +95,7 @@ (DECLARE%: DOEVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(RECORD MARGINBAR (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE) +(RECORD MARGINBAR (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE MARBARWIDTH) [TYPE? (AND (IMAGEOBJP DATUM) (EQ (IMAGEOBJPROP DATUM 'DISPLAYFN) 'MB.MARGINBAR.DISPLAYFN]) @@ -511,7 +511,9 @@ (MB.MARGINBAR.SHOWTAB W TAB UNIT 'PAINT]) (MARGINBAR.CREATE - [LAMBDA (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE) (* ; "Edited 29-Sep-2024 12:53 by rmk") + [LAMBDA (MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE MAINTSTREAM/WIDTH) + (* ; "Edited 19-Oct-2025 15:13 by rmk") + (* ; "Edited 29-Sep-2024 12:53 by rmk") (* ; "Edited 4-Aug-2024 22:36 by rmk") (* ; "Edited 29-Jul-2024 10:13 by rmk") (* ; "Edited 28-Jul-2024 09:18 by rmk") @@ -519,10 +521,16 @@ (* ; "Edited 22-Jul-2024 11:54 by rmk") (* ; "Edited 12-Jun-90 18:59 by mitani") - (* ;; "Create an instance of the margin-setting ruler for TEdit's use.") + (* ;; "Create an instance of the margin-setting ruler for TEdit's use. ") (PROG ((BOX (create IMAGEBOX - XSIZE _ 1008 + XSIZE _ (IDIFFERENCE (OR (FIXP MAINTSTREAM/WIDTH) + (AND MAINTSTREAM/WIDTH (\TEDIT.PRIMARYPANE + MAINTSTREAM/WIDTH) + (PANEWIDTH (\TEDIT.PRIMARYPANE MAINTSTREAM/WIDTH + ))) + SCREENWIDTH) + 18) YSIZE _ 62 YDESC _ 0 XKERN _ 4)) @@ -535,7 +543,8 @@ MARR _ MARR MARTABS _ MARTABS MARUNIT _ MARUNIT - MARTABTYPE _ MARTABTYPE)) + MARTABTYPE _ MARTABTYPE + MARBARWIDTH _ (fetch (IMAGEBOX XSIZE) of BOX))) MARGINBARIMAGEFNS)) (* ;  "Create an IMAGEOBJ, containing an instance of the record to hold margin and tab info") (SETQ BITMAP (BITMAPCREATE (fetch XSIZE of BOX) @@ -850,13 +859,15 @@ PC]) (MARGINBAR.NEUTRALIZE - [LAMBDA (OBJ) (* ; "Edited 29-Jul-2024 12:14 by rmk") + [LAMBDA (OBJ) (* ; "Edited 22-Oct-2025 12:55 by rmk") + (* ; "Edited 29-Jul-2024 12:14 by rmk") (* ;; "Neutralizes the settings of the marginbar") (create MARGINBAR smashing (IMAGEOBJPROP OBJ 'OBJECTDATUM) MARL1 _ -0.5 MARLN _ -0.5 MARR _ -39.5 MARTABS _ 'NEUTRAL MARUNIT _ 12 - MARTABTYPE _ NIL]) + MARTABTYPE _ NIL MARBARWIDTH _ (fetch (MARGINBAR MARBARWIDTH) + of (IMAGEOBJPROP OBJ 'OBJECTDATUM]) (MARGINBAR.LOOKS [LAMBDA (OBJ DOTTEDLEADER) (* ; "Edited 20-Oct-2024 15:27 by rmk") @@ -913,13 +924,14 @@ LOOKS]) (MB.MARGINBAR.SIZEFN - [LAMBDA (OBJ) (* ; "Edited 3-Dec-2024 20:03 by rmk") + [LAMBDA (OBJ) (* ; "Edited 19-Oct-2025 09:47 by rmk") + (* ; "Edited 3-Dec-2024 20:03 by rmk") (* jds " 5-Sep-84 14:10") (* ;; "YDESC is 2 so that selecting the bar and highlighting doesn't wipe out the bottom line. Although you shouldn't be able to select it") (LET ((BOX (create IMAGEBOX - XSIZE _ 1008 + XSIZE _ (fetch (MARGINBAR MARBARWIDTH) of (IMAGEOBJPROP OBJ 'OBJECTDATUM)) YSIZE _ 62 YDESC _ 2 XKERN _ 4))) @@ -1070,7 +1082,8 @@ 'MarginRuler]) (\TEDIT.PARALOOKS.TO.MARBAR - [LAMBDA (PARALOOKS UNIT) (* ; "Edited 19-Feb-2025 13:25 by rmk") + [LAMBDA (PARALOOKS UNIT) (* ; "Edited 22-Oct-2025 12:29 by rmk") + (* ; "Edited 19-Feb-2025 13:25 by rmk") (* ; "Edited 8-Feb-2025 21:08 by rmk") (* ; "Edited 4-Aug-2024 22:50 by rmk") @@ -1088,7 +1101,8 @@ MARUNIT _ UNIT MARTABS _ (for TAB in (FGETPLOOKS PARALOOKS FMTTABS) collect (create TAB using TAB TABX _ (QUOTIENT (fetch (TAB TABX) of TAB) - UNIT]) + UNIT))) + MARBARWIDTH _ (FGETPLOOKS PARALOOKS RIGHTMAR]) ) (RPAQQ \TEDIT.LEFTTAB #*(10 8)B@@@B@@@G@@@JH@@B@@@B@@@CN@@@@@@) @@ -1247,7 +1261,8 @@ (DEFINEQ (\TEDIT.MENU.CREATE - [LAMBDA (MENUDESC MENUPROPS) (* ; "Edited 17-Dec-2024 08:53 by rmk") + [LAMBDA (MENUDESC MENUPROPS MAINTSTREAM) (* ; "Edited 19-Oct-2025 10:36 by rmk") + (* ; "Edited 17-Dec-2024 08:53 by rmk") (* ; "Edited 22-Aug-2024 11:09 by rmk") (* ; "Edited 21-Aug-2024 09:54 by rmk") (* ; "Edited 14-Aug-2024 09:40 by rmk") @@ -1263,7 +1278,7 @@ (* ;; "Create the TEXTSTREAM for a menu, given a menu description. That stream is marked as a menu and passed to \TEDIT.MENU.START to get the menu up on screen") (LET [(MENUTSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL (OR MENUPROPS '(FONT (MODERN 10] - (MB.ADD MENUDESC MENUTSTREAM) + (MB.ADD MENUDESC MENUTSTREAM NIL NIL MAINTSTREAM) (SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ)) SET NIL) (SETTOBJ (GETTSTR MENUTSTREAM TEXTOBJ) @@ -1663,7 +1678,8 @@ (DEFINEQ (\TEDIT.PARAMENU.CREATE - [LAMBDA NIL (* ; "Edited 13-Jul-2025 22:35 by rmk") + [LAMBDA (MAINTSTREAM) (* ; "Edited 19-Oct-2025 15:12 by rmk") + (* ; "Edited 13-Jul-2025 22:35 by rmk") (* ; "Edited 7-Jan-2025 15:48 by rmk") (* ; "Edited 8-Nov-2024 08:35 by rmk") (* ; "Edited 20-Oct-2024 23:46 by rmk") @@ -1680,7 +1696,7 @@ (* ; "Edited 27-Jul-2024 10:18 by rmk") (* jds " 2-Aug-84 15:32") - (* ;; "Creates the TEdit Expanded Paragraph Menu. (PROGN to suppress %"value of comment used? compile-time messages.)") + (* ;; "Creates the TEdit Expanded Paragraph Menu for MAINTSTREAM. (PROGN to suppress %"value of comment used? compile-time messages.)") (PROGN (* ;; "Hack so Masterscope knows that these otherwise quoted functions are here.") @@ -1689,88 +1705,97 @@ (FUNCTION \TEDIT.SHOW.PARALOOKS) (FUNCTION \TEDIT.MENU.NEUTRALIZE) (FUNCTION \TEDIT.TABTYPE.SET) - (FUNCTION PRINTERTYPE)) - (\TEDIT.MENU.CREATE `((ACTION (LABEL APPLY) - (IGNORE T) - (SELECTFN \TEDIT.APPLY.PARALOOKS)) - 3 - (ACTION (LABEL SHOW) - (IGNORE T) - (SELECTFN \TEDIT.SHOW.PARALOOKS)) - 3 - (ACTION (LABEL NEUTRAL) - (IGNORE T) - (SELECTFN \TEDIT.MENU.NEUTRALIZE)) - EOL - (NWAY (IDENTIFIER QUAD) - (BUTTONS (Left Right Centered Justified)) - (INITSTATE OFF)) - TAB - (3STATE (IDENTIFIER TYPE) - (LABEL "Page Heading")) - 2 - (FIELD (IDENTIFIER SUBTYPE) - (PRELABEL "type") - (FIELDTYPE SYMBOL)) - EOL - (FIELD (IDENTIFIER LINELEADING) - (PRELABEL "Line leading") - (POSTLABEL "pts") - (FIELDTYPE NUMBER) - (LABELFONT (HELVETICA 8))) - (FIELD (PRELABEL " Para leading") - (POSTLABEL "pts") - (IDENTIFIER PARALEADING) - (FIELDTYPE NUMBER) - (LABELFONT (HELVETICA 8))) - (FIELD (IDENTIFIER SPECIALX) - (PRELABEL " Special Locn: X") - (POSTLABEL "picas") - (FIELDTYPE PICAS) - (LABELFONT (HELVETICA 8))) - (FIELD (IDENTIFIER SPECIALY) - (PRELABEL " Y") - (POSTLABEL "picas") - (FIELDTYPE PICAS) - (LABELFONT (HELVETICA 8))) - EOL - (TEXT (STRING "New Page: ") - (FONT (HELVETICA 8))) - (3STATE (IDENTIFIER NEWPAGEBEFORE) - (LABEL "Before")) - 2 - (3STATE (IDENTIFIER NEWPAGEAFTER) - (LABEL "After")) - 4 - (3STATE (IDENTIFIER HEADINGKEEP) - (LABEL "Keep heading")) - (TEXT (STRING " Display mode: ") - (FONT (HELVETICA 8))) - (3STATE (LABEL "Hardcopy")) (* (FIELD (IDENTIFIER PRINTFILETYPE) + (FUNCTION PRINTERTYPE) + (FUNCTION \TEDIT.PARAMENU.RESHAPEFN)) + (LET (MENUTSTREAM) + (SETQ MENUTSTREAM (\TEDIT.MENU.CREATE `((ACTION (LABEL APPLY) + (IGNORE T) + (SELECTFN \TEDIT.APPLY.PARALOOKS)) + 3 + (ACTION (LABEL SHOW) + (IGNORE T) + (SELECTFN \TEDIT.SHOW.PARALOOKS)) + 3 + (ACTION (LABEL NEUTRAL) + (IGNORE T) + (SELECTFN \TEDIT.MENU.NEUTRALIZE)) + EOL + (NWAY (IDENTIFIER QUAD) + (BUTTONS (Left Right Centered Justified)) + (INITSTATE OFF)) + TAB + (3STATE (IDENTIFIER TYPE) + (LABEL "Page Heading")) + 2 + (FIELD (IDENTIFIER SUBTYPE) + (PRELABEL "type") + (FIELDTYPE SYMBOL)) + EOL + (FIELD (IDENTIFIER LINELEADING) + (PRELABEL "Line leading") + (POSTLABEL "pts") + (FIELDTYPE NUMBER) + (LABELFONT (HELVETICA 8))) + (FIELD (PRELABEL " Para leading") + (POSTLABEL "pts") + (IDENTIFIER PARALEADING) + (FIELDTYPE NUMBER) + (LABELFONT (HELVETICA 8))) + (FIELD (IDENTIFIER SPECIALX) + (PRELABEL " Special Locn: X") + (POSTLABEL "picas") + (FIELDTYPE PICAS) + (LABELFONT (HELVETICA 8))) + (FIELD (IDENTIFIER SPECIALY) + (PRELABEL " Y") + (POSTLABEL "picas") + (FIELDTYPE PICAS) + (LABELFONT (HELVETICA 8))) + EOL + (TEXT (STRING "New Page: ") + (FONT (HELVETICA 8))) + (3STATE (IDENTIFIER NEWPAGEBEFORE) + (LABEL "Before")) + 2 + (3STATE (IDENTIFIER NEWPAGEAFTER) + (LABEL "After")) + 4 + (3STATE (IDENTIFIER HEADINGKEEP) + (LABEL "Keep heading")) + (TEXT (STRING " Display mode: ") + (FONT (HELVETICA 8))) + (3STATE (LABEL "Hardcopy")) + (* (FIELD (IDENTIFIER PRINTFILETYPE)  (FIELDTYPE SYMBOL) (INITSTATE  (\, (PRINTERTYPE))))) - 4 EOL (TEXT (STRING "Tab Type: ") - (FONT (HELVETICA 8))) - (NWAY (IDENTIFIER TABTYPE) - (BUTTONS (Left Right Centered Decimal)) - (IGNORE T)) - 3 - (TOGGLE (IDENTIFIER DOTTEDLEADER) - (LABEL "Dotted Leader") - (IGNORE T)) - (FIELD (IDENTIFIER DEFAULTTAB) - (PRELABEL " Default Tab:") - (POSTLABEL "pts") - (FIELDTYPE NUMBER) - (LABELFONT (HELVETICA 8))) - EOL - ((PROGN (TEDIT.INSERT.OBJECT (MARGINBAR.CREATE -0.5 -0.5 -39.5 NIL 12) - MENUTSTREAM CH# '(PROTECTED OFF)) - 1)) - EOL]) + 4 EOL (TEXT (STRING "Tab Type: ") + (FONT (HELVETICA 8))) + (NWAY (IDENTIFIER TABTYPE) + (BUTTONS (Left Right Centered Decimal)) + (IGNORE T)) + 3 + (TOGGLE (IDENTIFIER DOTTEDLEADER) + (LABEL "Dotted Leader") + (IGNORE T)) + (FIELD (IDENTIFIER DEFAULTTAB) + (PRELABEL " Default Tab:") + (POSTLABEL "pts") + (FIELDTYPE NUMBER) + (LABELFONT (HELVETICA 8))) + EOL + ((PROGN (TEDIT.INSERT.OBJECT (MARGINBAR.CREATE + -0.5 -0.5 -39.5 NIL 12 + NIL MAINTSTREAM) + MENUTSTREAM CH# '(PROTECTED OFF)) + 1)) + EOL) + NIL MAINTSTREAM)) + [PUTTEXTPROP MENUTSTREAM 'WINDOWPROPS `(RESHAPEFN (\TEDIT.PARAMENU.RESHAPEFN] + MENUTSTREAM]) (\TEDIT.PARAMENU.START - [LAMBDA (TSTREAM) (* ; "Edited 28-May-2025 23:45 by rmk") + [LAMBDA (MAINTSTREAM) (* ; "Edited 19-Oct-2025 10:29 by rmk") + (* ; "Edited 28-May-2025 23:45 by rmk") (* ; "Edited 14-Mar-2025 15:42 by rmk") (* ; "Edited 7-Jan-2025 15:36 by rmk") (* ; "Edited 27-Jul-2024 00:06 by rmk") @@ -1778,9 +1803,9 @@ (* ; "Edited 27-Feb-2024 07:53 by rmk") (* ; "Edited 19-Sep-2023 08:51 by rmk") (* ; "Edited 20-Aug-87 16:51 by jds") - (CL:UNLESS (\TEDIT.MENU.OPEN? "Paragraph-Looks Menu" TSTREAM) - (\TEDIT.MENU.START (\TEDIT.PARAMENU.CREATE) - TSTREAM "Paragraph-Looks Menu" (HEIGHTIFWINDOW 141 T) + (CL:UNLESS (\TEDIT.MENU.OPEN? "Paragraph-Looks Menu" MAINTSTREAM) + (\TEDIT.MENU.START (\TEDIT.PARAMENU.CREATE MAINTSTREAM) + MAINTSTREAM "Paragraph-Looks Menu" (HEIGHTIFWINDOW 141 T) 'PARALOOKS))]) (\TEDIT.APPLY.PARALOOKS @@ -1895,6 +1920,21 @@ (CL:WHEN SETSTATEFN (SETQ PC (APPLY* SETSTATEFN PC VAL MENUSTREAM)) (TEDIT.OBJECT.CHANGED MENUSTREAM OBJ))]) + +(\TEDIT.PARAMENU.RESHAPEFN + [LAMBDA (PANE BITS OLDREGION) (* ; "Edited 19-Oct-2025 14:18 by rmk") + + (* ;; "The marginbar's width may change when the parawindow is reshaped. If PANE is wider than the previous width, extend the margin bar.") + + (LET [(PC (MB.GET 'MARGINBAR PANE 'STARTPC] + (CL:WHEN [AND PC (IGREATERP (PANEWIDTH PANE) + (fetch (MARGINBAR MARBARWIDTH) of (IMAGEOBJPROP (POBJ PC) + 'OBJECTDATUM] + [WITH MARGINBAR (IMAGEOBJPROP (POBJ PC) + 'OBJECTDATUM) + (FSETPC PC POBJ (MARGINBAR.CREATE MARL1 MARLN MARR MARTABS MARUNIT MARTABTYPE + (PANEWIDTH PANE]) + (\TEDIT.RESHAPEFN PANE BITS OLDREGION]) ) @@ -2867,32 +2907,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4902 16540 (TEDIT.ADD.MENUITEM 4912 . 7029) (TEDIT.DEFAULT.MENUFN 7031 . 13752) ( -TEDIT.REMOVE.MENUITEM 13754 . 14751) (\TEDIT.CREATEMENU 14753 . 15318) (\TEDIT.MENU.WHENHELDFN 15320 - . 16225) (\TEDIT.MENU.WHENSELECTEDFN 16227 . 16538)) (17354 63997 (DRAWMARGINSCALE 17364 . 20823) ( -MARGINBAR 20825 . 27950) (MARGINBAR.CREATE 27952 . 31371) (MB.MARGINBAR.BUTTONEVENTINFN 31373 . 39175) - (MB.MARGINBAR.SELFN.TABS 39177 . 44417) (MB.MARGINBAR.SELFN.TABS.KIND 44419 . 45354) ( -MARGINBAR.GETSTATEFN 45356 . 49343) (MARGINBAR.SETSTATEFN 49345 . 49555) (MARGINBAR.NEUTRALIZE 49557 - . 49970) (MARGINBAR.LOOKS 49972 . 53078) (MB.MARGINBAR.SIZEFN 53080 . 53683) (MB.MARGINBAR.DISPLAYFN -53685 . 56746) (MDESCALE 56748 . 57288) (MSCALE 57290 . 57620) (MB.MARGINBAR.SHOWTAB 57622 . 59945) ( -MB.MARGINBAR.TABTRACK 59947 . 61332) (MARGINBAR.INIT 61334 . 62727) (\TEDIT.PARALOOKS.TO.MARBAR 62729 - . 63995)) (64822 72104 (TEDIT.MENUSTREAM 64832 . 65832) (TEDITMENUP 65834 . 66803) (\TEDIT.MENU.START - 66805 . 71152) (\TEDIT.MENU.OPEN? 71154 . 71528) (\TEDIT.MENU.BUTTONEVENTFN 71530 . 72102)) (72423 -80345 (\TEDIT.MENU.CREATE 72433 . 74244) (\TEDIT.MENU.PARSE 74246 . 77935) (\TEDIT.MENU.NEUTRALIZE -77937 . 80008) (\TEDITMENU.RECORD.UNFORMATTED 80010 . 80343)) (80411 100192 ( -\TEDIT.EXPANDEDMENU.CREATE 80421 . 85888) (\TEDIT.EXPANDEDMENU.START 85890 . 87514) ( -\TEDIT.EXPANDEDMENU.FN 87516 . 90771) (\TEDIT.EXPANDEDMENU.ACTIONFN 90773 . 100190)) (100254 116311 ( -\TEDIT.PARAMENU.CREATE 100264 . 106658) (\TEDIT.PARAMENU.START 106660 . 107785) ( -\TEDIT.APPLY.PARALOOKS 107787 . 108839) (\TEDIT.SHOW.PARALOOKS 108841 . 111558) ( -\TEDIT.PARAMENU.FILLIN 111560 . 116309)) (116516 143358 (\TEDIT.CHARMENU.CREATE 116526 . 119130) ( -\TEDIT.CHARMENU.START 119132 . 120422) (\TEDIT.CHARMENU.SPEC 120424 . 125107) (\TEDIT.CHARMENU.PARSE -125109 . 128277) (\TEDIT.CHARMENU.FILLIN 128279 . 132909) (\TEDIT.SHOW.CHARLOOKS 132911 . 136456) ( -\TEDIT.APPLY.CHARLOOKS 136458 . 137619) (\TEDIT.OFFSETTYPE.STATEFN 137621 . 139584) ( -\TEDIT.OTHER.STATECHANGEFN 139586 . 141231) (\TEDIT.OTHER.SELECTFN 141233 . 143356)) (143420 172478 ( -\TEDIT.PAGEMENU.CREATE 143430 . 151942) (\TEDIT.PAGEMENU.START 151944 . 152295) (\TEDIT.SHOW.PAGELOOKS - 152297 . 154183) (\TEDIT.PAGEMENU.FILLIN 154185 . 155735) (\TEDIT.PAGEREGION.UNPARSE 155737 . 165136) - (\TEDIT.APPLY.PAGELOOKS 165138 . 167065) (\TEDIT.CHANGE.PAGELOOKS 167067 . 171634) ( -\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 171636 . 172476)) (172479 178282 (\TEDIT.PAGEMENU.CREATE.HEADINGS -172489 . 175301) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 175303 . 176728) ( -\TEDIT.PAGEMENU.HEADINGS.STATEFN 176730 . 178280))))) + (FILEMAP (NIL (4972 16610 (TEDIT.ADD.MENUITEM 4982 . 7099) (TEDIT.DEFAULT.MENUFN 7101 . 13822) ( +TEDIT.REMOVE.MENUITEM 13824 . 14821) (\TEDIT.CREATEMENU 14823 . 15388) (\TEDIT.MENU.WHENHELDFN 15390 + . 16295) (\TEDIT.MENU.WHENSELECTEDFN 16297 . 16608)) (17424 65459 (DRAWMARGINSCALE 17434 . 20893) ( +MARGINBAR 20895 . 28020) (MARGINBAR.CREATE 28022 . 32220) (MB.MARGINBAR.BUTTONEVENTINFN 32222 . 40024) + (MB.MARGINBAR.SELFN.TABS 40026 . 45266) (MB.MARGINBAR.SELFN.TABS.KIND 45268 . 46203) ( +MARGINBAR.GETSTATEFN 46205 . 50192) (MARGINBAR.SETSTATEFN 50194 . 50404) (MARGINBAR.NEUTRALIZE 50406 + . 51081) (MARGINBAR.LOOKS 51083 . 54189) (MB.MARGINBAR.SIZEFN 54191 . 54977) (MB.MARGINBAR.DISPLAYFN +54979 . 58040) (MDESCALE 58042 . 58582) (MSCALE 58584 . 58914) (MB.MARGINBAR.SHOWTAB 58916 . 61239) ( +MB.MARGINBAR.TABTRACK 61241 . 62626) (MARGINBAR.INIT 62628 . 64021) (\TEDIT.PARALOOKS.TO.MARBAR 64023 + . 65457)) (66284 73566 (TEDIT.MENUSTREAM 66294 . 67294) (TEDITMENUP 67296 . 68265) (\TEDIT.MENU.START + 68267 . 72614) (\TEDIT.MENU.OPEN? 72616 . 72990) (\TEDIT.MENU.BUTTONEVENTFN 72992 . 73564)) (73885 +81936 (\TEDIT.MENU.CREATE 73895 . 75835) (\TEDIT.MENU.PARSE 75837 . 79526) (\TEDIT.MENU.NEUTRALIZE +79528 . 81599) (\TEDITMENU.RECORD.UNFORMATTED 81601 . 81934)) (82002 101783 ( +\TEDIT.EXPANDEDMENU.CREATE 82012 . 87479) (\TEDIT.EXPANDEDMENU.START 87481 . 89105) ( +\TEDIT.EXPANDEDMENU.FN 89107 . 92362) (\TEDIT.EXPANDEDMENU.ACTIONFN 92364 . 101781)) (101845 121270 ( +\TEDIT.PARAMENU.CREATE 101855 . 110586) (\TEDIT.PARAMENU.START 110588 . 111842) ( +\TEDIT.APPLY.PARALOOKS 111844 . 112896) (\TEDIT.SHOW.PARALOOKS 112898 . 115615) ( +\TEDIT.PARAMENU.FILLIN 115617 . 120366) (\TEDIT.PARAMENU.RESHAPEFN 120368 . 121268)) (121475 148317 ( +\TEDIT.CHARMENU.CREATE 121485 . 124089) (\TEDIT.CHARMENU.START 124091 . 125381) (\TEDIT.CHARMENU.SPEC +125383 . 130066) (\TEDIT.CHARMENU.PARSE 130068 . 133236) (\TEDIT.CHARMENU.FILLIN 133238 . 137868) ( +\TEDIT.SHOW.CHARLOOKS 137870 . 141415) (\TEDIT.APPLY.CHARLOOKS 141417 . 142578) ( +\TEDIT.OFFSETTYPE.STATEFN 142580 . 144543) (\TEDIT.OTHER.STATECHANGEFN 144545 . 146190) ( +\TEDIT.OTHER.SELECTFN 146192 . 148315)) (148379 177437 (\TEDIT.PAGEMENU.CREATE 148389 . 156901) ( +\TEDIT.PAGEMENU.START 156903 . 157254) (\TEDIT.SHOW.PAGELOOKS 157256 . 159142) (\TEDIT.PAGEMENU.FILLIN + 159144 . 160694) (\TEDIT.PAGEREGION.UNPARSE 160696 . 170095) (\TEDIT.APPLY.PAGELOOKS 170097 . 172024) + (\TEDIT.CHANGE.PAGELOOKS 172026 . 176593) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176595 . 177435)) ( +177438 183241 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177448 . 180260) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN +180262 . 181687) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181689 . 183239))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index 80237952a0d103483219113581ab5733a2c9bb61..7be47f74510f87eb3d857b460193e8ee87bc86e8 100644 GIT binary patch delta 2225 zcmZ`)-EZ4e6p!7mT?3OEx@_s%RYyhL(n-mD?Zi$p0dW#1_L|sM;?RbzQ_E73vTRL1 zCLv8zka*b}t1f%tWw3`KAt4}PLOgXs>ZFaAp*^692R6hbLi9i2*h!PLD^}~=bME!| z`u)zi+h6tF`?l})>`|T%7?(E!JjaKD@Ud_>CWxC?BEiTsxF`2)axqSfg{4V&e{JdV z%GKI(b*T(XAJx{@r(*OA^Vo&uYcQEEX0y=ySuhx!g!1ABo_*DxgeE7a-Tt(eRg!r{ zwv-g?b-EkT4gcu~kcc2eC5S00%?cz+uy*wdxMN9G)-y^WU>V>~>jgU$I{avSDrV-D zcQvC}2&B+3dMDAIRKqb6igDcL4L>6`|6*d}BO>HvO}7db29i5FtEDWJj!n!fJBJw8 zV7e?obFwj(9&+K+7^$=tZd+nm=E2~Cy{f+Py!!Ts)&9x}d^~c0TuvlYipo?@(9b3s zbzYD_%gGtVNSrtGhKYqD`xIPwuYyFP7*;-`=?OWH1>hi6Fq2u$G&MbwS2CKR0|}FZ zw1Qx3OGY|fP%Ok&tlRS3u1uo)JaM99#eo3`$L-yYNRZI1oNTsm0!i%bw>7+UKomR= z7ZFv>3Yz&T%spQ+WnBRxbk!X#5`h}v>Vk#HrFGzm2=w+@ugMbv9VLd? zQ<^ANE~V&}mev%k6nd~LB_~w{q9Hr>)*2xwV8Dv*0Nnf%7DwvygDw{n|G-Aj0o1cN zpsv`GPh~H)7F#+y-(Ka|i_THsR+ha`eciV;!@gJXZJlRJJtkP^VSHO!WmFw@`K5ix zlb-T=kqVf*!~^m|Nm@wPVh)-MA-@0kS!Qo&ZM*dI$izD#p#y=#re2#ZlbCG6DC((% zF$dvZ>*#KpezWas?nIsrF=_g9;;lpR$H?18^6$d~yweHv&zY&fJo@jel*?uL!Jw1> zkwbQ2Jd7)@R?3N%qz>4+$3D7~9-}kaF;*b7l0A7Y3YIcwVN!s(wfYLeA_9xuZrRL5 z;&z2lsB>J9nh&!q(C0HF<2J~hwwwmnbGsrA0G?s`wEAPc5`WEhKUa2?PLPhmE<2Aj zFpHKQMyo_oahG^GMK1>1)FmMa%shHg@>a=IY$9?3%xZedn6`d+AU@nbS>LkD0+8AVkEj*8tKPopMR7y*?M6QQH4BEA<(Ub?h8PdD#+>2IsoP?KK!*pYr;TXud+ z>l`CGhVHHdt{$!z@qKJVW1@6nBWe3`-#?9{tEKdDb#ebs?~8)A#_ z8l$oJ=lr)`?KjJG%^w-G$$8YZg?E7y0kV?dG-$)z1)hlZ1=ODO9b$&-2TfJN?HecJ zzH37`_@01VBA8JuEHmM;F*GHKqnO(}ccMu2_8kQx2f^N%6z)zf{LY@lc?+=!bpxlL z-tsnI-n=t23hw`5GCldr1f`ET#!Zc9qb&Go?U_34&MaQ8EKcL&+~Pogy?LDKPvWc_ Knzx^XhyDX3r7OVz delta 1422 zcmZuw+i%-s6p!6@OAQRF6v(zxPBVs*ie$dW_JG!ooyKh(2isknG7yDSOyaUCaD>Cx;^vE(!%oG{7e&O zo?mXSp4DJ+X{|N4I16)&kSUK>t8nmYp-{*`b9xQq|C>|9nwcDvE!$PAUeDY(c7n zcHrpsJ-;CB`*$r!Ij3^} zLMdQDpRhZ}H#tRyNC}Xrat#TW4n&O{bg-}=g!K<}C1KO1RSWF0ZFx|Pn=0w0iUpDo z;fiHMkYgO9uz#;$j0b^Be!6j6_{zXg>dEr4M1mTgP2k5wN6%wjm8D2XSLi2pg>8qv zxF=QV$K%lS_82`ie|vg+ly0=r+ji?@<*r1QJ3JSx9ZpJoXA&r^ffFY0sQm-{VTLh? z=fQBtYo_5&MsUgUPCC3t`=y&Q$Zw@bsAiZm|45Rv&guIan22sQn@#! zVz|PPX~&r2i-6tgriqk-TSt1VNn{y!-of0+a-`!Tfvg~}kr^Z&CxP!Gu-zJn#e)jF zA1(;t-wq8YYIYS8-$g|u9!O#FOVamtaxwrefmc)H({+PXu8dF&xpqY( zU%${zc0L#)-#j-+9=^(?&LLq`JhkC?)53uy>E1X)@ucU+6fJP%wGaDfPbZ&UeV|8% zy6)*!*B$ebG~fmD@y5O3M;mu0!#7`kYwSc0vV(B`JY+H`;pBfFA`jg<*%8Ukt$GrT T<(dx+>Ag8Y0~0RXl)C=`ZZdW0 diff --git a/library/tedit/TEDIT-SCREEN b/library/tedit/TEDIT-SCREEN index dbb6599df..c6bc2df16 100644 --- a/library/tedit/TEDIT-SCREEN +++ b/library/tedit/TEDIT-SCREEN @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Aug-2025 12:51:00" {WMEDLEY}tedit>TEDIT-SCREEN.;909 186327 +(FILECREATED "19-Oct-2025 00:07:29" {WMEDLEY}TEDIT>TEDIT-SCREEN.;910 186445 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-SCREENCOMS) - (FNS \TEDIT.FORMATLINE) + :CHANGES-TO (FNS \TEDIT.FORMATLINE.HORIZONTAL) - :PREVIOUS-DATE "28-Jul-2025 23:23:33" {WMEDLEY}tedit>TEDIT-SCREEN.;908) + :PREVIOUS-DATE " 7-Aug-2025 12:51:00" {WMEDLEY}TEDIT>TEDIT-SCREEN.;909) (PRETTYCOMPRINT TEDIT-SCREENCOMS) @@ -1294,7 +1293,8 @@ IMAGESTREAM]) (\TEDIT.FORMATLINE.HORIZONTAL - [LAMBDA (LINE THISLINE PREVSP SPACELEFT OVERHANG LINETYPE) (* ; "Edited 29-May-2025 15:15 by rmk") + [LAMBDA (LINE THISLINE PREVSP SPACELEFT OVERHANG LINETYPE) (* ; "Edited 18-Oct-2025 20:05 by rmk") + (* ; "Edited 29-May-2025 15:15 by rmk") (* ; "Edited 19-Feb-2025 13:35 by rmk") (* ; "Edited 8-Feb-2025 23:37 by rmk") (* ; "Edited 15-Mar-2024 19:35 by rmk") @@ -1318,6 +1318,8 @@ (* ;; "") + (SETQ SPACELEFT (MAX SPACELEFT 0)) + (* ;; "Also for HARDCOPYDISPLAY the horizontal positions (margins and character widths) are in hardcopy units. At the end we scale them back to screen points. ") (LET* ((PARALOOKS (FGETLD LINE LPARALOOKS)) @@ -2861,21 +2863,21 @@ (\TEDIT.LINE.TALLP LINE PHEIGHT))))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (26256 28472 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26266 . 28470)) (35926 119762 ( -\TEDIT.FORMATLINE 35936 . 71423) (\TEDIT.FORMATLINE.SETUP.PARA 71425 . 76591) ( -\TEDIT.FORMATLINE.HORIZONTAL 76593 . 81261) (\TEDIT.FORMATLINE.VERTICAL 81263 . 83714) ( -\TEDIT.FORMATLINE.JUSTIFY 83716 . 89737) (\TEDIT.FORMATLINE.TABS 89739 . 97767) (\TEDIT.SCALE.TABS -97769 . 98560) (\TEDIT.FORMATLINE.PURGE.SPACES 98562 . 99989) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN -99991 . 101068) (\TEDIT.FORMATLINE.EMPTY 101070 . 105890) (\TEDIT.FORMATLINE.UPDATELOOKS 105892 . -112073) (\TEDIT.FORMATLINE.LASTLEGAL 112075 . 115525) (\TEDIT.LINES.ABOVE 115527 . 119138) ( -\TEDIT.CHNO.TO.YTOP 119140 . 119760)) (120039 140619 (\TEDIT.DISPLAYLINE 120049 . 132559) ( -\TEDIT.DISPLAYLINE.TABS 132561 . 135365) (\TEDIT.LINECACHE 135367 . 136095) (\TEDIT.CREATE.LINECACHE -136097 . 136933) (\TEDIT.BLTCHAR 136935 . 139562) (\TEDIT.DIACRITIC.SHIFT 139564 . 140617)) (141234 -186304 (\TEDIT.BACKFORMAT 141244 . 143798) (\TEDIT.PREVIOUS.LINEBREAK 143800 . 146603) ( -\TEDIT.UPDATE.LINES 146605 . 152320) (\TEDIT.PANE.CREATELINES 152322 . 154612) ( -\TEDIT.SUFFIXLINE.CREATE 154614 . 156229) (\TEDIT.LINES.BELOW 156231 . 160841) (\TEDIT.MEASURED.LINES -160843 . 162852) (\TEDIT.VALID.LASTCHNOS 162854 . 166630) (\TEDIT.VALID.NEXTCHNOS 166632 . 170106) ( -\TEDIT.LASTVALIDLINE 170108 . 174779) (\TEDIT.NEXTVALIDLINE 174781 . 177751) ( -\TEDIT.CLEARPANE.BELOW.LINE 177753 . 179859) (\TEDIT.INSERTLINE 179861 . 181247) (\TEDIT.LINE.BOTTOM -181249 . 184479) (\TEDIT.SHOW.AT.BOTTOMP 184481 . 185591) (\TEDIT.SHOW.AT.TOPP 185593 . 186302))))) + (FILEMAP (NIL (26225 28441 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26235 . 28439)) (35895 119880 ( +\TEDIT.FORMATLINE 35905 . 71392) (\TEDIT.FORMATLINE.SETUP.PARA 71394 . 76560) ( +\TEDIT.FORMATLINE.HORIZONTAL 76562 . 81379) (\TEDIT.FORMATLINE.VERTICAL 81381 . 83832) ( +\TEDIT.FORMATLINE.JUSTIFY 83834 . 89855) (\TEDIT.FORMATLINE.TABS 89857 . 97885) (\TEDIT.SCALE.TABS +97887 . 98678) (\TEDIT.FORMATLINE.PURGE.SPACES 98680 . 100107) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN +100109 . 101186) (\TEDIT.FORMATLINE.EMPTY 101188 . 106008) (\TEDIT.FORMATLINE.UPDATELOOKS 106010 . +112191) (\TEDIT.FORMATLINE.LASTLEGAL 112193 . 115643) (\TEDIT.LINES.ABOVE 115645 . 119256) ( +\TEDIT.CHNO.TO.YTOP 119258 . 119878)) (120157 140737 (\TEDIT.DISPLAYLINE 120167 . 132677) ( +\TEDIT.DISPLAYLINE.TABS 132679 . 135483) (\TEDIT.LINECACHE 135485 . 136213) (\TEDIT.CREATE.LINECACHE +136215 . 137051) (\TEDIT.BLTCHAR 137053 . 139680) (\TEDIT.DIACRITIC.SHIFT 139682 . 140735)) (141352 +186422 (\TEDIT.BACKFORMAT 141362 . 143916) (\TEDIT.PREVIOUS.LINEBREAK 143918 . 146721) ( +\TEDIT.UPDATE.LINES 146723 . 152438) (\TEDIT.PANE.CREATELINES 152440 . 154730) ( +\TEDIT.SUFFIXLINE.CREATE 154732 . 156347) (\TEDIT.LINES.BELOW 156349 . 160959) (\TEDIT.MEASURED.LINES +160961 . 162970) (\TEDIT.VALID.LASTCHNOS 162972 . 166748) (\TEDIT.VALID.NEXTCHNOS 166750 . 170224) ( +\TEDIT.LASTVALIDLINE 170226 . 174897) (\TEDIT.NEXTVALIDLINE 174899 . 177869) ( +\TEDIT.CLEARPANE.BELOW.LINE 177871 . 179977) (\TEDIT.INSERTLINE 179979 . 181365) (\TEDIT.LINE.BOTTOM +181367 . 184597) (\TEDIT.SHOW.AT.BOTTOMP 184599 . 185709) (\TEDIT.SHOW.AT.TOPP 185711 . 186420))))) STOP diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM index 904473e7e4aaed7f712d94ca64577ae9dab4bbba..12e95a867959d5aea4b274c4a4d6f6eaddce420e 100644 GIT binary patch delta 757 zcmaix&2G~`6ouO?K)9-eRExrb>f#2J0JdiAnfM1($=H)-z{JLODCq_zZ5HVdRH2Ii zLS@+{(X3hU40#B4yaGHz5ih``HB#DCVl%orbM8Ig-1&A~`hHycvY}#EkGBqW6PXkc z@{sMB?r66h<}Bp-+UcohLCRRuc;sSK1x3U5REz6T+ap+m?x45zcK@Ki*V~5P@L=%n zt|wj$SC0B`K&!W+2&UT%!_Yw4?i@<z<2ef>*8cQ( zuiqVX2Jg>^r?@KxIAEtn2nBEQF8xUx2K&39ctOK&uCq+fV{v=9EPgI6T(5$cr0gY+ zTbUlpaIrXl^S<)`q|+eej!)*-Ru&(sb8}aMoj;@C^G!Xg$Mt;!d79%sPIs6qTVSHNBmZo#Mj}~Be^L`Oo(`sg-m`GPx3egYSm^WbJm4t zUC4%jHFK8AwG-F6IE6U&Iq8-RBQ`y!O{AJDI;-l9l&?2(upA0`gJ%;+uxuhmtIHKk zXSy(PE)KF?@nKW5YZw}S8U}IF4tbVDej6+bPg_~e>s*qW4kUi+M{)ctlN*tj79fL) PUu9K1K-b1u`N!+Ol=aD7 delta 752 zcmZ`%%Wl&^6m6oe0&Hj^Hh`|23X+AbdH4;AWX0oViW6HiPD83ns1SrA!b4TMs1Q`_ zx&+M^@D1S~*zpbg2OFlX5or^4cg{U`&N+AH$658;S@p}P4xSkuzcL9T4qy^GI3&*3 z*W0J_my_wdQ?Qs9rtAvF2G*kh1#PGqS4L2XX-KdE^B3>lyq`Us!1OH`$uLb}nP*v+ z0h2?0E3BEP*l5>U2~U|;inJ)~TxDGtL&$&+qdtpMHvaf{Hhq3{cy!YFk5RzBONpmG zRqo2YNJv*}|0qeUs4dybiYBAyqS0Ec)h5T+_>)=#f7?ZAgF8x&0FecQf$ea!a! z707j0A+!QH7zE$x6+k@~iXNBe%5aam&c73NmReYc8}2vN_k-KqT@wjTEDIT>TEDIT-WINDOW.;867 229880 +(FILECREATED "19-Oct-2025 15:13:01" {WMEDLEY}TEDIT>TEDIT-WINDOW.;872 231244 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.SPLITW) + :CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP \TEDIT.WINDOW.GETREGION) - :PREVIOUS-DATE "18-Sep-2025 23:09:24" {WMEDLEY}TEDIT>TEDIT-WINDOW.;864) + :PREVIOUS-DATE " 5-Oct-2025 10:56:19" {WMEDLEY}TEDIT>TEDIT-WINDOW.;867) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -462,56 +462,85 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 14-Apr-2025 00:05 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 19-Oct-2025 01:05 by rmk") + (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") (* ; "Edited 24-Mar-2025 11:29 by rmk") (* ; "Edited 18-Mar-2025 21:52 by rmk") (* ; "Edited 19-Feb-2025 16:48 by rmk") (* ; "Edited 18-Feb-2025 10:09 by rmk") (LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) - WIDTH HEIGHT) + [WIDTHOVERHEAD (IPLUS \TEDIT.LINEREGION.WIDTH (TIMES 2 WBorder) + (if (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE) + then 0 + elseif (ILEQ \TEDIT.OP.WIDTH 0) + then + (* ;; "On both sides, for symmetry") + + \TEDIT.LINEREGION.WIDTH + else + (* ;; + "36 to allow for some spacing between the text and the OPS area on the right.") + + (IPLUS \TEDIT.OP.WIDTH 36] + [HEIGHTOVERHEAD (IPLUS PHEIGHT (ADD1 (TIMES 2 WBorder)) + (FONTPROP WindowTitleDisplayStream 'HEIGHT] + WIDTH HEIGHT TEXTLEN) + (SETQ TEXTLEN (TEXTLEN TEXTOBJ)) (CLRPROMPT) (* ; "System promptwindow") (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") " window region") (CL:WHEN (TXTFILE TSTREAM) (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) (TERPRI PROMPTWINDOW) - (if (IGREATERP (TEXTLEN TEXTOBJ) - 0) - then - (* ;; "Explict user properties covers content") - - [SETQ WIDTH (OR (GETTEXTPROP TEXTOBJ 'OPENWIDTH) - (for PARALOOKS in (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST) - largest (GETPLOOKS PARALOOKS RIGHTMAR) - finally (CL:UNLESS (AND $$EXTREME (IGREATERP $$EXTREME 0)) - (SETQ $$EXTREME (TIMES 6 PTSPERINCH))) - (RETURN $$EXTREME] - - (* ;; "Allow for extra stuff. 36 to allow for some spacing.") - - [add WIDTH (IPLUS \TEDIT.LINEREGION.WIDTH (ADD1 (TIMES 2 WBorder) - 1) - (CL:IF (FGETTOBJ TEXTOBJ TXTNOTSPLITTABLE) - 0 - (CL:IF (EQ 0 \TEDIT.OP.WIDTH) - \TEDIT.LINEREGION.WIDTH - (IPLUS \TEDIT.OP.WIDTH 36)))] - [SETQ HEIGHT (if (GETTEXTPROP TEXTOBJ 'OPENHEIGHT) - elseif (ZEROP (TEXTLEN TEXTOBJ)) - then 50 - else (for I L (TEXTLEN _ (TEXTLEN TEXTOBJ)) - (CHNO _ 1) from 1 to 20 while (ILEQ CHNO TEXTLEN) - sum (SETQ L (\TEDIT.FORMATLINE TSTREAM CHNO)) - (SETQ CHNO (FGETLD L LCHARLIM)) - (FGETLD L LHEIGHT) - finally (RETURN (IPLUS $$VAL PHEIGHT (ADD1 (TIMES 2 WBorder) - ) - (FONTPROP WindowTitleDisplayStream - 'HEIGHT] + + (* ;; "Explict properties cover content") + + [SETQ WIDTH (OR (GETTEXTPROP TEXTOBJ 'OPENWIDTH) + (for PARALOOKS in (FGETTOBJ TEXTOBJ TXTPARALOOKSLIST) + when (IGREATERP (GETPLOOKS PARALOOKS RIGHTMAR) + 0) largest (GETPLOOKS PARALOOKS RIGHTMAR) + finally (RETURN $$EXTREME] + (SETQ HEIGHT (GETTEXTPROP TEXTOBJ 'OPENHEIGHT)) + + (* ;; "If still no WIDTH or HEIGHT, look at the first 20 lines") + + (CL:UNLESS (AND HEIGHT WIDTH) + (for I L (REG _ (CREATEREGION 0 0 (IDIFFERENCE SCREENWIDTH WIDTHOVERHEAD) + (IDIFFERENCE SCREENHEIGHT HEIGHTOVERHEAD))) + (W _ 0) + (H _ 0) + (CHNO _ 1) from 1 to 20 while (ILEQ CHNO TEXTLEN) + do + (* ;; + "But we start by saying that the right margin is infinite, so we can find the true width") + + (SETQ L (\TEDIT.FORMATLINE TSTREAM CHNO NIL REG)) + (SETQ CHNO (FGETLD L LCHARLIM)) + (add H (FGETLD L LHEIGHT)) + (CL:UNLESS WIDTH + (CL:WHEN (EQ 'LEFT (FGETPLOOKS (FGETLD L LPARALOOKS) + QUAD)) + + (* ;; + "JUSTIFIED, RIGHT and CENTERED involve right margin, which we don't know") + + (SETQ W (IMAX W (FGETLD L LXLIM))))) + finally (CL:UNLESS (OR WIDTH (EQ W 0)) (* ; "Maybe no lefts?") + (SETQ WIDTH W)) + (CL:UNLESS (OR HEIGHT (EQ H 0)) + (SETQ HEIGHT H)))) + + (* ;; "Allow for the extra stuff") + + (if (AND WIDTH HEIGHT) + then (add WIDTH WIDTHOVERHEAD) + (add HEIGHT HEIGHTOVERHEAD) (GETBOXREGION WIDTH HEIGHT) - else (GETREGION (IMAX 200 (ADD1 (TIMES 2 WBorder))) - (IMAX 100 (ADD1 (TIMES 2 WBorder]) + else (GETREGION (IPLUS (OR WIDTH 200) + WIDTHOVERHEAD) + (IPLUS (OR HEIGHT 100) + HEIGHTOVERHEAD]) (\TEDIT.WINDOW.SETUP [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 6-May-2025 11:44 by rmk") @@ -576,7 +605,8 @@ (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE]) (\TEDIT.MINIMAL.WINDOW.SETUP - [LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 20-Apr-2025 15:19 by rmk") + [LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 19-Oct-2025 14:55 by rmk") + (* ; "Edited 20-Apr-2025 15:19 by rmk") (* ; "Edited 30-Nov-2024 13:32 by rmk") (* ; "Edited 4-Nov-2024 19:46 by rmk") (* ; "Edited 26-Oct-2024 11:10 by rmk") @@ -677,6 +707,11 @@ (WINDOWADDPROP PANEWINDOW 'CLOSEFN (FUNCTION TEDIT.DEACTIVATE.WINDOW) T) + + (* ;; "Possible the only WINDOWPROPS client is the MARGINBAR in the paragraph menu") + + (for PTAIL on (GETTEXTPROP TSTREAM 'WINDOWPROPS) do (WINDOWPROP PANEWINDOW (CAR PTAIL) + (CADR PTAIL))) PANEWINDOW]) (\TEDIT.CLEARPANE @@ -3624,36 +3659,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17093 17989 (TEDIT.DEFER.UPDATES 17103 . 17987)) (17990 43935 (\TEDIT.WINDOW.CREATE -18000 . 25330) (\TEDIT.WINDOW.GETREGION 25332 . 28822) (\TEDIT.WINDOW.SETUP 28824 . 33154) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33156 . 40567) (\TEDIT.CLEARPANE 40569 . 41286) (\TEDIT.FILL.PANES 41288 - . 43933)) (43936 67637 (\TEDIT.CURSORMOVEDFN 43946 . 49556) (\TEDIT.CURSOROUTFN 49558 . 50246) ( -\TEDIT.ACTIVE.WINDOWP 50248 . 51318) (\TEDIT.EXPANDFN 51320 . 51883) (\TEDIT.MAINW 51885 . 53165) ( -\TEDIT.MAINSTREAM 53167 . 53501) (\TEDIT.PRIMARYPANE 53503 . 54273) (\TEDIT.PANELIST 54275 . 54771) ( -\TEDIT.NEWREGIONFN 54773 . 57289) (\TEDIT.SET.WINDOW.EXTENT 57291 . 62273) (\TEDIT.SHRINK.ICONCREATE -62275 . 65008) (\TEDIT.SHRINKFN 65010 . 65419) (\TEDIT.PANEREGION 65421 . 67635)) (67669 100715 ( -\TEDIT.BUTTONEVENTFN 67679 . 80652) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80654 . 87917) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 87919 . 89761) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89763 . 93433) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 93435 . 95865) (\TEDIT.BUTTONEVENTFN.INTITLE 95867 . 97702) ( -\TEDIT.COPYINSERTFN 97704 . 98836) (\TEDIT.FOREIGN.COPY 98838 . 100713)) (100716 118279 ( -\TEDIT.PANE.SPLIT 100726 . 104674) (\TEDIT.SPLITW 104676 . 112735) (\TEDIT.UNSPLITW 112737 . 116936) ( -\TEDIT.LINKPANES 116938 . 117701) (\TEDIT.UNLINKPANE 117703 . 118277)) (119713 120604 (TEDITWINDOWP -119723 . 120602)) (120641 123744 (TEDIT.GETINPUT 120651 . 123094) (\TEDIT.MAKEFILENAME 123096 . 123742 -)) (123793 131443 (TEDIT.PROMPTWINDOW 123803 . 124117) (TEDIT.PROMPTPRINT 124119 . 126746) ( -TEDIT.PROMPTCLEAR 126748 . 128490) (TEDIT.PROMPTFLASH 128492 . 129750) (\TEDIT.PROMPT.PAGEFULLFN -129752 . 131441)) (131681 142259 (\TEDIT.FILENAME 131691 . 132463) (\TEDIT.DEFAULT.TITLE 132465 . -134844) (\TEDIT.WINDOW.TITLE 134846 . 137015) (\TEDIT.LIKELY.FILENAME 137017 . 139741) ( -\TEDIT.UPDATE.TITLE 139743 . 142257)) (142302 154786 (TEDIT.DEACTIVATE.WINDOW 142312 . 147885) ( -\TEDIT.RESHAPEFN 147887 . 149972) (\TEDIT.REPAINTFN 149974 . 150198) (\TEDIT.CLOSESPLITS 150200 . -152645) (\TEDIT.CLOSEPANE 152647 . 154784)) (154787 197586 (\TEDIT.SCROLLFN 154797 . 157028) ( -\TEDIT.SCROLLCH.TOP 157030 . 159141) (\TEDIT.SCROLLCH.BOTTOM 159143 . 163473) (\TEDIT.SCROLLUP 163475 - . 169201) (\TEDIT.TOPLINE.YTOP 169203 . 170872) (\TEDIT.SCROLLDOWN 170874 . 177913) ( -\TEDIT.SCROLL.CARET 177915 . 180753) (\TEDIT.VISIBLECARETP 180755 . 183049) (\TEDIT.VISIBLECHARP -183051 . 184142) (\TEDIT.BITMAPLINES 184144 . 188064) (\TEDIT.SETPANE.TOPLINE 188066 . 188678) ( -\TEDIT.SHIFTLINES 188680 . 197584)) (197587 208456 (\TEDIT.ONSCREEN? 197597 . 202148) ( -\TEDIT.ONSCREEN.REGION 202150 . 205801) (\TEDIT.AFTERMOVEFN 205803 . 206700) (OFFSCREENP 206702 . -208454)) (208498 211312 (\TEDIT.PROCIDLEFN 208508 . 210168) (\TEDIT.PROCENTRYFN 210170 . 210615) ( -\TEDIT.PROCEXITFN 210617 . 211310)) (211391 224616 (\TEDIT.DOWNCARET 211401 . 212194) ( -\TEDIT.FLASHCARET 212196 . 214307) (\TEDIT.UPCARET 214309 . 215413) (TEDIT.NORMALIZECARET 215415 . -218633) (\TEDIT.SETCARET 218635 . 223986) (\TEDIT.CARET 223988 . 224614))))) + (FILEMAP (NIL (17131 18027 (TEDIT.DEFER.UPDATES 17141 . 18025)) (18028 45299 (\TEDIT.WINDOW.CREATE +18038 . 25368) (\TEDIT.WINDOW.GETREGION 25370 . 29786) (\TEDIT.WINDOW.SETUP 29788 . 34118) ( +\TEDIT.MINIMAL.WINDOW.SETUP 34120 . 41931) (\TEDIT.CLEARPANE 41933 . 42650) (\TEDIT.FILL.PANES 42652 + . 45297)) (45300 69001 (\TEDIT.CURSORMOVEDFN 45310 . 50920) (\TEDIT.CURSOROUTFN 50922 . 51610) ( +\TEDIT.ACTIVE.WINDOWP 51612 . 52682) (\TEDIT.EXPANDFN 52684 . 53247) (\TEDIT.MAINW 53249 . 54529) ( +\TEDIT.MAINSTREAM 54531 . 54865) (\TEDIT.PRIMARYPANE 54867 . 55637) (\TEDIT.PANELIST 55639 . 56135) ( +\TEDIT.NEWREGIONFN 56137 . 58653) (\TEDIT.SET.WINDOW.EXTENT 58655 . 63637) (\TEDIT.SHRINK.ICONCREATE +63639 . 66372) (\TEDIT.SHRINKFN 66374 . 66783) (\TEDIT.PANEREGION 66785 . 68999)) (69033 102079 ( +\TEDIT.BUTTONEVENTFN 69043 . 82016) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82018 . 89281) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 89283 . 91125) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91127 . 94797) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94799 . 97229) (\TEDIT.BUTTONEVENTFN.INTITLE 97231 . 99066) ( +\TEDIT.COPYINSERTFN 99068 . 100200) (\TEDIT.FOREIGN.COPY 100202 . 102077)) (102080 119643 ( +\TEDIT.PANE.SPLIT 102090 . 106038) (\TEDIT.SPLITW 106040 . 114099) (\TEDIT.UNSPLITW 114101 . 118300) ( +\TEDIT.LINKPANES 118302 . 119065) (\TEDIT.UNLINKPANE 119067 . 119641)) (121077 121968 (TEDITWINDOWP +121087 . 121966)) (122005 125108 (TEDIT.GETINPUT 122015 . 124458) (\TEDIT.MAKEFILENAME 124460 . 125106 +)) (125157 132807 (TEDIT.PROMPTWINDOW 125167 . 125481) (TEDIT.PROMPTPRINT 125483 . 128110) ( +TEDIT.PROMPTCLEAR 128112 . 129854) (TEDIT.PROMPTFLASH 129856 . 131114) (\TEDIT.PROMPT.PAGEFULLFN +131116 . 132805)) (133045 143623 (\TEDIT.FILENAME 133055 . 133827) (\TEDIT.DEFAULT.TITLE 133829 . +136208) (\TEDIT.WINDOW.TITLE 136210 . 138379) (\TEDIT.LIKELY.FILENAME 138381 . 141105) ( +\TEDIT.UPDATE.TITLE 141107 . 143621)) (143666 156150 (TEDIT.DEACTIVATE.WINDOW 143676 . 149249) ( +\TEDIT.RESHAPEFN 149251 . 151336) (\TEDIT.REPAINTFN 151338 . 151562) (\TEDIT.CLOSESPLITS 151564 . +154009) (\TEDIT.CLOSEPANE 154011 . 156148)) (156151 198950 (\TEDIT.SCROLLFN 156161 . 158392) ( +\TEDIT.SCROLLCH.TOP 158394 . 160505) (\TEDIT.SCROLLCH.BOTTOM 160507 . 164837) (\TEDIT.SCROLLUP 164839 + . 170565) (\TEDIT.TOPLINE.YTOP 170567 . 172236) (\TEDIT.SCROLLDOWN 172238 . 179277) ( +\TEDIT.SCROLL.CARET 179279 . 182117) (\TEDIT.VISIBLECARETP 182119 . 184413) (\TEDIT.VISIBLECHARP +184415 . 185506) (\TEDIT.BITMAPLINES 185508 . 189428) (\TEDIT.SETPANE.TOPLINE 189430 . 190042) ( +\TEDIT.SHIFTLINES 190044 . 198948)) (198951 209820 (\TEDIT.ONSCREEN? 198961 . 203512) ( +\TEDIT.ONSCREEN.REGION 203514 . 207165) (\TEDIT.AFTERMOVEFN 207167 . 208064) (OFFSCREENP 208066 . +209818)) (209862 212676 (\TEDIT.PROCIDLEFN 209872 . 211532) (\TEDIT.PROCENTRYFN 211534 . 211979) ( +\TEDIT.PROCEXITFN 211981 . 212674)) (212755 225980 (\TEDIT.DOWNCARET 212765 . 213558) ( +\TEDIT.FLASHCARET 213560 . 215671) (\TEDIT.UPCARET 215673 . 216777) (TEDIT.NORMALIZECARET 216779 . +219997) (\TEDIT.SETCARET 219999 . 225350) (\TEDIT.CARET 225352 . 225978))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index e1030af505dabadd960c015bff184515ada29087..1b7b2c78d45ea993554128b088228e758841c45e 100644 GIT binary patch delta 4332 zcmZu!Yit}>72ZdhCT?o{Sew{!&8=&ZSi;V{XV-nmB*t>H#v$I*dHFex>+WL_= zaxF#u!&XJ&DM6b7A=F4f5d>92#9jQWX;ZMR3ap%MQK`0ysm}TbHhEo-UKM%VaEF%w|ce-PF|77%8t} zSMq<>tHRhs*O|1HHIt5M;H6|>OiVQ2BC6A(JS~Xcli`Wux^u_^q_lRqymi%G+u6LBT6_7*=ISejo$ZUOmnKN~_r1|j zbmnLXzx|UJ*kdzN8vETrY5bSd!us8})^84QZF&9Pk86DN+UEGd!7R7hI5;SM_BdPg z!SSwx-sI8De&qAsH@m)2d66l**xz1HW`D6)?4sS#y(_e@@0m<-Fs(s;RYSXndtDl*&B3(jYe+uFTAxIx|YS? z*A}ch&t&KCEH7j${M9|-l^*|QN7nDXGeYaaN~}ivzD;Aa?~`xQ*h*iGc1Kpacke$p zLq}htC;7`)$o|QVgO$-59ie3Z#GRFq+Cud+7@pbh;TO33Jvt2W*!yMs-VbW_%5aSi zZroWJ+`V5|*sC1b{J=WM?j6}I&mZ__37t^@tU1#K7A$HLIU$o}4*#h%b#jKAwQQ5f zvdnB|>0)3eX$j(Ewyuy9%z}X??@+)4sA`i1fw&dZ$vYNskRW*4B2uM&m8j{&HD-ZX zxo#nA#9ee*jsUnqT?;7tJ0#R#5En=?i|uJH?-ETVX==Ov36Wxogj_Jw6_>~=7Bp}! zD^iOjX%Z=5jcEsXmtgEGeAG*_LTJ7@EofZyCq;e~_IjT;a7}i|R>gC=LfB1gBZu4I zZSB(vQn1Y)+|;fRnB!V@OfZME$RLN`{9$MS#|&af^Hag;BsTLn?t@4hIrs#0Ad@lj z!qztaMM=Q_Ri2P!`{IjhTbH2}6f)*ALL4J;wK~%+9zCX!ylYrl;%&vwJ))D@#iZew zF7i1}mif>D2~CjbQxAH7jLi*~x_KV=Rn@6TfYfQC?Z%xDsusb~tK*1kp-$+Be^ijEmTLj(JD z*Z|Qqo%Yd|Cz{atVl@uew{5HHh<>|9RY;{nB?DCLM$)0Jf#Y@?g#oK=m2&95irTp| z%chi<9Pf)rx@U~X9u?vwRmdY_018Gf5+VhKpO!?@74Kg|r%)oGb6A1N8P1#qvqL*e z;DZjj>3q3_6mLJWB!K(ADpt`ojo4<%CqkwNYXs@%n1zgy=f8OIy+R+RGnB! zYBPHkEkH0-g!;*VMVigBY4A`}Ku{Y%C29gb_FskcNLnedtPQOcc+a$5XNhUzNCDr@ zNV}$!qu#S4tV0Q;^L!a-yWzOJVc9NQiOhA(hNLtcm!$b6B$erKD`a!K0u?LRD`Pk* zHpiHkZHO!nRA(DHvF^==F$|IXts?p`@%F$VQ4$*AaGfo>F87}jSJ~8)L_rnuwdQ$T z9dA=mD1&n(i%x+$wCJmG-d0(az1JT(S&0YQ9GWNw3I#v`K1{|v1)=}}EfP!H#+)42 zTO}}H%bbRC+O&iZTO>HDUi*b1q&@RHk$@mp`IAO6V-nVM&WsL@NW6dZD+rNLGFZ&b zLIKU3THPM~%0%RgA@9F)%MZQHX`NHQ_w~%9L!t)cT4@&)Zs!SdYr$ONWAApRC?X&> z>ow3igPT~W{4P{P50Nun1BD1ZEYu|7N4fff_0?$cI%-5@W?!h%nf<4#^9Fz2{?xVI z(3hI8ufEbUzSJ^aZ5bDvWAAz{R}ocqQ+xuTMry3qG^qebvs{mFZcFDnnu-sw~YUJ%v;Ng`tYpZJ%4WR;aNV*PxAEM1N}Fj;23ywocB-|;YC|QYl*ONzZ6{d9VG=&^eG1YtV(hVfWBqVK@bT0 z)Z=}eBp_J4sRABAe67(Jk^R`fN|~6`l&0^O5XN{@d|(kWI4q zz5x^wN#6nnJ>GF_ys&QT%{yvELKAwfNZExz0x4>rMslOkJX{_mblQioA%ayb*UU}& zEvwFGa?$0$;;nO?nHc1noFd{Aljo~Aj*82VOK^@uyTc>QteP%tuSG+@2zl?`dQ86F zj5y%%jW+4krc`~oIrdiHyAl=AnSq3(=)1j--Wx#@^KX{c)J1LUOy)y2Abr72aLPdAND_u{MsKhTBa-VyQMWcV4>|3SRGyy%X=w-OSAT5h6_Jn#%Sj zaotD-39${R5(uHT3`9a8p&~#${y1IyCnVX5UojM^Riny9h)1NVAoYi%B7USo;=42Z znsueB{^6Z-?zv~~J?A^$IrE!;bv*ia$4hfjqKvYqu8mTGDnt~<6?L2nFRz|-wQzq~ z)ka8Hj7UujO2;hLwQiV&F$3`J|Q1GB#sFq9mgm(;0`alQ|>pWZb1LZCoL9lULV^OY3Bch$@*| zzEZsUoU?qbw3J?ccCB>jYxcGErAwDbNchzwkx<9P-Vpw_27AtTx+fp|MtLi;^6+Oj zLmy_I=K3!FZ}V7YYraQ3V0LUi$+~Z_?&8YBUsOwbOPRNO7m8ovCZ)*S@wZpEw=;hn z7glyEr&czU@Zw?L^`6DvD(n6s>t)>^{DAc?c2~{F7dJM&eZ`fX8&&V=o28T6+xHjB zt?#{@*@}Dt?#|70c5I$4MOPuOuJrUDW>MDrK}BPOY~W!C*-?iIni9Nj6_sXbCdKOb2-3D3BDH zT%5X~TP#l`if12^Q_RXGovdN%glck`JLHMab2Cvb_$$a7wWkoBdfm#4HixDbR!bilt?&td1<0_e)PbDqgL0M_!qW5Sats|skc(41b{^`M44@*6faHeQP zqt)Kx+~MfKYH_x5VBmJ7JOR9DK!|_;WIB!Wp`tapU8BU?H8O42P}H>-$A%v;M7~f9 zuIE{eCpap6vx4o8O8fd%jka5naa}~v;keQsVN%( z*Udaph4w=zaU>?NMNxsuphlsj+@_M$b|bpWwb1Tb=70~lmUrD(R@yyFvOv=Aw_fOp zNYp)lGa8cwm89)FppW$Ox~9k)6tya*8g(BH4VM+JvpE0elGd~Vvt6#KA`*XBjS%Rr zdr@A+fiqJt6PFf@hAomGMpU)@FG~Xss(iEszH?T9{p&4#~e$y0i5#K>t zcW)d!(xVZ_KtIdrW&yTpTy~$a`XZ|4u36DNs;Uw9#n+FPRn(-BVkS2MN!1^vc;js; zi)FKXnMwrEs|m~o#i)F5<;zPbkngGxCRVevrA5aSaYm6>sg{K zYYJahTLP9(8m7ZHqf#xsA<2z^rC5Fem7`mp6{z<5p=oClIgxNL{keYt4>Ix4H(78TFIsY3;!9_V41)8u`YbLA&oY8ryJo6j+00@E zUyY-+%D}7p=AZh@GDzNE$gx?Sr(OmefC5gcd7H?{bBn|)v9Tt_(PEks0@)&|VylFR zwXC6+*2-iU0~J;fWkNw9yfvnhsSNs~Ox=H+jvlAzCcH=boR0p(I~_~uwoSx@RC)2! z-yVtlw$nXoT$C!ZH(hwcjL*+>kMZEagVH{uwC~+_Zmphs@AmJrnVCPlyR!50%JZwe zD?9G<#uG6Vvz;-f9P}zMo5+iDMql8~3DGX(CUwibWfW3iGn4o4EJiIq&;E2KB9t&q z5>ZB5MULSDRmmSXG_y(Dfjiql1F1}$`%XvsKb@gaWMWJB{>{)YC$`Sw=ch^Uyjx>< z{!8=xkX{c+cLUPKC%$gw>)0|D3N_vIe0+$Go4GOtb9yyKsN_u`exLBV4@GCFr38cO zM^Ks;99fWNMA~aH;L1LuFR7_P?#-w0%5dB7?xTj3><-e#z!3VxK@%UIs?eLzh=Vz?;Z+;I(lAv%>5@jS`O=8a!Zk&ANkm* z-VBS)v{jV0+~2)pdPp~0ke+KGePst@{#*M)`12?5(jL?R;8pGEKG@>*zjdz@p^%5j z#ewQ#w8{oN-)w+8Up!o0WryFxppWSugMO5C*9!{c`=2sl9_b; zaK6C24-XC1WuA731Oi3VElWUM;~GAkZG3&iiQ(wEQ9mM}wt6v8lw*^rDZt*8L@=dK zaG<;()J2Ta-oa2PwDo<*dCRhiR%1kblms?b{%5T(cZ7R8-Syii%I`O^2yp%_AiYt? zW(}Gj&s=cv<4?3{kJl3J-CpaUn#db$nNU!Dt)22=W-Qojd9d1Y4_;~00DD0V=Nrda zXkc1I8x7DED9HOLN_`$}4)lQFwXFklyYTc8aB)Apvs$M3I%{MXEvoU1Iji1P;g759 oqBos1MU+x~lZbZRVkrV2J|fVU1BvAs_gL{rTgoeM+`XXuAA2hE00000 From 8bce8f4122c9505c174136d5f1be137bf3706a47 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 23 Oct 2025 20:15:37 -0700 Subject: [PATCH 2/6] Put upper bound on recycled Tedit window region --- library/tedit/TEDIT-WINDOW | 120 +++++++++++++++----------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62506 -> 62534 bytes lispusers/REGIONMANAGER | 46 +++++++----- lispusers/REGIONMANAGER.LCOM | Bin 9858 -> 10020 bytes lispusers/REGIONMANAGER.TEDIT | 29 ++++---- 5 files changed, 99 insertions(+), 96 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index 729828491..4ab8489a9 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Oct-2025 15:13:01" {WMEDLEY}TEDIT>TEDIT-WINDOW.;872 231244 +(FILECREATED "23-Oct-2025 18:22:32" {WMEDLEY}TEDIT>TEDIT-WINDOW.;873 230511 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP \TEDIT.WINDOW.GETREGION) + :CHANGES-TO (FNS \TEDIT.WINDOW.CREATE \TEDIT.WINDOW.GETREGION) - :PREVIOUS-DATE " 5-Oct-2025 10:56:19" {WMEDLEY}TEDIT>TEDIT-WINDOW.;867) + :PREVIOUS-DATE "19-Oct-2025 15:13:01" {WMEDLEY}TEDIT>TEDIT-WINDOW.;872) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -354,25 +354,19 @@ (DEFINEQ (\TEDIT.WINDOW.CREATE - [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 21-Jul-2025 11:55 by rmk") + [LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 23-Oct-2025 18:22 by rmk") + (* ; "Edited 21-Jul-2025 11:55 by rmk") (* ; "Edited 9-May-2025 12:11 by rmk") (* ; "Edited 25-Apr-2025 21:24 by rmk") - (* ; "Edited 20-Apr-2025 15:21 by rmk") (* ; "Edited 18-Feb-2025 09:49 by rmk") (* ; "Edited 1-Jul-2024 22:55 by rmk") - (* ; "Edited 29-Jun-2024 23:16 by rmk") (* ; "Edited 5-May-2024 21:54 by rmk") (* ; "Edited 20-Mar-2024 09:57 by rmk") (* ; "Edited 14-Jan-2024 22:13 by rmk") (* ; "Edited 18-Dec-2023 23:01 by rmk") (* ; "Edited 25-Nov-2023 10:37 by rmk") (* ; "Edited 23-Oct-2023 22:11 by rmk") - (* ; "Edited 21-Oct-2023 12:20 by rmk") - (* ; "Edited 18-Oct-2023 09:56 by rmk") - (* ; "Edited 1-Jan-2022 23:54 by rmk") - (* ; "Edited 30-Dec-2021 23:00 by rmk") - (* ; "Edited 29-Dec-2021 16:35 by rmk") - (* ; "Edited 24-Dec-2021 19:21 by rmk") + (* ; "Edited 1-Jan-2022 23:54 by rmk") (* jds "23-May-85 15:19") (* ; "Edited 27-Oct-2021 12:25 by rmk:") @@ -420,7 +414,6 @@ (SETQ REGION (if (REGIONP WINDOW) then (PROG1 (COPY WINDOW) (SETQ WINDOW NIL)) - elseif (GRAB-TYPED-REGION REGIONTYPE) else (SETQ REGION (\TEDIT.WINDOW.GETREGION TSTREAM REGIONTYPE PHEIGHT)) (* ;  "We don't want the default to keep shrinking") @@ -462,7 +455,8 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 19-Oct-2025 01:05 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 23-Oct-2025 18:16 by rmk") + (* ; "Edited 19-Oct-2025 01:05 by rmk") (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") (* ; "Edited 24-Mar-2025 11:29 by rmk") @@ -485,14 +479,7 @@ (IPLUS \TEDIT.OP.WIDTH 36] [HEIGHTOVERHEAD (IPLUS PHEIGHT (ADD1 (TIMES 2 WBorder)) (FONTPROP WindowTitleDisplayStream 'HEIGHT] - WIDTH HEIGHT TEXTLEN) - (SETQ TEXTLEN (TEXTLEN TEXTOBJ)) - (CLRPROMPT) (* ; "System promptwindow") - (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") - " window region") - (CL:WHEN (TXTFILE TSTREAM) - (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) - (TERPRI PROMPTWINDOW) + WIDTH HEIGHT) (* ;; "Explict properties cover content") @@ -506,8 +493,9 @@ (* ;; "If still no WIDTH or HEIGHT, look at the first 20 lines") (CL:UNLESS (AND HEIGHT WIDTH) - (for I L (REG _ (CREATEREGION 0 0 (IDIFFERENCE SCREENWIDTH WIDTHOVERHEAD) - (IDIFFERENCE SCREENHEIGHT HEIGHTOVERHEAD))) + (for I L (TEXTLEN _ (TEXTLEN TEXTOBJ)) + (REG _ (CREATEREGION 0 0 (IDIFFERENCE SCREENWIDTH WIDTHOVERHEAD) + (IDIFFERENCE SCREENHEIGHT HEIGHTOVERHEAD))) (W _ 0) (H _ 0) (CHNO _ 1) from 1 to 20 while (ILEQ CHNO TEXTLEN) @@ -533,14 +521,18 @@ (* ;; "Allow for the extra stuff") - (if (AND WIDTH HEIGHT) - then (add WIDTH WIDTHOVERHEAD) - (add HEIGHT HEIGHTOVERHEAD) - (GETBOXREGION WIDTH HEIGHT) - else (GETREGION (IPLUS (OR WIDTH 200) - WIDTHOVERHEAD) - (IPLUS (OR HEIGHT 100) - HEIGHTOVERHEAD]) + (SETQ WIDTH (IPLUS (OR WIDTH 200) + WIDTHOVERHEAD)) + (SETQ HEIGHT (IPLUS (OR HEIGHT 100) + HEIGHTOVERHEAD)) + (CLRPROMPT) (* ; "System promptwindow") + (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") + " region") + (CL:WHEN (TXTFILE TSTREAM) + (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) + (TERPRI PROMPTWINDOW) + (OR (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1) + (GETBOXREGION WIDTH HEIGHT]) (\TEDIT.WINDOW.SETUP [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 6-May-2025 11:44 by rmk") @@ -3659,36 +3651,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17131 18027 (TEDIT.DEFER.UPDATES 17141 . 18025)) (18028 45299 (\TEDIT.WINDOW.CREATE -18038 . 25368) (\TEDIT.WINDOW.GETREGION 25370 . 29786) (\TEDIT.WINDOW.SETUP 29788 . 34118) ( -\TEDIT.MINIMAL.WINDOW.SETUP 34120 . 41931) (\TEDIT.CLEARPANE 41933 . 42650) (\TEDIT.FILL.PANES 42652 - . 45297)) (45300 69001 (\TEDIT.CURSORMOVEDFN 45310 . 50920) (\TEDIT.CURSOROUTFN 50922 . 51610) ( -\TEDIT.ACTIVE.WINDOWP 51612 . 52682) (\TEDIT.EXPANDFN 52684 . 53247) (\TEDIT.MAINW 53249 . 54529) ( -\TEDIT.MAINSTREAM 54531 . 54865) (\TEDIT.PRIMARYPANE 54867 . 55637) (\TEDIT.PANELIST 55639 . 56135) ( -\TEDIT.NEWREGIONFN 56137 . 58653) (\TEDIT.SET.WINDOW.EXTENT 58655 . 63637) (\TEDIT.SHRINK.ICONCREATE -63639 . 66372) (\TEDIT.SHRINKFN 66374 . 66783) (\TEDIT.PANEREGION 66785 . 68999)) (69033 102079 ( -\TEDIT.BUTTONEVENTFN 69043 . 82016) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82018 . 89281) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 89283 . 91125) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91127 . 94797) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94799 . 97229) (\TEDIT.BUTTONEVENTFN.INTITLE 97231 . 99066) ( -\TEDIT.COPYINSERTFN 99068 . 100200) (\TEDIT.FOREIGN.COPY 100202 . 102077)) (102080 119643 ( -\TEDIT.PANE.SPLIT 102090 . 106038) (\TEDIT.SPLITW 106040 . 114099) (\TEDIT.UNSPLITW 114101 . 118300) ( -\TEDIT.LINKPANES 118302 . 119065) (\TEDIT.UNLINKPANE 119067 . 119641)) (121077 121968 (TEDITWINDOWP -121087 . 121966)) (122005 125108 (TEDIT.GETINPUT 122015 . 124458) (\TEDIT.MAKEFILENAME 124460 . 125106 -)) (125157 132807 (TEDIT.PROMPTWINDOW 125167 . 125481) (TEDIT.PROMPTPRINT 125483 . 128110) ( -TEDIT.PROMPTCLEAR 128112 . 129854) (TEDIT.PROMPTFLASH 129856 . 131114) (\TEDIT.PROMPT.PAGEFULLFN -131116 . 132805)) (133045 143623 (\TEDIT.FILENAME 133055 . 133827) (\TEDIT.DEFAULT.TITLE 133829 . -136208) (\TEDIT.WINDOW.TITLE 136210 . 138379) (\TEDIT.LIKELY.FILENAME 138381 . 141105) ( -\TEDIT.UPDATE.TITLE 141107 . 143621)) (143666 156150 (TEDIT.DEACTIVATE.WINDOW 143676 . 149249) ( -\TEDIT.RESHAPEFN 149251 . 151336) (\TEDIT.REPAINTFN 151338 . 151562) (\TEDIT.CLOSESPLITS 151564 . -154009) (\TEDIT.CLOSEPANE 154011 . 156148)) (156151 198950 (\TEDIT.SCROLLFN 156161 . 158392) ( -\TEDIT.SCROLLCH.TOP 158394 . 160505) (\TEDIT.SCROLLCH.BOTTOM 160507 . 164837) (\TEDIT.SCROLLUP 164839 - . 170565) (\TEDIT.TOPLINE.YTOP 170567 . 172236) (\TEDIT.SCROLLDOWN 172238 . 179277) ( -\TEDIT.SCROLL.CARET 179279 . 182117) (\TEDIT.VISIBLECARETP 182119 . 184413) (\TEDIT.VISIBLECHARP -184415 . 185506) (\TEDIT.BITMAPLINES 185508 . 189428) (\TEDIT.SETPANE.TOPLINE 189430 . 190042) ( -\TEDIT.SHIFTLINES 190044 . 198948)) (198951 209820 (\TEDIT.ONSCREEN? 198961 . 203512) ( -\TEDIT.ONSCREEN.REGION 203514 . 207165) (\TEDIT.AFTERMOVEFN 207167 . 208064) (OFFSCREENP 208066 . -209818)) (209862 212676 (\TEDIT.PROCIDLEFN 209872 . 211532) (\TEDIT.PROCENTRYFN 211534 . 211979) ( -\TEDIT.PROCEXITFN 211981 . 212674)) (212755 225980 (\TEDIT.DOWNCARET 212765 . 213558) ( -\TEDIT.FLASHCARET 213560 . 215671) (\TEDIT.UPCARET 215673 . 216777) (TEDIT.NORMALIZECARET 216779 . -219997) (\TEDIT.SETCARET 219999 . 225350) (\TEDIT.CARET 225352 . 225978))))) + (FILEMAP (NIL (17124 18020 (TEDIT.DEFER.UPDATES 17134 . 18018)) (18021 44566 (\TEDIT.WINDOW.CREATE +18031 . 24637) (\TEDIT.WINDOW.GETREGION 24639 . 29053) (\TEDIT.WINDOW.SETUP 29055 . 33385) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33387 . 41198) (\TEDIT.CLEARPANE 41200 . 41917) (\TEDIT.FILL.PANES 41919 + . 44564)) (44567 68268 (\TEDIT.CURSORMOVEDFN 44577 . 50187) (\TEDIT.CURSOROUTFN 50189 . 50877) ( +\TEDIT.ACTIVE.WINDOWP 50879 . 51949) (\TEDIT.EXPANDFN 51951 . 52514) (\TEDIT.MAINW 52516 . 53796) ( +\TEDIT.MAINSTREAM 53798 . 54132) (\TEDIT.PRIMARYPANE 54134 . 54904) (\TEDIT.PANELIST 54906 . 55402) ( +\TEDIT.NEWREGIONFN 55404 . 57920) (\TEDIT.SET.WINDOW.EXTENT 57922 . 62904) (\TEDIT.SHRINK.ICONCREATE +62906 . 65639) (\TEDIT.SHRINKFN 65641 . 66050) (\TEDIT.PANEREGION 66052 . 68266)) (68300 101346 ( +\TEDIT.BUTTONEVENTFN 68310 . 81283) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81285 . 88548) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88550 . 90392) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90394 . 94064) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94066 . 96496) (\TEDIT.BUTTONEVENTFN.INTITLE 96498 . 98333) ( +\TEDIT.COPYINSERTFN 98335 . 99467) (\TEDIT.FOREIGN.COPY 99469 . 101344)) (101347 118910 ( +\TEDIT.PANE.SPLIT 101357 . 105305) (\TEDIT.SPLITW 105307 . 113366) (\TEDIT.UNSPLITW 113368 . 117567) ( +\TEDIT.LINKPANES 117569 . 118332) (\TEDIT.UNLINKPANE 118334 . 118908)) (120344 121235 (TEDITWINDOWP +120354 . 121233)) (121272 124375 (TEDIT.GETINPUT 121282 . 123725) (\TEDIT.MAKEFILENAME 123727 . 124373 +)) (124424 132074 (TEDIT.PROMPTWINDOW 124434 . 124748) (TEDIT.PROMPTPRINT 124750 . 127377) ( +TEDIT.PROMPTCLEAR 127379 . 129121) (TEDIT.PROMPTFLASH 129123 . 130381) (\TEDIT.PROMPT.PAGEFULLFN +130383 . 132072)) (132312 142890 (\TEDIT.FILENAME 132322 . 133094) (\TEDIT.DEFAULT.TITLE 133096 . +135475) (\TEDIT.WINDOW.TITLE 135477 . 137646) (\TEDIT.LIKELY.FILENAME 137648 . 140372) ( +\TEDIT.UPDATE.TITLE 140374 . 142888)) (142933 155417 (TEDIT.DEACTIVATE.WINDOW 142943 . 148516) ( +\TEDIT.RESHAPEFN 148518 . 150603) (\TEDIT.REPAINTFN 150605 . 150829) (\TEDIT.CLOSESPLITS 150831 . +153276) (\TEDIT.CLOSEPANE 153278 . 155415)) (155418 198217 (\TEDIT.SCROLLFN 155428 . 157659) ( +\TEDIT.SCROLLCH.TOP 157661 . 159772) (\TEDIT.SCROLLCH.BOTTOM 159774 . 164104) (\TEDIT.SCROLLUP 164106 + . 169832) (\TEDIT.TOPLINE.YTOP 169834 . 171503) (\TEDIT.SCROLLDOWN 171505 . 178544) ( +\TEDIT.SCROLL.CARET 178546 . 181384) (\TEDIT.VISIBLECARETP 181386 . 183680) (\TEDIT.VISIBLECHARP +183682 . 184773) (\TEDIT.BITMAPLINES 184775 . 188695) (\TEDIT.SETPANE.TOPLINE 188697 . 189309) ( +\TEDIT.SHIFTLINES 189311 . 198215)) (198218 209087 (\TEDIT.ONSCREEN? 198228 . 202779) ( +\TEDIT.ONSCREEN.REGION 202781 . 206432) (\TEDIT.AFTERMOVEFN 206434 . 207331) (OFFSCREENP 207333 . +209085)) (209129 211943 (\TEDIT.PROCIDLEFN 209139 . 210799) (\TEDIT.PROCENTRYFN 210801 . 211246) ( +\TEDIT.PROCEXITFN 211248 . 211941)) (212022 225247 (\TEDIT.DOWNCARET 212032 . 212825) ( +\TEDIT.FLASHCARET 212827 . 214938) (\TEDIT.UPCARET 214940 . 216044) (TEDIT.NORMALIZECARET 216046 . +219264) (\TEDIT.SETCARET 219266 . 224617) (\TEDIT.CARET 224619 . 225245))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 1b7b2c78d45ea993554128b088228e758841c45e..1b4b57873f98d18702d930413d5fe22c56c6f790 100644 GIT binary patch delta 1360 zcmZuwO>7%g5cb9?ByN?ucH)u{p{dm>jZnLCMs1~hFNfVMP zxA)Ktkd~FO4{1qMQKvh8k4@A}WzXuazoJMCAfVf!WxO)`&gqd+(c>_syI6 z=BsDnAD)Hp)#GeV+}fI>D%F5wvXo{S`*`)T)Rjbv%|awe0}iU5)r>4Ll5lggb!+3@ zyDMw0CbZtayZPRgtSmiBEv>9$NMX^oAsClRrIOHmYYUzK=RRsAXCqe&mTg|EnmNzR z4?6X-qVgwYc2sA0v8oXw7nK?5KDr`zlnZi9xu`_sfig3s)7`(6zm+q8L_(pkY)>R) zboiI}jWvz)xBxmDo;&rp!(C#J((r}CqzORsZg zK+g_b)uCv5=vZ-kLBKL6m}k~~+y$nSQ-7A$P!IFeDOeFEEbzy+d$g^P|U zRCBfvd>mQGursCGe%Y}Vq0nBuv|qnKMxF3p_`|lMh-hpnU|w#1Qr@%I z##c-GL-OG4Wcp%MjEmUw9r21t9Nlk+ek(r^Q+Iy9FQ&e=ABbsxH~n3_yf?h|&^lbQ zacwRfF3ZbjKQMD;d&8$Zcfvbbwoej>Dvhxhd}M$4&e1p1qJL<_IwJa+h>7U)PerT| z?Knd>+Q&c3+Bv@ceY0}(Wv9}Z>WJ~x$Bps!@x#znt{Sl1ZAn2?D>=`$9P^}1sEv71 zubM?mIKViCVl_8E=e_Bg`MEwy4eUwPty|E7y2rxC{>*`cP6lLk<=3$$j^vHLi zX$`!(=MM=`&FBSE&iXsb`#VhUnvD#;NP+NlPhY(R2nsI9g$%(X()cRrN^%>=lH)UM zvw+>l(L3#OS0??Q1IiiMgHwSlgMiAwPu|H@@Bs$SL(rY-sGtEr^DkTr+(?;Utsp@B zDg*$6lX@K!H=Ul838OurX63ySiZuhmJvAezf9l#em&%h#`T1CuFs1`ZVaat0NqBo> g6aSPO_}^^ZUfEd36JwC{TFsR$+!Ma5oS%LAFMI%P4*&oF delta 1447 zcmZuxUuYvm7;n;A+qBePnucDlmXAejswVEt&hBO-NYiGMY_r`7>6S#U67DYdr-!Qt4}_8ASb?P8~UPR9t5$ELXm>tn{a}H<(@?0{3e_9lHxwh&iv;4GvEAv z-~8}+@QcTTA5^AjoL}3EQ<$iG&2TD;O32$6uAD#ZWA3+2%^gOk+}* zmWc5z3sF-jp5tt!^_v-XqgC*tj zTbgzrVLEhtfe{sQri($=ik*O<7;VfoD*`Wqq8n%SimnKI-+g1 z_Q+^tUcuA&CjMbSQ4Pp&XTb$UF`9pjBm@5%X_g1C?v4kzNT?mt~G91d;&Xr0*jtF4~+*#=@vr$PW7+7v_SQkvzZwX|zn zj*0iz7RfTNblKI6jtaVfVu&bb5^GRG`T!~m8c|&qkR*z$WH|(zwcm?qI=Ja&Aga=} zP&9BWuIN%A3bumpN3dVoGgP)e!8Td3g?Lf+ps5WIGVz6qUCyWmwwXmGsOWG;zrtwG zifR6hT^*l!_=i|Yx9k3`>^u`YSu&o5u_4kl8s6Q+O!H+JvhNT`hCy{(V diff --git a/lispusers/REGIONMANAGER b/lispusers/REGIONMANAGER index 812f58a2d..85b8fabac 100644 --- a/lispusers/REGIONMANAGER +++ b/lispusers/REGIONMANAGER @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Apr-2025 12:57:07" {WMEDLEY}REGIONMANAGER.;137 42626 +(FILECREATED "23-Oct-2025 20:12:38" {WMEDLEY}REGIONMANAGER.;139 43219 :EDIT-BY rmk - :CHANGES-TO (FNS RM-CLOSEW) + :CHANGES-TO (FNS GRAB-TYPED-REGION) - :PREVIOUS-DATE "25-Nov-2024 17:59:00" {WMEDLEY}REGIONMANAGER.;135) + :PREVIOUS-DATE "20-Apr-2025 12:57:07" {WMEDLEY}REGIONMANAGER.;137) (PRETTYCOMPRINT REGIONMANAGERCOMS) @@ -88,20 +88,28 @@ else (push TYPED-REGIONS (CONS TYPE REGIONS]) (GRAB-TYPED-REGION - [LAMBDA (REGION-TYPE MINWIDTH MINHEIGHT) (* ; "Edited 10-Oct-2023 13:41 by rmk") + [LAMBDA (REGION-TYPE MINWIDTH MINHEIGHT MARGIN) (* ; "Edited 23-Oct-2025 20:12 by rmk") + (* ; "Edited 10-Oct-2023 13:41 by rmk") (* ; "Edited 14-Sep-2023 07:30 by rmk") - (* ;; "Returns a REGIONTYPE region that satisfies MINWIDTH and MINHEIGHT, if specified") - - (for R in (CDR (ASSOC REGION-TYPE TYPED-REGIONS)) unless (fetch REGION-INUSE of R) - when [AND (OR (NULL MINWIDTH) - (ILEQ MINWIDTH (fetch WIDTH of R))) - (OR (NULL MINHEIGHT) - (ILEQ MINHEIGHT (fetch HEIGHT of R] do + (* ;; "Returns a REGIONTYPE region that is larger than MINWIDTH and MINHEIGHT, if specified, and smaller than those numbers times MARGIN, if specified. MARGIN=1.1 allows a size 10%% bigger than MINWIDTH.") + + (CL:UNLESS MINWIDTH (SETQ MINWIDTH 0)) + (CL:UNLESS MINHEIGHT (SETQ MINHEIGHT 0)) + (for R MAXWIDTH MAXHEIGHT in (CDR (ASSOC REGION-TYPE TYPED-REGIONS)) + first (if (AND MARGIN (GREATERP MARGIN 1)) + then (SETQ MAXWIDTH (FIXR (FTIMES MARGIN MINWIDTH))) + (SETQ MAXHEIGHT (FIXR (FTIMES MARGIN MINHEIGHT))) + else (SETQ MAXWIDTH MAX.FIXP) + (SETQ MAXHEIGHT MAX.FIXP)) unless (fetch REGION-INUSE of R) + when (AND (<= MINWIDTH (fetch WIDTH of R) + MAXWIDTH) + (<= MINHEIGHT (fetch HEIGHT of R) + MAXHEIGHT)) do (* ;; "We don't mark it as inuse here, leave that gets done by INSTALL-TYPED-REGION when ownership is given to a window. The only downside is that the region could be reallocated before that happens, and 2 window would come up in the same place.") - (RETURN R]) + (RETURN R]) (REGISTER-TYPED-REGION [LAMBDA (REGION REGION-TYPE WINDOW) (* ; "Edited 10-Oct-2023 13:30 by rmk") @@ -752,11 +760,11 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1611 6729 (SET-TYPED-REGIONS 1621 . 3796) (GRAB-TYPED-REGION 3798 . 4824) ( -REGISTER-TYPED-REGION 4826 . 6123) (REGION-TYPE 6125 . 6727)) (6730 15428 (RM-CREATEW 6740 . 8863) ( -RM-CLOSEW 8865 . 12512) (RM-GETREGION 12514 . 14663) (CLOSE-TYPED-W 14665 . 15426)) (16071 23550 ( -RELCREATEREGION 16081 . 20704) (RELGETREGION 20706 . 23313) (RELCREATEPOSITION 23315 . 23548)) (23551 -31126 (\RELCREATEREGION.REF 23561 . 28083) (\RELCREATEREGION.SIZE 28085 . 31124)) (31179 40521 ( -RM-ATTACHWINDOW 31189 . 40519)) (40522 42256 (CLOSEWITH 40532 . 41059) (CLOSEWITH.DOIT 41061 . 41341) -(MOVEWITH 41343 . 41866) (MOVEWITH.DOIT 41868 . 42254))))) + (FILEMAP (NIL (1619 7322 (SET-TYPED-REGIONS 1629 . 3804) (GRAB-TYPED-REGION 3806 . 5417) ( +REGISTER-TYPED-REGION 5419 . 6716) (REGION-TYPE 6718 . 7320)) (7323 16021 (RM-CREATEW 7333 . 9456) ( +RM-CLOSEW 9458 . 13105) (RM-GETREGION 13107 . 15256) (CLOSE-TYPED-W 15258 . 16019)) (16664 24143 ( +RELCREATEREGION 16674 . 21297) (RELGETREGION 21299 . 23906) (RELCREATEPOSITION 23908 . 24141)) (24144 +31719 (\RELCREATEREGION.REF 24154 . 28676) (\RELCREATEREGION.SIZE 28678 . 31717)) (31772 41114 ( +RM-ATTACHWINDOW 31782 . 41112)) (41115 42849 (CLOSEWITH 41125 . 41652) (CLOSEWITH.DOIT 41654 . 41934) +(MOVEWITH 41936 . 42459) (MOVEWITH.DOIT 42461 . 42847))))) STOP diff --git a/lispusers/REGIONMANAGER.LCOM b/lispusers/REGIONMANAGER.LCOM index 3edae72b1132c83d9b805a6d1ca431ac03c9d940..d4753c31ccca9e72c3926f6ef6d3475d622d04a3 100644 GIT binary patch delta 499 zcmZqjUE(((LdaOxKeBib85dK~b@)m4bVaqmyn(WPq!SZjh_Hr@x;I5hlEBHD_c({7HdxR(iC>Viw;hrub z9zc$vLXd(dSV54xr=P;)QfA%yVm1Z_7RSX|Nlg2lfF#R)hXe*75MvSyWOd#uk`LnS z0+YKvn72x22xNcW^v2oo6(?B2*$Kkf@Psik0VKi&A~wr8dNMIF#(dr^>f`l!ofDA5 z#2EW|sjv6vg`NT)Oc5KlGiaDwD7d?ZNO(8~dnlNhD7bk>1Sy!Bf@xq#nNR+}EHasq lO;}FB*i6C5(8S!t!r08jT*24?iKodm`9GW3W<8b=B>+$(fJ*=X delta 356 zcmZ4D*W^1PLdZbZv7kuT$iT={!O+Oc)ZEHoVwOd{xuyb_lA$@0oSBu8xs{2bl0s5Z zYI1&VL1s>Bib85dK~b@)l|qoOuCtGSuxq$NW}bqQTd0qZ0k{ zD`|3RxOw`xItRHrhPb*YOkT$*KG}g$mEByy#K_FZY;q2xf)U&jO$DofAlEQY|IlDv z7od6tB_mT^zx* zD9Gr+yp<(GfH4v*!UYoEEbchX(UXaZ@#AWz=}tffkhRcLz=J7b!&L?iBMSw0*ANfK sU=N^sjf^KBWEB=MRS1a;aCOlQa&`Cg_X`F}XmU+n$S$_|0!xSz0O8PBFaQ7m diff --git a/lispusers/REGIONMANAGER.TEDIT b/lispusers/REGIONMANAGER.TEDIT index 7bab68ae8..ce7f08db8 100644 --- a/lispusers/REGIONMANAGER.TEDIT +++ b/lispusers/REGIONMANAGER.TEDIT @@ -34,8 +34,9 @@ where each regionsi is a possibly empty list of regions. For convenience, if TY Typically, a call to SET-TYPED-REGIONS would be placed in a user's INIT file to set up the preference order for the regions that the user wants to participate in this reallocation scheme. If an application uses a type that is not on TYPED-REGIONS, then that type-atom is treated as NIL and always gives rise to the normal ghost-region prompting. Thus a user will observe no change in system behavior if TYPED-REGIONS is left with its initial value NIL. A type that is added with an empty region list (as opposed to not being on the list at all) will allow new regions to accumulate for recycling. The function REGION-TYPE returns NIL if X is not a typed-region or not a region of type TYPE. (REGION-TYPE X TYPE) [Function] -In most scenarios the interpretation of a typed region specification is handled automatically by the extended CREATEW and GETREGION functions. Sometimes it may be useful to perform to for the regions dimensions to be entered into other calculations before it is installed in a window. The function GRAB-TYPED-REGION recycles an existing REGION-TYPE window if one meets the optional minimum width and height requirements, otherwise a new region is returned. -(GRAB-TYPED-REGION REGION-TYPE MINWIDTH MINHEIGHT) [Function] +In most scenarios the interpretation of a typed region specification is handled automatically by the extended CREATEW and GETREGION functions. Sometimes it may be useful to perform to for the regions dimensions to be entered into other calculations before it is installed in a window. The function GRAB-TYPED-REGION recycles an existing REGION-TYPE window if one meets the optional minimum width, height , and margin requirements, otherwise a new region is returned. +(GRAB-TYPED-REGION REGION-TYPE MINWIDTH MINHEIGHT MARGIN) [Function] +If MINWIDTH is specified, the recyled window must be at least that wide, and if MARGIN is specified it can be no larger than MARGIN x MINWIDTH. Thus, if MINWIDTH is 200 and MARGIN is 1.1, only regions REGION-TYPE regions of width between 200 and 220 points will satisfy. MINHEIGHT restricts the height in the same way. A type can be assigned to an untyped region and installed in a window by the function REGISTER-TYPED-REGION. That region will then be recycled when the window is closed. (REGISTER-TYPED-REGION REGION REGION-TYPE WINDOW) [Function] If REGION is NIL, the (presumably) untyped region of WINDOW will be registered. An entry in TYPED-REGIONS will be created for REGION-TYPE if it is not already present. @@ -79,14 +80,16 @@ Establishes a link between the PARENT window and any number of CHILDREN windows If NEWPOS is the new position of PARENT, moves each of the move-children so that they stand in the same relation to PARENT after it moves as before. -(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))))) 1$4È$È4È$È1 $È$1 È$4È$È4È$È4È$È4È$È1È$1ŠŠ8$1ŠŠ8$JÈ$È PAGEHEADING RUNNINGHEADMODERN -CLASSIC -TERMINALMODERN TERMINALÿüTERMINALÿü -TIMESROMAN$  HRULE.GETFN   HRULE.GETFN  HRULE.GETFN   HRULE.GETFN  HRULE.GETFN -@È „ • ‘}/ ¯[ C*§T Û¬@ Á1  - -; 3o)Ä ž  ’   4 n © o2 V@1 %!  A  &MmIS-g< -3E -" - -l /4 v2C ƒ &% "O=  , l¬)9š¥Ç W~ æ& 4!Uh'š2&µ$"&( )MDATE:iÏ*ø5V®zº \ No newline at end of file +(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))1$4È$È4È$È1 $È$1 È$4È$È4È $È4È$È4È$È4È$È1È$1ŠŠ8$1ŠŠ8$JÈ$È PAGEHEADING RUNNINGHEAD1TERMINAL(CHARPROPS (COLOR . BLACK))0CLASSIC +(CHARPROPS (COLOR . BLACK))/MODERN +(CHARPROPS (COLOR . BLACK))/MODERN (CHARPROPS (COLOR . BLACK))1TERMINALÿü(CHARPROPS (COLOR . BLACK))1TERMINALÿü(CHARPROPS (COLOR . BLACK))3 +TIMESROMAN$(CHARPROPS (COLOR . BLACK)) HRULE.GETFN  HRULE.GETFN  HRULE.GETFN   HRULE.GETFN  HRULE.GETFN @È +„ +• +‘}/ ¯[ C*§T Û¬@ Á1   + +; 3o)Ä ž  ’   4 n © y9 E'   <0V@1 %!  A  &MmIS-g< +3E +" + +l /4 v2C ƒ &% "O=  , l¬)9š¥Ç W~ æ& 4!Uh'š2&µ$"&( )M(((CHARENCODING . MCCS)))PROPS:#DATE:jÄ"<6©Àzº \ No newline at end of file From 97e01478272dba5996ef3b080011b06637de81c6 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Fri, 24 Oct 2025 09:12:57 -0700 Subject: [PATCH 3/6] Miinimum initial window suggestions --- library/tedit/TEDIT-WINDOW | 81 +++++++++++++++++--------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62534 -> 62550 bytes 2 files changed, 42 insertions(+), 39 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index 4ab8489a9..d44946694 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "23-Oct-2025 18:22:32" {WMEDLEY}TEDIT>TEDIT-WINDOW.;873 230511 +(FILECREATED "24-Oct-2025 09:11:52" {WMEDLEY}TEDIT>TEDIT-WINDOW.;874 230558 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.WINDOW.CREATE \TEDIT.WINDOW.GETREGION) + :CHANGES-TO (FNS \TEDIT.WINDOW.GETREGION \TEDIT.WINDOW.CREATE) :PREVIOUS-DATE "19-Oct-2025 15:13:01" {WMEDLEY}TEDIT>TEDIT-WINDOW.;872) @@ -455,7 +455,7 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 23-Oct-2025 18:16 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 24-Oct-2025 09:11 by rmk") (* ; "Edited 19-Oct-2025 01:05 by rmk") (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") @@ -519,12 +519,15 @@ (CL:UNLESS (OR HEIGHT (EQ H 0)) (SETQ HEIGHT H)))) + (* ;; "Minimum sizes") + + (SETQ WIDTH (IMAX 200 WIDTH (OR WIDTH 0))) + (SETQ HEIGHT (IMAX 100 HEIGHT (OR HEIGHT 0))) + (* ;; "Allow for the extra stuff") - (SETQ WIDTH (IPLUS (OR WIDTH 200) - WIDTHOVERHEAD)) - (SETQ HEIGHT (IPLUS (OR HEIGHT 100) - HEIGHTOVERHEAD)) + (add WIDTH WIDTHOVERHEAD) + (add HEIGHT HEIGHTOVERHEAD) (CLRPROMPT) (* ; "System promptwindow") (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") " region") @@ -3651,36 +3654,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17124 18020 (TEDIT.DEFER.UPDATES 17134 . 18018)) (18021 44566 (\TEDIT.WINDOW.CREATE -18031 . 24637) (\TEDIT.WINDOW.GETREGION 24639 . 29053) (\TEDIT.WINDOW.SETUP 29055 . 33385) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33387 . 41198) (\TEDIT.CLEARPANE 41200 . 41917) (\TEDIT.FILL.PANES 41919 - . 44564)) (44567 68268 (\TEDIT.CURSORMOVEDFN 44577 . 50187) (\TEDIT.CURSOROUTFN 50189 . 50877) ( -\TEDIT.ACTIVE.WINDOWP 50879 . 51949) (\TEDIT.EXPANDFN 51951 . 52514) (\TEDIT.MAINW 52516 . 53796) ( -\TEDIT.MAINSTREAM 53798 . 54132) (\TEDIT.PRIMARYPANE 54134 . 54904) (\TEDIT.PANELIST 54906 . 55402) ( -\TEDIT.NEWREGIONFN 55404 . 57920) (\TEDIT.SET.WINDOW.EXTENT 57922 . 62904) (\TEDIT.SHRINK.ICONCREATE -62906 . 65639) (\TEDIT.SHRINKFN 65641 . 66050) (\TEDIT.PANEREGION 66052 . 68266)) (68300 101346 ( -\TEDIT.BUTTONEVENTFN 68310 . 81283) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81285 . 88548) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88550 . 90392) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90394 . 94064) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94066 . 96496) (\TEDIT.BUTTONEVENTFN.INTITLE 96498 . 98333) ( -\TEDIT.COPYINSERTFN 98335 . 99467) (\TEDIT.FOREIGN.COPY 99469 . 101344)) (101347 118910 ( -\TEDIT.PANE.SPLIT 101357 . 105305) (\TEDIT.SPLITW 105307 . 113366) (\TEDIT.UNSPLITW 113368 . 117567) ( -\TEDIT.LINKPANES 117569 . 118332) (\TEDIT.UNLINKPANE 118334 . 118908)) (120344 121235 (TEDITWINDOWP -120354 . 121233)) (121272 124375 (TEDIT.GETINPUT 121282 . 123725) (\TEDIT.MAKEFILENAME 123727 . 124373 -)) (124424 132074 (TEDIT.PROMPTWINDOW 124434 . 124748) (TEDIT.PROMPTPRINT 124750 . 127377) ( -TEDIT.PROMPTCLEAR 127379 . 129121) (TEDIT.PROMPTFLASH 129123 . 130381) (\TEDIT.PROMPT.PAGEFULLFN -130383 . 132072)) (132312 142890 (\TEDIT.FILENAME 132322 . 133094) (\TEDIT.DEFAULT.TITLE 133096 . -135475) (\TEDIT.WINDOW.TITLE 135477 . 137646) (\TEDIT.LIKELY.FILENAME 137648 . 140372) ( -\TEDIT.UPDATE.TITLE 140374 . 142888)) (142933 155417 (TEDIT.DEACTIVATE.WINDOW 142943 . 148516) ( -\TEDIT.RESHAPEFN 148518 . 150603) (\TEDIT.REPAINTFN 150605 . 150829) (\TEDIT.CLOSESPLITS 150831 . -153276) (\TEDIT.CLOSEPANE 153278 . 155415)) (155418 198217 (\TEDIT.SCROLLFN 155428 . 157659) ( -\TEDIT.SCROLLCH.TOP 157661 . 159772) (\TEDIT.SCROLLCH.BOTTOM 159774 . 164104) (\TEDIT.SCROLLUP 164106 - . 169832) (\TEDIT.TOPLINE.YTOP 169834 . 171503) (\TEDIT.SCROLLDOWN 171505 . 178544) ( -\TEDIT.SCROLL.CARET 178546 . 181384) (\TEDIT.VISIBLECARETP 181386 . 183680) (\TEDIT.VISIBLECHARP -183682 . 184773) (\TEDIT.BITMAPLINES 184775 . 188695) (\TEDIT.SETPANE.TOPLINE 188697 . 189309) ( -\TEDIT.SHIFTLINES 189311 . 198215)) (198218 209087 (\TEDIT.ONSCREEN? 198228 . 202779) ( -\TEDIT.ONSCREEN.REGION 202781 . 206432) (\TEDIT.AFTERMOVEFN 206434 . 207331) (OFFSCREENP 207333 . -209085)) (209129 211943 (\TEDIT.PROCIDLEFN 209139 . 210799) (\TEDIT.PROCENTRYFN 210801 . 211246) ( -\TEDIT.PROCEXITFN 211248 . 211941)) (212022 225247 (\TEDIT.DOWNCARET 212032 . 212825) ( -\TEDIT.FLASHCARET 212827 . 214938) (\TEDIT.UPCARET 214940 . 216044) (TEDIT.NORMALIZECARET 216046 . -219264) (\TEDIT.SETCARET 219266 . 224617) (\TEDIT.CARET 224619 . 225245))))) + (FILEMAP (NIL (17124 18020 (TEDIT.DEFER.UPDATES 17134 . 18018)) (18021 44613 (\TEDIT.WINDOW.CREATE +18031 . 24637) (\TEDIT.WINDOW.GETREGION 24639 . 29100) (\TEDIT.WINDOW.SETUP 29102 . 33432) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33434 . 41245) (\TEDIT.CLEARPANE 41247 . 41964) (\TEDIT.FILL.PANES 41966 + . 44611)) (44614 68315 (\TEDIT.CURSORMOVEDFN 44624 . 50234) (\TEDIT.CURSOROUTFN 50236 . 50924) ( +\TEDIT.ACTIVE.WINDOWP 50926 . 51996) (\TEDIT.EXPANDFN 51998 . 52561) (\TEDIT.MAINW 52563 . 53843) ( +\TEDIT.MAINSTREAM 53845 . 54179) (\TEDIT.PRIMARYPANE 54181 . 54951) (\TEDIT.PANELIST 54953 . 55449) ( +\TEDIT.NEWREGIONFN 55451 . 57967) (\TEDIT.SET.WINDOW.EXTENT 57969 . 62951) (\TEDIT.SHRINK.ICONCREATE +62953 . 65686) (\TEDIT.SHRINKFN 65688 . 66097) (\TEDIT.PANEREGION 66099 . 68313)) (68347 101393 ( +\TEDIT.BUTTONEVENTFN 68357 . 81330) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81332 . 88595) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88597 . 90439) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90441 . 94111) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94113 . 96543) (\TEDIT.BUTTONEVENTFN.INTITLE 96545 . 98380) ( +\TEDIT.COPYINSERTFN 98382 . 99514) (\TEDIT.FOREIGN.COPY 99516 . 101391)) (101394 118957 ( +\TEDIT.PANE.SPLIT 101404 . 105352) (\TEDIT.SPLITW 105354 . 113413) (\TEDIT.UNSPLITW 113415 . 117614) ( +\TEDIT.LINKPANES 117616 . 118379) (\TEDIT.UNLINKPANE 118381 . 118955)) (120391 121282 (TEDITWINDOWP +120401 . 121280)) (121319 124422 (TEDIT.GETINPUT 121329 . 123772) (\TEDIT.MAKEFILENAME 123774 . 124420 +)) (124471 132121 (TEDIT.PROMPTWINDOW 124481 . 124795) (TEDIT.PROMPTPRINT 124797 . 127424) ( +TEDIT.PROMPTCLEAR 127426 . 129168) (TEDIT.PROMPTFLASH 129170 . 130428) (\TEDIT.PROMPT.PAGEFULLFN +130430 . 132119)) (132359 142937 (\TEDIT.FILENAME 132369 . 133141) (\TEDIT.DEFAULT.TITLE 133143 . +135522) (\TEDIT.WINDOW.TITLE 135524 . 137693) (\TEDIT.LIKELY.FILENAME 137695 . 140419) ( +\TEDIT.UPDATE.TITLE 140421 . 142935)) (142980 155464 (TEDIT.DEACTIVATE.WINDOW 142990 . 148563) ( +\TEDIT.RESHAPEFN 148565 . 150650) (\TEDIT.REPAINTFN 150652 . 150876) (\TEDIT.CLOSESPLITS 150878 . +153323) (\TEDIT.CLOSEPANE 153325 . 155462)) (155465 198264 (\TEDIT.SCROLLFN 155475 . 157706) ( +\TEDIT.SCROLLCH.TOP 157708 . 159819) (\TEDIT.SCROLLCH.BOTTOM 159821 . 164151) (\TEDIT.SCROLLUP 164153 + . 169879) (\TEDIT.TOPLINE.YTOP 169881 . 171550) (\TEDIT.SCROLLDOWN 171552 . 178591) ( +\TEDIT.SCROLL.CARET 178593 . 181431) (\TEDIT.VISIBLECARETP 181433 . 183727) (\TEDIT.VISIBLECHARP +183729 . 184820) (\TEDIT.BITMAPLINES 184822 . 188742) (\TEDIT.SETPANE.TOPLINE 188744 . 189356) ( +\TEDIT.SHIFTLINES 189358 . 198262)) (198265 209134 (\TEDIT.ONSCREEN? 198275 . 202826) ( +\TEDIT.ONSCREEN.REGION 202828 . 206479) (\TEDIT.AFTERMOVEFN 206481 . 207378) (OFFSCREENP 207380 . +209132)) (209176 211990 (\TEDIT.PROCIDLEFN 209186 . 210846) (\TEDIT.PROCENTRYFN 210848 . 211293) ( +\TEDIT.PROCEXITFN 211295 . 211988)) (212069 225294 (\TEDIT.DOWNCARET 212079 . 212872) ( +\TEDIT.FLASHCARET 212874 . 214985) (\TEDIT.UPCARET 214987 . 216091) (TEDIT.NORMALIZECARET 216093 . +219311) (\TEDIT.SETCARET 219313 . 224664) (\TEDIT.CARET 224666 . 225292))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 1b4b57873f98d18702d930413d5fe22c56c6f790..97541efd61b317ff2259217171d5c56f6788c700 100644 GIT binary patch delta 1055 zcmZWoO=uHQ5N;aLnre+{EJ14=mZDWj*xw{uJeahbWSh-S*sdg!!YbWbn}ilhZxxGz zSFx@=OFh)98hQ|a_9jL=mJ+-R9vgb_BItW*fJm>N8H%Hw(;|1m`UHzG~k85QPF6W0sHpqybV5w@mvc0e}Yr? zTpbWe7Ar{!=dmXm&M2m#WK`5))>NicGg?&jDJ(`O4JBzR^=}>+xRwA73c$r-GOHui zVvwamf+7_nkQ1mPfT@&BP0^{rgGz+##C&V#WGJSVSM2!}NCVHdqcAm14bJ)M8(sf3 z?CtYjKiWrDBXo<3T7U84Ub8sj{l&rBvsM@p`7Xil_Cw47xbM*^2W;Dhd{xC`W9BRFAacDND?v}ObUFYrK=6c__ z#7aQAoWfG4(V`rKjFC)5%$o&eD$+$0w0%awP(h6IK%~xr7~^R!ZEL~60*DgnUNQxu z5bH*8GMFVZt!fI0WC9NJ1UY`FO@a_lbitSalNz}J^92)liR+GB8jXC?)Kpy|!$e}* zqt~Iuajf&`WMsX43QatmPr{7e& unFB6L-k6U819z5J$S$%1*;nQl7MGV85E5}<%z1lpmFTfV{rsuR-~RwwzARAy delta 970 zcmZWn%}*0S6z@_bPytIpQ=5v<#wZ+0x-&1Yu z%fs{f3OCV8wQhappm)j(G9-Zaz)Vyj47nl76b6kc1W7T%01v8|Qe{zLh6^OBeEJpB zlbb%!f~9gMTZS-Yc^pN8v&;}c%M~-F$7-%p$cA!{9u^i?<|^gv;)8MEz7H7<#_1jd zJq_y}rV3q}W4EbY)qk0;1RcBiW>dS?$1b)_%^`dyy2P-FiP~_qks9Lr6l2Z!w90YB zY?<%4UdX(R)nq+>7TjhsLM(^x$SApRuu(PqjBOIz^8N;~eULYaogw?j;aIJ^uq`#` zWvVl?P5nmy`YM+mJmJ>8eDK~*+D6(^C+2lxA?CwZ#F94Gm9E>>qi@q>^gglnGj3^U zSo6*FXr0&zH2Qba_IhmVGKFIe^YH}xuZfMCy`M7igE#ef+Eync`JMDg^=R8L=5`6N zpo*bYNu3CjWIUkCk|F~3@DLHzAW6~Rkca}49JAU<^X$Loz`(tR!5VR5YZ@Q*00my z!oWx=fjA{5@TYH)&-ahR!&tKXc&j49>=8ODBD#~O96T0aj*cKIQBjIS=|~v09GVnT zqjc5%`t!jekFgK<3Hm5L1P-`YDpQHv0+r?LQm#~_7RKOEvzc6lV&1*wJU9O1FCD`U A$p8QV From 13e85e75c67d28913946bb1fd10bf8e5825d799d Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 25 Oct 2025 07:57:54 -0700 Subject: [PATCH 4/6] Fine tuning: no bigger than 90% of screen, no prompt message if old region reused --- library/tedit/TEDIT-WINDOW | 93 +++++++++++++++++--------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62550 -> 62659 bytes 2 files changed, 49 insertions(+), 44 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index d44946694..a0281c890 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-Oct-2025 09:11:52" {WMEDLEY}TEDIT>TEDIT-WINDOW.;874 230558 +(FILECREATED "25-Oct-2025 07:52:51" {WMEDLEY}tedit>TEDIT-WINDOW.;876 230752 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.WINDOW.GETREGION \TEDIT.WINDOW.CREATE) + :CHANGES-TO (FNS \TEDIT.WINDOW.GETREGION) - :PREVIOUS-DATE "19-Oct-2025 15:13:01" {WMEDLEY}TEDIT>TEDIT-WINDOW.;872) + :PREVIOUS-DATE "24-Oct-2025 09:11:52" {WMEDLEY}tedit>TEDIT-WINDOW.;874) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -455,7 +455,7 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 24-Oct-2025 09:11 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 07:51 by rmk") (* ; "Edited 19-Oct-2025 01:05 by rmk") (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") @@ -528,14 +528,19 @@ (add WIDTH WIDTHOVERHEAD) (add HEIGHT HEIGHTOVERHEAD) - (CLRPROMPT) (* ; "System promptwindow") - (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") - " region") - (CL:WHEN (TXTFILE TSTREAM) - (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) - (TERPRI PROMPTWINDOW) - (OR (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1) - (GETBOXREGION WIDTH HEIGHT]) + + (* ;; "Maximum sizes") + + [SETQ WIDTH (IMIN WIDTH (FIXR (FTIMES SCREENWIDTH 0.9] + [SETQ HEIGHT (IMIN HEIGHT (FIXR (FTIMES SCREENHEIGHT 0.9] + (if (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1) + else (CLRPROMPT) (* ; "System promptwindow") + (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") + " region") + (CL:WHEN (TXTFILE TSTREAM) + (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) + (TERPRI PROMPTWINDOW) + (GETBOXREGION WIDTH HEIGHT]) (\TEDIT.WINDOW.SETUP [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 6-May-2025 11:44 by rmk") @@ -3654,36 +3659,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17124 18020 (TEDIT.DEFER.UPDATES 17134 . 18018)) (18021 44613 (\TEDIT.WINDOW.CREATE -18031 . 24637) (\TEDIT.WINDOW.GETREGION 24639 . 29100) (\TEDIT.WINDOW.SETUP 29102 . 33432) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33434 . 41245) (\TEDIT.CLEARPANE 41247 . 41964) (\TEDIT.FILL.PANES 41966 - . 44611)) (44614 68315 (\TEDIT.CURSORMOVEDFN 44624 . 50234) (\TEDIT.CURSOROUTFN 50236 . 50924) ( -\TEDIT.ACTIVE.WINDOWP 50926 . 51996) (\TEDIT.EXPANDFN 51998 . 52561) (\TEDIT.MAINW 52563 . 53843) ( -\TEDIT.MAINSTREAM 53845 . 54179) (\TEDIT.PRIMARYPANE 54181 . 54951) (\TEDIT.PANELIST 54953 . 55449) ( -\TEDIT.NEWREGIONFN 55451 . 57967) (\TEDIT.SET.WINDOW.EXTENT 57969 . 62951) (\TEDIT.SHRINK.ICONCREATE -62953 . 65686) (\TEDIT.SHRINKFN 65688 . 66097) (\TEDIT.PANEREGION 66099 . 68313)) (68347 101393 ( -\TEDIT.BUTTONEVENTFN 68357 . 81330) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81332 . 88595) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88597 . 90439) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90441 . 94111) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94113 . 96543) (\TEDIT.BUTTONEVENTFN.INTITLE 96545 . 98380) ( -\TEDIT.COPYINSERTFN 98382 . 99514) (\TEDIT.FOREIGN.COPY 99516 . 101391)) (101394 118957 ( -\TEDIT.PANE.SPLIT 101404 . 105352) (\TEDIT.SPLITW 105354 . 113413) (\TEDIT.UNSPLITW 113415 . 117614) ( -\TEDIT.LINKPANES 117616 . 118379) (\TEDIT.UNLINKPANE 118381 . 118955)) (120391 121282 (TEDITWINDOWP -120401 . 121280)) (121319 124422 (TEDIT.GETINPUT 121329 . 123772) (\TEDIT.MAKEFILENAME 123774 . 124420 -)) (124471 132121 (TEDIT.PROMPTWINDOW 124481 . 124795) (TEDIT.PROMPTPRINT 124797 . 127424) ( -TEDIT.PROMPTCLEAR 127426 . 129168) (TEDIT.PROMPTFLASH 129170 . 130428) (\TEDIT.PROMPT.PAGEFULLFN -130430 . 132119)) (132359 142937 (\TEDIT.FILENAME 132369 . 133141) (\TEDIT.DEFAULT.TITLE 133143 . -135522) (\TEDIT.WINDOW.TITLE 135524 . 137693) (\TEDIT.LIKELY.FILENAME 137695 . 140419) ( -\TEDIT.UPDATE.TITLE 140421 . 142935)) (142980 155464 (TEDIT.DEACTIVATE.WINDOW 142990 . 148563) ( -\TEDIT.RESHAPEFN 148565 . 150650) (\TEDIT.REPAINTFN 150652 . 150876) (\TEDIT.CLOSESPLITS 150878 . -153323) (\TEDIT.CLOSEPANE 153325 . 155462)) (155465 198264 (\TEDIT.SCROLLFN 155475 . 157706) ( -\TEDIT.SCROLLCH.TOP 157708 . 159819) (\TEDIT.SCROLLCH.BOTTOM 159821 . 164151) (\TEDIT.SCROLLUP 164153 - . 169879) (\TEDIT.TOPLINE.YTOP 169881 . 171550) (\TEDIT.SCROLLDOWN 171552 . 178591) ( -\TEDIT.SCROLL.CARET 178593 . 181431) (\TEDIT.VISIBLECARETP 181433 . 183727) (\TEDIT.VISIBLECHARP -183729 . 184820) (\TEDIT.BITMAPLINES 184822 . 188742) (\TEDIT.SETPANE.TOPLINE 188744 . 189356) ( -\TEDIT.SHIFTLINES 189358 . 198262)) (198265 209134 (\TEDIT.ONSCREEN? 198275 . 202826) ( -\TEDIT.ONSCREEN.REGION 202828 . 206479) (\TEDIT.AFTERMOVEFN 206481 . 207378) (OFFSCREENP 207380 . -209132)) (209176 211990 (\TEDIT.PROCIDLEFN 209186 . 210846) (\TEDIT.PROCENTRYFN 210848 . 211293) ( -\TEDIT.PROCEXITFN 211295 . 211988)) (212069 225294 (\TEDIT.DOWNCARET 212079 . 212872) ( -\TEDIT.FLASHCARET 212874 . 214985) (\TEDIT.UPCARET 214987 . 216091) (TEDIT.NORMALIZECARET 216093 . -219311) (\TEDIT.SETCARET 219313 . 224664) (\TEDIT.CARET 224666 . 225292))))) + (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 44807 (\TEDIT.WINDOW.CREATE +18010 . 24616) (\TEDIT.WINDOW.GETREGION 24618 . 29294) (\TEDIT.WINDOW.SETUP 29296 . 33626) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33628 . 41439) (\TEDIT.CLEARPANE 41441 . 42158) (\TEDIT.FILL.PANES 42160 + . 44805)) (44808 68509 (\TEDIT.CURSORMOVEDFN 44818 . 50428) (\TEDIT.CURSOROUTFN 50430 . 51118) ( +\TEDIT.ACTIVE.WINDOWP 51120 . 52190) (\TEDIT.EXPANDFN 52192 . 52755) (\TEDIT.MAINW 52757 . 54037) ( +\TEDIT.MAINSTREAM 54039 . 54373) (\TEDIT.PRIMARYPANE 54375 . 55145) (\TEDIT.PANELIST 55147 . 55643) ( +\TEDIT.NEWREGIONFN 55645 . 58161) (\TEDIT.SET.WINDOW.EXTENT 58163 . 63145) (\TEDIT.SHRINK.ICONCREATE +63147 . 65880) (\TEDIT.SHRINKFN 65882 . 66291) (\TEDIT.PANEREGION 66293 . 68507)) (68541 101587 ( +\TEDIT.BUTTONEVENTFN 68551 . 81524) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81526 . 88789) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88791 . 90633) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90635 . 94305) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94307 . 96737) (\TEDIT.BUTTONEVENTFN.INTITLE 96739 . 98574) ( +\TEDIT.COPYINSERTFN 98576 . 99708) (\TEDIT.FOREIGN.COPY 99710 . 101585)) (101588 119151 ( +\TEDIT.PANE.SPLIT 101598 . 105546) (\TEDIT.SPLITW 105548 . 113607) (\TEDIT.UNSPLITW 113609 . 117808) ( +\TEDIT.LINKPANES 117810 . 118573) (\TEDIT.UNLINKPANE 118575 . 119149)) (120585 121476 (TEDITWINDOWP +120595 . 121474)) (121513 124616 (TEDIT.GETINPUT 121523 . 123966) (\TEDIT.MAKEFILENAME 123968 . 124614 +)) (124665 132315 (TEDIT.PROMPTWINDOW 124675 . 124989) (TEDIT.PROMPTPRINT 124991 . 127618) ( +TEDIT.PROMPTCLEAR 127620 . 129362) (TEDIT.PROMPTFLASH 129364 . 130622) (\TEDIT.PROMPT.PAGEFULLFN +130624 . 132313)) (132553 143131 (\TEDIT.FILENAME 132563 . 133335) (\TEDIT.DEFAULT.TITLE 133337 . +135716) (\TEDIT.WINDOW.TITLE 135718 . 137887) (\TEDIT.LIKELY.FILENAME 137889 . 140613) ( +\TEDIT.UPDATE.TITLE 140615 . 143129)) (143174 155658 (TEDIT.DEACTIVATE.WINDOW 143184 . 148757) ( +\TEDIT.RESHAPEFN 148759 . 150844) (\TEDIT.REPAINTFN 150846 . 151070) (\TEDIT.CLOSESPLITS 151072 . +153517) (\TEDIT.CLOSEPANE 153519 . 155656)) (155659 198458 (\TEDIT.SCROLLFN 155669 . 157900) ( +\TEDIT.SCROLLCH.TOP 157902 . 160013) (\TEDIT.SCROLLCH.BOTTOM 160015 . 164345) (\TEDIT.SCROLLUP 164347 + . 170073) (\TEDIT.TOPLINE.YTOP 170075 . 171744) (\TEDIT.SCROLLDOWN 171746 . 178785) ( +\TEDIT.SCROLL.CARET 178787 . 181625) (\TEDIT.VISIBLECARETP 181627 . 183921) (\TEDIT.VISIBLECHARP +183923 . 185014) (\TEDIT.BITMAPLINES 185016 . 188936) (\TEDIT.SETPANE.TOPLINE 188938 . 189550) ( +\TEDIT.SHIFTLINES 189552 . 198456)) (198459 209328 (\TEDIT.ONSCREEN? 198469 . 203020) ( +\TEDIT.ONSCREEN.REGION 203022 . 206673) (\TEDIT.AFTERMOVEFN 206675 . 207572) (OFFSCREENP 207574 . +209326)) (209370 212184 (\TEDIT.PROCIDLEFN 209380 . 211040) (\TEDIT.PROCENTRYFN 211042 . 211487) ( +\TEDIT.PROCEXITFN 211489 . 212182)) (212263 225488 (\TEDIT.DOWNCARET 212273 . 213066) ( +\TEDIT.FLASHCARET 213068 . 215179) (\TEDIT.UPCARET 215181 . 216285) (TEDIT.NORMALIZECARET 216287 . +219505) (\TEDIT.SETCARET 219507 . 224858) (\TEDIT.CARET 224860 . 225486))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 97541efd61b317ff2259217171d5c56f6788c700..ba324f84c0039bfa988be4c813258fd47d530342 100644 GIT binary patch delta 1183 zcma)6&u<$=6i(u*P?Lb0reH-;d0CmriE6VuJL9zt3bo@+ym;-m+H6@@t+X+*Tb#Ic zBk5hb|!MFV>+d2=0%V6;2_)QfZqyYFIjwj1q+1`1z%j}i~P{-|2) z|IjIVQU_-?pL#R?#5gGy)=7l;{4E4Y1VCbT`CivmtBo9uC;N+!D!5l;e zD)s_j-W~bM|7iTyPQe_!lF&$$B{W#koh+95p&3{LmXP^z*p_VoqbcCNqySS>B1;^n zWupa*Xy9bBz!dc`gQgPTlpXQq0!_(BtVWLzV@HU}1eQ!b0gILclTMu-WsJniQ&r>S;o3 zd6-~gF9*bX;e=8yZbl&_CVo`Hg~oUzq#iw(=#7SxiHXjXG!pdS9^U)SZ{K^rH*aQkzSr-6tACU< zcPyQ&v(!~p4u;k1RqN8i@gUONgI$4IO1y@SVSx7$rY zI#n>z|BPoPYQX9o2}kAOgzU#6<_C*|UeaQ6Fe;BP4`nlV@~Qmdk^J9H0L#&W;58R5 zqWR@xXJP<+N7;y|5t(CtgHLfc#ZKw6ck`Y7!Jh| zK^_PZCxAvA4+(jc01i|+sYc~ES+EesPBL4q5Aa|>3*_=?BM&3M($z2&xJecaXqmZm z?w*<{WQ|~EVLqE$94q9F)a(FQe%j4#tNnEUepz#xpRK)D`uAtbW$kj)Dg5nP%WY$g zp(%o`#BA9@rDPk^jBNE=6R5-NZ{}9okpp!dK1UR~SlLh_>!@e?;2G+96J19@5WKZ# zcO#X}hmn^{7QOupsZ(m0u55Ip+CuLtqK+r13w0bmMqPSG5!vc=+pAx>8;H7#x?4z! z-dA$Wly$0z0QHqx_H-ylHZP&R-jcIqt9E$s6!qX=XWyk`m9=6_?Ah^ z{g&kwe*JuJy3$D$;V0=$5S?+*aad1?{(Y}BMW!r@y8JU+ssL{1WGNc7f_hlAlL zRzNXD1y*3pdHV%(yLD)Vuf`Di=#5}ql75^JL?9PE?vG&^UO4fWV@?n>5j~dANn}gM z36ZpVL^P0hX|A1nE%Oosj2rKp^#BEvxjeQ!&0(82rZTxX3OKI_lxn0i1&lpjpp>kU WS} Date: Sat, 25 Oct 2025 08:27:48 -0700 Subject: [PATCH 5/6] Apply screen constraint only for new regions --- library/tedit/TEDIT-WINDOW | 80 ++++++++++++++++---------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62659 -> 62659 bytes 2 files changed, 40 insertions(+), 40 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index a0281c890..faecef99a 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Oct-2025 07:52:51" {WMEDLEY}tedit>TEDIT-WINDOW.;876 230752 +(FILECREATED "25-Oct-2025 08:25:04" {WMEDLEY}tedit>TEDIT-WINDOW.;877 230793 :EDIT-BY rmk @@ -455,7 +455,7 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 07:51 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 08:24 by rmk") (* ; "Edited 19-Oct-2025 01:05 by rmk") (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") @@ -528,13 +528,13 @@ (add WIDTH WIDTHOVERHEAD) (add HEIGHT HEIGHTOVERHEAD) - - (* ;; "Maximum sizes") - - [SETQ WIDTH (IMIN WIDTH (FIXR (FTIMES SCREENWIDTH 0.9] - [SETQ HEIGHT (IMIN HEIGHT (FIXR (FTIMES SCREENHEIGHT 0.9] (if (GRAB-TYPED-REGION REGIONTYPE WIDTH HEIGHT 1.1) - else (CLRPROMPT) (* ; "System promptwindow") + else + (* ;; "Maximum new sizes") + + [SETQ WIDTH (IMIN WIDTH (FIXR (FTIMES SCREENWIDTH 0.9] + [SETQ HEIGHT (IMIN HEIGHT (FIXR (FTIMES SCREENHEIGHT 0.9] + (CLRPROMPT) (* ; "System promptwindow") (printout PROMPTWINDOW "Please specify a " (OR REGIONTYPE "Tedit") " region") (CL:WHEN (TXTFILE TSTREAM) @@ -3659,36 +3659,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 44807 (\TEDIT.WINDOW.CREATE -18010 . 24616) (\TEDIT.WINDOW.GETREGION 24618 . 29294) (\TEDIT.WINDOW.SETUP 29296 . 33626) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33628 . 41439) (\TEDIT.CLEARPANE 41441 . 42158) (\TEDIT.FILL.PANES 42160 - . 44805)) (44808 68509 (\TEDIT.CURSORMOVEDFN 44818 . 50428) (\TEDIT.CURSOROUTFN 50430 . 51118) ( -\TEDIT.ACTIVE.WINDOWP 51120 . 52190) (\TEDIT.EXPANDFN 52192 . 52755) (\TEDIT.MAINW 52757 . 54037) ( -\TEDIT.MAINSTREAM 54039 . 54373) (\TEDIT.PRIMARYPANE 54375 . 55145) (\TEDIT.PANELIST 55147 . 55643) ( -\TEDIT.NEWREGIONFN 55645 . 58161) (\TEDIT.SET.WINDOW.EXTENT 58163 . 63145) (\TEDIT.SHRINK.ICONCREATE -63147 . 65880) (\TEDIT.SHRINKFN 65882 . 66291) (\TEDIT.PANEREGION 66293 . 68507)) (68541 101587 ( -\TEDIT.BUTTONEVENTFN 68551 . 81524) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81526 . 88789) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88791 . 90633) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90635 . 94305) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94307 . 96737) (\TEDIT.BUTTONEVENTFN.INTITLE 96739 . 98574) ( -\TEDIT.COPYINSERTFN 98576 . 99708) (\TEDIT.FOREIGN.COPY 99710 . 101585)) (101588 119151 ( -\TEDIT.PANE.SPLIT 101598 . 105546) (\TEDIT.SPLITW 105548 . 113607) (\TEDIT.UNSPLITW 113609 . 117808) ( -\TEDIT.LINKPANES 117810 . 118573) (\TEDIT.UNLINKPANE 118575 . 119149)) (120585 121476 (TEDITWINDOWP -120595 . 121474)) (121513 124616 (TEDIT.GETINPUT 121523 . 123966) (\TEDIT.MAKEFILENAME 123968 . 124614 -)) (124665 132315 (TEDIT.PROMPTWINDOW 124675 . 124989) (TEDIT.PROMPTPRINT 124991 . 127618) ( -TEDIT.PROMPTCLEAR 127620 . 129362) (TEDIT.PROMPTFLASH 129364 . 130622) (\TEDIT.PROMPT.PAGEFULLFN -130624 . 132313)) (132553 143131 (\TEDIT.FILENAME 132563 . 133335) (\TEDIT.DEFAULT.TITLE 133337 . -135716) (\TEDIT.WINDOW.TITLE 135718 . 137887) (\TEDIT.LIKELY.FILENAME 137889 . 140613) ( -\TEDIT.UPDATE.TITLE 140615 . 143129)) (143174 155658 (TEDIT.DEACTIVATE.WINDOW 143184 . 148757) ( -\TEDIT.RESHAPEFN 148759 . 150844) (\TEDIT.REPAINTFN 150846 . 151070) (\TEDIT.CLOSESPLITS 151072 . -153517) (\TEDIT.CLOSEPANE 153519 . 155656)) (155659 198458 (\TEDIT.SCROLLFN 155669 . 157900) ( -\TEDIT.SCROLLCH.TOP 157902 . 160013) (\TEDIT.SCROLLCH.BOTTOM 160015 . 164345) (\TEDIT.SCROLLUP 164347 - . 170073) (\TEDIT.TOPLINE.YTOP 170075 . 171744) (\TEDIT.SCROLLDOWN 171746 . 178785) ( -\TEDIT.SCROLL.CARET 178787 . 181625) (\TEDIT.VISIBLECARETP 181627 . 183921) (\TEDIT.VISIBLECHARP -183923 . 185014) (\TEDIT.BITMAPLINES 185016 . 188936) (\TEDIT.SETPANE.TOPLINE 188938 . 189550) ( -\TEDIT.SHIFTLINES 189552 . 198456)) (198459 209328 (\TEDIT.ONSCREEN? 198469 . 203020) ( -\TEDIT.ONSCREEN.REGION 203022 . 206673) (\TEDIT.AFTERMOVEFN 206675 . 207572) (OFFSCREENP 207574 . -209326)) (209370 212184 (\TEDIT.PROCIDLEFN 209380 . 211040) (\TEDIT.PROCENTRYFN 211042 . 211487) ( -\TEDIT.PROCEXITFN 211489 . 212182)) (212263 225488 (\TEDIT.DOWNCARET 212273 . 213066) ( -\TEDIT.FLASHCARET 213068 . 215179) (\TEDIT.UPCARET 215181 . 216285) (TEDIT.NORMALIZECARET 216287 . -219505) (\TEDIT.SETCARET 219507 . 224858) (\TEDIT.CARET 224860 . 225486))))) + (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 44848 (\TEDIT.WINDOW.CREATE +18010 . 24616) (\TEDIT.WINDOW.GETREGION 24618 . 29335) (\TEDIT.WINDOW.SETUP 29337 . 33667) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33669 . 41480) (\TEDIT.CLEARPANE 41482 . 42199) (\TEDIT.FILL.PANES 42201 + . 44846)) (44849 68550 (\TEDIT.CURSORMOVEDFN 44859 . 50469) (\TEDIT.CURSOROUTFN 50471 . 51159) ( +\TEDIT.ACTIVE.WINDOWP 51161 . 52231) (\TEDIT.EXPANDFN 52233 . 52796) (\TEDIT.MAINW 52798 . 54078) ( +\TEDIT.MAINSTREAM 54080 . 54414) (\TEDIT.PRIMARYPANE 54416 . 55186) (\TEDIT.PANELIST 55188 . 55684) ( +\TEDIT.NEWREGIONFN 55686 . 58202) (\TEDIT.SET.WINDOW.EXTENT 58204 . 63186) (\TEDIT.SHRINK.ICONCREATE +63188 . 65921) (\TEDIT.SHRINKFN 65923 . 66332) (\TEDIT.PANEREGION 66334 . 68548)) (68582 101628 ( +\TEDIT.BUTTONEVENTFN 68592 . 81565) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81567 . 88830) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88832 . 90674) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90676 . 94346) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94348 . 96778) (\TEDIT.BUTTONEVENTFN.INTITLE 96780 . 98615) ( +\TEDIT.COPYINSERTFN 98617 . 99749) (\TEDIT.FOREIGN.COPY 99751 . 101626)) (101629 119192 ( +\TEDIT.PANE.SPLIT 101639 . 105587) (\TEDIT.SPLITW 105589 . 113648) (\TEDIT.UNSPLITW 113650 . 117849) ( +\TEDIT.LINKPANES 117851 . 118614) (\TEDIT.UNLINKPANE 118616 . 119190)) (120626 121517 (TEDITWINDOWP +120636 . 121515)) (121554 124657 (TEDIT.GETINPUT 121564 . 124007) (\TEDIT.MAKEFILENAME 124009 . 124655 +)) (124706 132356 (TEDIT.PROMPTWINDOW 124716 . 125030) (TEDIT.PROMPTPRINT 125032 . 127659) ( +TEDIT.PROMPTCLEAR 127661 . 129403) (TEDIT.PROMPTFLASH 129405 . 130663) (\TEDIT.PROMPT.PAGEFULLFN +130665 . 132354)) (132594 143172 (\TEDIT.FILENAME 132604 . 133376) (\TEDIT.DEFAULT.TITLE 133378 . +135757) (\TEDIT.WINDOW.TITLE 135759 . 137928) (\TEDIT.LIKELY.FILENAME 137930 . 140654) ( +\TEDIT.UPDATE.TITLE 140656 . 143170)) (143215 155699 (TEDIT.DEACTIVATE.WINDOW 143225 . 148798) ( +\TEDIT.RESHAPEFN 148800 . 150885) (\TEDIT.REPAINTFN 150887 . 151111) (\TEDIT.CLOSESPLITS 151113 . +153558) (\TEDIT.CLOSEPANE 153560 . 155697)) (155700 198499 (\TEDIT.SCROLLFN 155710 . 157941) ( +\TEDIT.SCROLLCH.TOP 157943 . 160054) (\TEDIT.SCROLLCH.BOTTOM 160056 . 164386) (\TEDIT.SCROLLUP 164388 + . 170114) (\TEDIT.TOPLINE.YTOP 170116 . 171785) (\TEDIT.SCROLLDOWN 171787 . 178826) ( +\TEDIT.SCROLL.CARET 178828 . 181666) (\TEDIT.VISIBLECARETP 181668 . 183962) (\TEDIT.VISIBLECHARP +183964 . 185055) (\TEDIT.BITMAPLINES 185057 . 188977) (\TEDIT.SETPANE.TOPLINE 188979 . 189591) ( +\TEDIT.SHIFTLINES 189593 . 198497)) (198500 209369 (\TEDIT.ONSCREEN? 198510 . 203061) ( +\TEDIT.ONSCREEN.REGION 203063 . 206714) (\TEDIT.AFTERMOVEFN 206716 . 207613) (OFFSCREENP 207615 . +209367)) (209411 212225 (\TEDIT.PROCIDLEFN 209421 . 211081) (\TEDIT.PROCENTRYFN 211083 . 211528) ( +\TEDIT.PROCEXITFN 211530 . 212223)) (212304 225529 (\TEDIT.DOWNCARET 212314 . 213107) ( +\TEDIT.FLASHCARET 213109 . 215220) (\TEDIT.UPCARET 215222 . 216326) (TEDIT.NORMALIZECARET 216328 . +219546) (\TEDIT.SETCARET 219548 . 224899) (\TEDIT.CARET 224901 . 225527))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index ba324f84c0039bfa988be4c813258fd47d530342..860f4018c0536cbce8c3004f4e714cb477f81034 100644 GIT binary patch delta 182 zcmX^7lKJpU<_Rh67FI^4RtBaMv#l7-CoY=><(o{b*5WW%FfukUw=~{d$+(G2*wNc3 zp8*JXK*Uz&ri}~-Cu{RqZLZ+qWYjcPaPy1^QZTkOfilbu72JayopeJY16*BngIwJ` z{rwb-ObsU&2#ZfX$a_G<#L!3~*g446)z8D#)7>LP!Pvrh^He@&MlnNk1p_@xAm0K) Qo0%yX>KSfc$1nO60NC9x?*IS* delta 182 zcmX^7lKJpU<_Rh6=2oUgR;Gp%v#l7-CN7%==T~cSm?;<;8 Date: Sat, 25 Oct 2025 14:46:20 -0700 Subject: [PATCH 6/6] bad edit --- library/tedit/TEDIT-WINDOW | 72 ++++++++++++++++---------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62659 -> 62647 bytes 2 files changed, 36 insertions(+), 36 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index faecef99a..9ce843a2c 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Oct-2025 08:25:04" {WMEDLEY}tedit>TEDIT-WINDOW.;877 230793 +(FILECREATED "25-Oct-2025 10:33:08" {WMEDLEY}TEDIT>TEDIT-WINDOW.;878 230780 :EDIT-BY rmk @@ -455,7 +455,7 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 08:24 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 25-Oct-2025 10:27 by rmk") (* ; "Edited 19-Oct-2025 01:05 by rmk") (* ; "Edited 14-Apr-2025 00:05 by rmk") (* ; "Edited 31-Mar-2025 22:43 by rmk") @@ -521,8 +521,8 @@ (* ;; "Minimum sizes") - (SETQ WIDTH (IMAX 200 WIDTH (OR WIDTH 0))) - (SETQ HEIGHT (IMAX 100 HEIGHT (OR HEIGHT 0))) + (SETQ WIDTH (IMAX 200 (OR WIDTH 0))) + (SETQ HEIGHT (IMAX 100 (OR HEIGHT 0))) (* ;; "Allow for the extra stuff") @@ -3659,36 +3659,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 44848 (\TEDIT.WINDOW.CREATE -18010 . 24616) (\TEDIT.WINDOW.GETREGION 24618 . 29335) (\TEDIT.WINDOW.SETUP 29337 . 33667) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33669 . 41480) (\TEDIT.CLEARPANE 41482 . 42199) (\TEDIT.FILL.PANES 42201 - . 44846)) (44849 68550 (\TEDIT.CURSORMOVEDFN 44859 . 50469) (\TEDIT.CURSOROUTFN 50471 . 51159) ( -\TEDIT.ACTIVE.WINDOWP 51161 . 52231) (\TEDIT.EXPANDFN 52233 . 52796) (\TEDIT.MAINW 52798 . 54078) ( -\TEDIT.MAINSTREAM 54080 . 54414) (\TEDIT.PRIMARYPANE 54416 . 55186) (\TEDIT.PANELIST 55188 . 55684) ( -\TEDIT.NEWREGIONFN 55686 . 58202) (\TEDIT.SET.WINDOW.EXTENT 58204 . 63186) (\TEDIT.SHRINK.ICONCREATE -63188 . 65921) (\TEDIT.SHRINKFN 65923 . 66332) (\TEDIT.PANEREGION 66334 . 68548)) (68582 101628 ( -\TEDIT.BUTTONEVENTFN 68592 . 81565) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81567 . 88830) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88832 . 90674) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90676 . 94346) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94348 . 96778) (\TEDIT.BUTTONEVENTFN.INTITLE 96780 . 98615) ( -\TEDIT.COPYINSERTFN 98617 . 99749) (\TEDIT.FOREIGN.COPY 99751 . 101626)) (101629 119192 ( -\TEDIT.PANE.SPLIT 101639 . 105587) (\TEDIT.SPLITW 105589 . 113648) (\TEDIT.UNSPLITW 113650 . 117849) ( -\TEDIT.LINKPANES 117851 . 118614) (\TEDIT.UNLINKPANE 118616 . 119190)) (120626 121517 (TEDITWINDOWP -120636 . 121515)) (121554 124657 (TEDIT.GETINPUT 121564 . 124007) (\TEDIT.MAKEFILENAME 124009 . 124655 -)) (124706 132356 (TEDIT.PROMPTWINDOW 124716 . 125030) (TEDIT.PROMPTPRINT 125032 . 127659) ( -TEDIT.PROMPTCLEAR 127661 . 129403) (TEDIT.PROMPTFLASH 129405 . 130663) (\TEDIT.PROMPT.PAGEFULLFN -130665 . 132354)) (132594 143172 (\TEDIT.FILENAME 132604 . 133376) (\TEDIT.DEFAULT.TITLE 133378 . -135757) (\TEDIT.WINDOW.TITLE 135759 . 137928) (\TEDIT.LIKELY.FILENAME 137930 . 140654) ( -\TEDIT.UPDATE.TITLE 140656 . 143170)) (143215 155699 (TEDIT.DEACTIVATE.WINDOW 143225 . 148798) ( -\TEDIT.RESHAPEFN 148800 . 150885) (\TEDIT.REPAINTFN 150887 . 151111) (\TEDIT.CLOSESPLITS 151113 . -153558) (\TEDIT.CLOSEPANE 153560 . 155697)) (155700 198499 (\TEDIT.SCROLLFN 155710 . 157941) ( -\TEDIT.SCROLLCH.TOP 157943 . 160054) (\TEDIT.SCROLLCH.BOTTOM 160056 . 164386) (\TEDIT.SCROLLUP 164388 - . 170114) (\TEDIT.TOPLINE.YTOP 170116 . 171785) (\TEDIT.SCROLLDOWN 171787 . 178826) ( -\TEDIT.SCROLL.CARET 178828 . 181666) (\TEDIT.VISIBLECARETP 181668 . 183962) (\TEDIT.VISIBLECHARP -183964 . 185055) (\TEDIT.BITMAPLINES 185057 . 188977) (\TEDIT.SETPANE.TOPLINE 188979 . 189591) ( -\TEDIT.SHIFTLINES 189593 . 198497)) (198500 209369 (\TEDIT.ONSCREEN? 198510 . 203061) ( -\TEDIT.ONSCREEN.REGION 203063 . 206714) (\TEDIT.AFTERMOVEFN 206716 . 207613) (OFFSCREENP 207615 . -209367)) (209411 212225 (\TEDIT.PROCIDLEFN 209421 . 211081) (\TEDIT.PROCENTRYFN 211083 . 211528) ( -\TEDIT.PROCEXITFN 211530 . 212223)) (212304 225529 (\TEDIT.DOWNCARET 212314 . 213107) ( -\TEDIT.FLASHCARET 213109 . 215220) (\TEDIT.UPCARET 215222 . 216326) (TEDIT.NORMALIZECARET 216328 . -219546) (\TEDIT.SETCARET 219548 . 224899) (\TEDIT.CARET 224901 . 225527))))) + (FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 44835 (\TEDIT.WINDOW.CREATE +18010 . 24616) (\TEDIT.WINDOW.GETREGION 24618 . 29322) (\TEDIT.WINDOW.SETUP 29324 . 33654) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33656 . 41467) (\TEDIT.CLEARPANE 41469 . 42186) (\TEDIT.FILL.PANES 42188 + . 44833)) (44836 68537 (\TEDIT.CURSORMOVEDFN 44846 . 50456) (\TEDIT.CURSOROUTFN 50458 . 51146) ( +\TEDIT.ACTIVE.WINDOWP 51148 . 52218) (\TEDIT.EXPANDFN 52220 . 52783) (\TEDIT.MAINW 52785 . 54065) ( +\TEDIT.MAINSTREAM 54067 . 54401) (\TEDIT.PRIMARYPANE 54403 . 55173) (\TEDIT.PANELIST 55175 . 55671) ( +\TEDIT.NEWREGIONFN 55673 . 58189) (\TEDIT.SET.WINDOW.EXTENT 58191 . 63173) (\TEDIT.SHRINK.ICONCREATE +63175 . 65908) (\TEDIT.SHRINKFN 65910 . 66319) (\TEDIT.PANEREGION 66321 . 68535)) (68569 101615 ( +\TEDIT.BUTTONEVENTFN 68579 . 81552) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81554 . 88817) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 88819 . 90661) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90663 . 94333) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94335 . 96765) (\TEDIT.BUTTONEVENTFN.INTITLE 96767 . 98602) ( +\TEDIT.COPYINSERTFN 98604 . 99736) (\TEDIT.FOREIGN.COPY 99738 . 101613)) (101616 119179 ( +\TEDIT.PANE.SPLIT 101626 . 105574) (\TEDIT.SPLITW 105576 . 113635) (\TEDIT.UNSPLITW 113637 . 117836) ( +\TEDIT.LINKPANES 117838 . 118601) (\TEDIT.UNLINKPANE 118603 . 119177)) (120613 121504 (TEDITWINDOWP +120623 . 121502)) (121541 124644 (TEDIT.GETINPUT 121551 . 123994) (\TEDIT.MAKEFILENAME 123996 . 124642 +)) (124693 132343 (TEDIT.PROMPTWINDOW 124703 . 125017) (TEDIT.PROMPTPRINT 125019 . 127646) ( +TEDIT.PROMPTCLEAR 127648 . 129390) (TEDIT.PROMPTFLASH 129392 . 130650) (\TEDIT.PROMPT.PAGEFULLFN +130652 . 132341)) (132581 143159 (\TEDIT.FILENAME 132591 . 133363) (\TEDIT.DEFAULT.TITLE 133365 . +135744) (\TEDIT.WINDOW.TITLE 135746 . 137915) (\TEDIT.LIKELY.FILENAME 137917 . 140641) ( +\TEDIT.UPDATE.TITLE 140643 . 143157)) (143202 155686 (TEDIT.DEACTIVATE.WINDOW 143212 . 148785) ( +\TEDIT.RESHAPEFN 148787 . 150872) (\TEDIT.REPAINTFN 150874 . 151098) (\TEDIT.CLOSESPLITS 151100 . +153545) (\TEDIT.CLOSEPANE 153547 . 155684)) (155687 198486 (\TEDIT.SCROLLFN 155697 . 157928) ( +\TEDIT.SCROLLCH.TOP 157930 . 160041) (\TEDIT.SCROLLCH.BOTTOM 160043 . 164373) (\TEDIT.SCROLLUP 164375 + . 170101) (\TEDIT.TOPLINE.YTOP 170103 . 171772) (\TEDIT.SCROLLDOWN 171774 . 178813) ( +\TEDIT.SCROLL.CARET 178815 . 181653) (\TEDIT.VISIBLECARETP 181655 . 183949) (\TEDIT.VISIBLECHARP +183951 . 185042) (\TEDIT.BITMAPLINES 185044 . 188964) (\TEDIT.SETPANE.TOPLINE 188966 . 189578) ( +\TEDIT.SHIFTLINES 189580 . 198484)) (198487 209356 (\TEDIT.ONSCREEN? 198497 . 203048) ( +\TEDIT.ONSCREEN.REGION 203050 . 206701) (\TEDIT.AFTERMOVEFN 206703 . 207600) (OFFSCREENP 207602 . +209354)) (209398 212212 (\TEDIT.PROCIDLEFN 209408 . 211068) (\TEDIT.PROCENTRYFN 211070 . 211515) ( +\TEDIT.PROCEXITFN 211517 . 212210)) (212291 225516 (\TEDIT.DOWNCARET 212301 . 213094) ( +\TEDIT.FLASHCARET 213096 . 215207) (\TEDIT.UPCARET 215209 . 216313) (TEDIT.NORMALIZECARET 216315 . +219533) (\TEDIT.SETCARET 219535 . 224886) (\TEDIT.CARET 224888 . 225514))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 860f4018c0536cbce8c3004f4e714cb477f81034..439ef3627bd97586ed03d67642bfef80a505c0be 100644 GIT binary patch delta 679 zcmZWmO>YuG7?yC+QZcbfYj1Bh+ze!Pc7~nBuRs}K!?Lq($3Rn~LD*JsV;ky)sA-IU zz`7?7UV5;JS3*44_z^Gt72Z7bX8(b+1rpRbyzev5`#$f-%#YLLr_GkH)FW@`LbX(@~*^>91i|q|XjT`c>GCw8fwMltPuul4$w7Y6}-A zVIaBh`8H6)1m#^FC^q9P$y?I%g$GopAd4lSNS|g9MnJY?#dbIllg-#Xo*`n)5N5FE zs0O0pNw`jQ9V&Lq2ZP}$pcYj9Vks*(JYLRD=fX4}?JliE-!I?VKd%+bCy%ZMjoZu< zIIiVzx7grnSoC+4SowblGahbEPiVaPJYmEuO^G||qk$j<>uWyeZjIa3ngqktr$o~( z%Nk&2fx{~ju&%U4zvu{2Uk8k6bew*FmsmPzu(dN#mgJeTgJ8S2^Hkj^22BRt-ZO;_ k12iuT+Is=)?FOCR))3mU0#QIYOEt|;JSC%#S5|-h0Va*UQ~&?~ delta 634 zcmZ9IO=}ZD7{^_5sY#8X5bQyCSON+Xncbb)mt17i%qGijch>DdA{C@$wuMC za`dpC|5R#?fwzn_5N;6hj$ zbP~7K;P+zMZWMFrM9Ysa@xwoLWNOck+N>vrlr0v4A?t)Ra@VLBRR8Z4+5ZA;%fS}% zu_?D+1VpY=fIG4$)^u23O(>1J)bDgT7`9P>p5NwO&}|GM^*HGAgWSXo84K1yM<{<& zeRY>0160@=?+J@-B`#