From 2bf791ed7ae9dfe322636c5bbb41217a2d50379f Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 10 May 2026 21:11:05 -0700 Subject: [PATCH] Kill Tedit process when window closes, close attached menus properly --- library/tedit/TEDIT-MENU | 66 +++++++++++----------- library/tedit/TEDIT-MENU.LCOM | Bin 55050 -> 54974 bytes library/tedit/TEDIT-WINDOW | 94 ++++++++++++++++---------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62769 -> 62877 bytes 4 files changed, 81 insertions(+), 79 deletions(-) diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU index 931fc43b..95745c31 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 "29-Apr-2026 15:35:33" {MEDLEY}TEDIT>TEDIT-MENU.;512 183159 +(FILECREATED "10-May-2026 17:15:14" {MEDLEY}tedit>TEDIT-MENU.;513 183190 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS) + :CHANGES-TO (FNS \TEDIT.MENU.START) - :PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}TEDIT>TEDIT-MENU.;510) + :PREVIOUS-DATE "29-Apr-2026 15:35:33" {MEDLEY}tedit>TEDIT-MENU.;512) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -1161,7 +1161,8 @@ TSTREAM]) (\TEDIT.MENU.START - [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 14-Mar-2025 16:13 by rmk") + [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 10-May-2026 17:12 by rmk") + (* ; "Edited 14-Mar-2025 16:13 by rmk") (* ; "Edited 28-Jun-2024 23:08 by rmk") (* ; "Edited 19-Apr-2024 10:53 by rmk") (* ; "Edited 10-Apr-2024 23:04 by rmk") @@ -1195,7 +1196,6 @@ WIDTH _ (fetch (REGION WIDTH) of WREG) HEIGHT _ (OR HEIGHT 133)) TITLE)) - (WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW)) (WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu")) (* ; "Mark this as a TEDIT MENU window") (ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE) @@ -2899,32 +2899,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) ( -TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351 - . 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) ( -MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985) - (MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) ( -MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367 - . 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN -54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) ( -MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984 - . 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START - 68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846 -81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE -79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 ( -\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) ( -\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 ( -\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) ( -\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) ( -\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 ( -\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC -124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) ( -\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) ( -\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) ( -\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) ( -\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN - 158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739) - (\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) ( -177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN -180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001))))) + (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) ( +TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347 + . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) ( +MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981) + (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) ( +MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363 + . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN +54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) ( +MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980 + . 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START + 68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877 +81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE +79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 ( +\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) ( +\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 ( +\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) ( +\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) ( +\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 ( +\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC +124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) ( +\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) ( +\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) ( +\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) ( +\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN + 158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770) + (\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) ( +177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN +180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index d3c531af6b7131afdd6aa7507f39db976e7ec634..095cbe6c42666f40b178c61ec8effb52ab452110 100644 GIT binary patch delta 970 zcmZ`&%Wl&^6m8VPB5PEk3ec62NK@fx9-i0^sFGt(%CvsT9ye{(O{#Vgfr_ZgqC${8 zY$*8!Bvv4yERo;?_zix6J=aOqJXE~#ozc1HoH;Z1{kP?xUzb02?@(e!y$h2O)&y#| zsAy5^^7%va{N%WQzNuxPv>C~`Xgm>=*P&{Fm}#JhZV7(*5Kl+S?}y(bK-P$!75OP zQ68S4(V5C;z(%hF~J%$-}I>)4AVFl)-h&?bVT z^eReV=rT@po`wp&wnKzt`au%cG*%q6(xEJ045|&Ni-FB{Q)hvW+SqaxFBL9Ccn|78 z0<}0q-rl69HiU`qg?^aeqo9<*c9Cn<*~f%z(D(uz{FSp-3IoTGG)_VE07n9tL%@hm XPG1|qYzBswIGLsat{6Sq`Sal)0FeL1 delta 1026 zcma)5L2J}N6zDM$IC76J8n^V9i3nn`^XkFVqy53&;H(xkFAa#p zh~^3JrL>@%0sdmfN(!2Z>>W!gGA=Z6f2w;v0V_VxE_j^hvJW7FC z24tn`M`z@p7e!GQ83Zy!T?5*&VK+*PG8Yx- zQ1%Cjwo##-fOY$w@YG7bpr(r7E&GLit{d>3AW5Oji|J=7Ne;EULK( z(;-lT9?n!7b8y7Ll8NJ_V?lyf6Fm}u9SaHHu4Bd^mOhXDSYn?L>cD1Ms3_dQn1RBk zAO^mx!K|18dn(L@@G67-4G~Nnb~-Rd82bQ)!cj_atZ)!*(2~QG7aCB<0Zoa6qf=eO M8zGlhn?K+D0k@V8CjbBd diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index d675e84a..665a3812 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,12 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED " 7-Feb-2026 18:53:22" {WMEDLEY}TEDIT>TEDIT-WINDOW.;896 234678 +(FILECREATED "10-May-2026 18:05:02" {MEDLEY}tedit>TEDIT-WINDOW.;899 235055 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.PROMPTPRINT) + :CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION) - :PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}TEDIT>TEDIT-WINDOW.;895) + :PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}tedit>TEDIT-WINDOW.;896) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -458,7 +458,8 @@ WINDOW]) (\TEDIT.WINDOW.GETREGION - [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 5-Feb-2026 08:24 by rmk") + [LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 10-May-2026 16:32 by rmk") + (* ; "Edited 5-Feb-2026 08:24 by rmk") (* ; "Edited 27-Jan-2026 15:30 by rmk") (* ; "Edited 25-Jan-2026 20:09 by rmk") (* ; "Edited 25-Oct-2025 10:27 by rmk") @@ -552,7 +553,7 @@ (CL:WHEN (TXTFILE TSTREAM) (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME))) (TERPRI PROMPTWINDOW) - (GETBOXREGION WIDTH HEIGHT]) + (GETREGION WIDTH HEIGHT]) (\TEDIT.WINDOW.SETUP [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk") @@ -2393,7 +2394,8 @@ (DEFINEQ (TEDIT.DEACTIVATE.WINDOW - [LAMBDA (PANE) (* ; "Edited 30-May-2025 12:54 by rmk") + [LAMBDA (PANE) (* ; "Edited 10-May-2026 18:03 by rmk") + (* ; "Edited 30-May-2025 12:54 by rmk") (* ; "Edited 9-May-2025 14:54 by rmk") (* ; "Edited 6-May-2025 15:57 by rmk") (* ; "Edited 4-May-2025 21:45 by rmk") @@ -2455,7 +2457,10 @@  "Close the file that this window was open on.") (CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW) (replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T) - (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE)))) (* ; "Close any open menus") + (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE)))) + (CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG) (* ; + "This is a menu, detach it so that space closes up") + (FREEATTACHEDWINDOW PANEWINDOW)) (* ; " Close any open menus") (for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T)) (FGETTOBJ MTEXTOBJ MENUFLG)) do @@ -2463,12 +2468,9 @@ (FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T) (WINDOWPROP MENUW 'TEDITMENU NIL) - (GIVE.TTY.PROCESS MENUW)) - (\TEDIT.CLOSEPANE PANE T) (* ; "We're already closing") - - (* ;; "Let it kill itself") - - (GIVE.TTY.PROCESS PANE]) + (TEDIT.KILL MTEXTOBJ)) + (\TEDIT.CLOSEPANE PANE T) + (TEDIT.KILL TSTREAM]) (\TEDIT.RESHAPEFN [LAMBDA (PANE BITS OLDREGION) (* ; "Edited 20-Apr-2025 12:55 by rmk") @@ -3698,36 +3700,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE -18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) ( -\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548 - . 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) ( -\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) ( -\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) ( -\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE -64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 ( -\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) ( -\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 ( -\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) ( -\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP -124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107 -)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) ( -TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN -134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 . -139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) ( -\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) ( -\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 . -157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) ( -\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273 - . 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) ( -\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP -187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) ( -\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) ( -\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 . -213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) ( -\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) ( -\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 . -223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412))))) + (FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE +18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) ( +\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682 + . 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) ( +\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) ( +\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) ( +\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE +64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 ( +\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) ( +\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 ( +\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) ( +\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP +124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241 +)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) ( +TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN +134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 . +139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) ( +\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) ( +\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 . +157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) ( +\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650 + . 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) ( +\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP +188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) ( +\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) ( +\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 . +213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) ( +\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) ( +\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 . +223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index a8581c7f40955e9aa3419c45e62e47c7f34fa0a5..f171caf6cd04c1a562907bf5cb8d37c268a13989 100644 GIT binary patch delta 1770 zcma)6O>7%g5RPM@sY{z5rNNCN7*rI_V1rutgI7yq} z^b#TD1_altY&oI|R26YRN*eXRf%qD8La0KKdf1JdD9m=xqmBHh{@@qW2EP^+M`^sH$@r&25yHwrc6reD@S}m2Uj1j$9@0pQt=+2++?g~!5(1l+k z+%E**X4Fb|;jDKvG?px!{b_lBzc6u}N%ung{jVO&USV{I{T}pX8*}}_3ECHYVA8>X zw>s{Mr%Jc2Pq({%_x=uXwW%rJga2!EZ7G4`Kr`fXONaMIXqzbx)#>18bchZ7IQcx&C`KCL<^AGVosQB- z(04s4}svons#zRZBucanD0wgWJsDAfaYu$WWv`VZOl0!i*k$L1;{wsbkv=<^;EQ# zmlPKuO)a;%_Ug@;Q%+G1(yp=q6JExDwS1+rdW{2FRe^Ka(~Go{ z0M1@1FRYhgeXV@CvbX^Ys4HWld@O-=tNtk^l%2nNe_jhDy+=1vfge5CyxTMLz1p>O zaPNY*yEzibdXF|IYL<`ey4ihc>$|Rqgrjfn+l+zFwZ!8jXIpc{e%m0b2nR$9oxT7f zZbFB$h*)YZYtp27-QPJ;RzY)JEt%C*&GpEGDC5TCsF*x-bm4vc;h#Z?7k6%awEf;c DST5ZF delta 1687 zcmZux&u<%55VqqYid&*IwTc@>>98sx7TEIsc1}9FO zI+3afp{U_6C|iyQfhr*mNJ%XY9EvX-@S(Q~<$#35k#a~Bi8J%oPUFz{FmK-MyqRyl zneo>z0(*Z4Zce1NjBaYtjBaRA-ONxJvy!P>$*cyPZaSK6=mm>|F2$UbO=BiZ zL{4goE0cmWDTo{d&(8E}BGP(m;J4Rjcoht=kY`BcOvV?s3ZwKj6;3tC)4}Y9nLU&(~iPB)@k@@AG?=RQ6z-^0DZ!n`LI=F`%HM2C+a(NJl)O@{_bL%Z&I=D%E7xfH%k!}Q8g%cdjr`r(sXQ}p_$bd-+0 z`5N;mjd#K;`=#q`%F*%8#pfliZMLqVI?);Oz#M!-fkwtV=YOu~hu^mK60~V}<#{Q* z`=j|ih2?|qDEvYPf1up*!DGs`-n;1cZ!02XHD{X6BU3sxfg}iWW#gCuktJZ`#seV| z^I{xgn=K%c0Jso91m)O+=fRnG*mMDjlb%&l)MG6XKh_9=lz|D@G{d$e@sQEyZIG~i zo+7FOWbNd1)LF2!bhL*{lm*C8)9KDGh?44EJvaj4VbR;DSccm9q+{S#gMibKE?B(> zd_san-7L)7T6f=YYE)QsThE3Ayv)0M&qCWggXZlvso>#f*gn9bfa0RHbIiyKi<8HD2`i3tynL3;-wQGN2l;C zatZ|3orAlLCQ3;qD4W%#T4N1w2^Bb}TB&WKju|+sUM+7_VPm~|r*?M>%It+mARbeZ z1l2o5CDAg6{#^GHH})Xy|JB`i@YsE4=Zb&Iy|MHDYTjGhwlT1{`_wlf#!< Ll-56A?A`khE>Xy{