diff --git a/library/tedit/TEDIT-SELECTION b/library/tedit/TEDIT-SELECTION index cd619a01..b2117271 100644 --- a/library/tedit/TEDIT-SELECTION +++ b/library/tedit/TEDIT-SELECTION @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "16-Apr-2026 09:27:41" {WMEDLEY}TEDIT>TEDIT-SELECTION.;741 161623 +(FILECREATED "13-May-2026 09:38:23" {MEDLEY}tedit>TEDIT-SELECTION.;742 162117 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.SELPIECES.FROM.STRING) + :CHANGES-TO (FNS \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF) + (VARS TEDIT-SELECTIONCOMS) - :PREVIOUS-DATE "10-Apr-2026 09:31:20" {WMEDLEY}TEDIT>TEDIT-SELECTION.;740) + :PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}tedit>TEDIT-SELECTION.;741) (PRETTYCOMPRINT TEDIT-SELECTIONCOMS) @@ -41,9 +42,9 @@ (FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON \TEDIT.SEL.OFF))) - (FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT - \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN - \TEDIT.SEL.DELETEDCHARS) + (FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF \TEDIT.SEL.ON + \TEDIT.SHOWSEL.HILIGHT \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 + \TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS) (FNS \TEDIT.COPYSEL \TEDIT.SEL.CHANGED?)) (COMS (* ; "Image objects") (FNS \TEDIT.SELECT.OBJECT \TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT @@ -1360,6 +1361,16 @@ (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE]) +(\TEDIT.SECONDARYSEL.OFF + [LAMBDA (TSTREAM) (* ; "Edited 13-May-2026 09:36 by rmk") + + (* ;; "Turns off and removes the secondary selection.") + + (LET ((TOBJ (FGETTSTR TSTREAM TEXTOBJ))) + (CL:WHEN (FGETTOBJ TOBJ SECONDARYSEL) + (\TEDIT.SEL.OFF TSTREAM (FGETTOBJ TOBJ SECONDARYSEL)) + (FSETTOBJ TOBJ SECONDARYSEL NIL))]) + (\TEDIT.SEL.ON [LAMBDA (TSTREAM SEL ONLYPANE DONTFIX) (* ; "Edited 5-May-2025 23:21 by rmk") (* ; "Edited 15-Apr-2025 15:20 by rmk") @@ -2561,26 +2572,26 @@ (ADDTOVAR LAMA TEDIT.SELPROP) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (15886 17707 (\TEDIT.SELECTION.DEFPRINT 15896 . 17705)) (17744 19249 ( -\TEDIT.SET.GLOBAL.SELECTIONS 17754 . 19247)) (19250 25471 (\TEDIT.SELECTED.PIECES 19260 . 20899) ( -\TEDIT.FIND.PROTECTED.END 20901 . 22695) (\TEDIT.FIND.PROTECTED.START 22697 . 24680) ( -\TEDIT.WORD.BOUND 24682 . 25469)) (25605 59712 (\TEDIT.EXTEND.SEL 25615 . 32855) (\TEDIT.SCAN.LINE -32857 . 44530) (\TEDIT.SCAN.LINE.WORD 44532 . 49525) (\TEDIT.XYTOSEL 49527 . 56865) (\TEDIT.REGIONTYPE - 56867 . 57886) (\TEDIT.XYTOSEL.INLINEP 57888 . 58343) (\TEDIT.XYTOSEL.LINE 58345 . 59710)) (59713 -73258 (\TEDIT.FIXSEL 59723 . 69100) (\TEDIT.CHTOLINEX 69102 . 73256)) (73259 77463 ( -\TEDIT.RESET.EXTEND.PENDING.DELETE 73269 . 74547) (\TEDIT.SET.SEL.LOOKS 74549 . 77461)) (78400 99553 ( -\TEDIT.SHOWSEL 78410 . 83386) (\TEDIT.NOSEL 83388 . 83689) (\TEDIT.SEL.OFF 83691 . 84102) ( -\TEDIT.SEL.ON 84104 . 84520) (\TEDIT.SHOWSEL.HILIGHT 84522 . 89143) (\TEDIT.UPDATE.SEL 89145 . 93747) -(\TEDIT.CARETLINE 93749 . 94463) (\TEDIT.SEL.L1 94465 . 95148) (\TEDIT.SEL.LN 95150 . 95833) ( -\TEDIT.SEL.DELETEDCHARS 95835 . 99551)) (99554 104436 (\TEDIT.COPYSEL 99564 . 102206) ( -\TEDIT.SEL.CHANGED? 102208 . 104434)) (104467 118126 (\TEDIT.SELECT.OBJECT 104477 . 109430) ( -\TEDIT.SHOWSEL.OBJECT 109432 . 111663) (\TEDIT.CLIP.OBJECT 111665 . 113669) (\TEDIT.OPERATE.OBJECT -113671 . 118124)) (118154 137453 (\TEDIT.SELPIECES 118164 . 122445) (\TEDIT.SELPIECES.COPY 122447 . -124936) (\TEDIT.SELPIECES.CONCAT 124938 . 126817) (\TEDIT.SELPIECES.CHARTRANSFORM 126819 . 130189) ( -\TEDIT.SELPIECES.FROM.STRING 130191 . 135088) (\TEDIT.SELPIECES.TO.STRING 135090 . 137451)) (137506 -161454 (TEDIT.XYTOCH 137516 . 140092) (TEDIT.SELPROP 140094 . 144371) (TEDIT.GETPOINT 144373 . 146293) - (TEDIT.GETSEL 146295 . 147171) (TEDIT.GETSEL.PARA 147173 . 148122) (TEDIT.SCANSEL 148124 . 149072) ( -TEDIT.SET.SEL.LOOKS 149074 . 150559) (TEDIT.SETSEL 150561 . 155479) (TEDIT.SHOWSEL 155481 . 157345) ( -TEDIT.SEL.AS.STRING 157347 . 159832) (TEDIT.SEL.AS.SEXPR 159834 . 161120) (TEDIT.SELECTALL 161122 . -161452))))) + (FILEMAP (NIL (15963 17784 (\TEDIT.SELECTION.DEFPRINT 15973 . 17782)) (17821 19326 ( +\TEDIT.SET.GLOBAL.SELECTIONS 17831 . 19324)) (19327 25548 (\TEDIT.SELECTED.PIECES 19337 . 20976) ( +\TEDIT.FIND.PROTECTED.END 20978 . 22772) (\TEDIT.FIND.PROTECTED.START 22774 . 24757) ( +\TEDIT.WORD.BOUND 24759 . 25546)) (25682 59789 (\TEDIT.EXTEND.SEL 25692 . 32932) (\TEDIT.SCAN.LINE +32934 . 44607) (\TEDIT.SCAN.LINE.WORD 44609 . 49602) (\TEDIT.XYTOSEL 49604 . 56942) (\TEDIT.REGIONTYPE + 56944 . 57963) (\TEDIT.XYTOSEL.INLINEP 57965 . 58420) (\TEDIT.XYTOSEL.LINE 58422 . 59787)) (59790 +73335 (\TEDIT.FIXSEL 59800 . 69177) (\TEDIT.CHTOLINEX 69179 . 73333)) (73336 77540 ( +\TEDIT.RESET.EXTEND.PENDING.DELETE 73346 . 74624) (\TEDIT.SET.SEL.LOOKS 74626 . 77538)) (78477 100047 +(\TEDIT.SHOWSEL 78487 . 83463) (\TEDIT.NOSEL 83465 . 83766) (\TEDIT.SEL.OFF 83768 . 84179) ( +\TEDIT.SECONDARYSEL.OFF 84181 . 84596) (\TEDIT.SEL.ON 84598 . 85014) (\TEDIT.SHOWSEL.HILIGHT 85016 . +89637) (\TEDIT.UPDATE.SEL 89639 . 94241) (\TEDIT.CARETLINE 94243 . 94957) (\TEDIT.SEL.L1 94959 . 95642 +) (\TEDIT.SEL.LN 95644 . 96327) (\TEDIT.SEL.DELETEDCHARS 96329 . 100045)) (100048 104930 ( +\TEDIT.COPYSEL 100058 . 102700) (\TEDIT.SEL.CHANGED? 102702 . 104928)) (104961 118620 ( +\TEDIT.SELECT.OBJECT 104971 . 109924) (\TEDIT.SHOWSEL.OBJECT 109926 . 112157) (\TEDIT.CLIP.OBJECT +112159 . 114163) (\TEDIT.OPERATE.OBJECT 114165 . 118618)) (118648 137947 (\TEDIT.SELPIECES 118658 . +122939) (\TEDIT.SELPIECES.COPY 122941 . 125430) (\TEDIT.SELPIECES.CONCAT 125432 . 127311) ( +\TEDIT.SELPIECES.CHARTRANSFORM 127313 . 130683) (\TEDIT.SELPIECES.FROM.STRING 130685 . 135582) ( +\TEDIT.SELPIECES.TO.STRING 135584 . 137945)) (138000 161948 (TEDIT.XYTOCH 138010 . 140586) ( +TEDIT.SELPROP 140588 . 144865) (TEDIT.GETPOINT 144867 . 146787) (TEDIT.GETSEL 146789 . 147665) ( +TEDIT.GETSEL.PARA 147667 . 148616) (TEDIT.SCANSEL 148618 . 149566) (TEDIT.SET.SEL.LOOKS 149568 . +151053) (TEDIT.SETSEL 151055 . 155973) (TEDIT.SHOWSEL 155975 . 157839) (TEDIT.SEL.AS.STRING 157841 . +160326) (TEDIT.SEL.AS.SEXPR 160328 . 161614) (TEDIT.SELECTALL 161616 . 161946))))) STOP diff --git a/library/tedit/TEDIT-SELECTION.LCOM b/library/tedit/TEDIT-SELECTION.LCOM index ff537247..07ca221a 100644 Binary files a/library/tedit/TEDIT-SELECTION.LCOM and b/library/tedit/TEDIT-SELECTION.LCOM differ diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index 665a3812..04d9cf75 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 "10-May-2026 18:05:02" {MEDLEY}tedit>TEDIT-WINDOW.;899 235055 +(FILECREATED "13-May-2026 09:38:48" {MEDLEY}tedit>TEDIT-WINDOW.;900 235247 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION) + :CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN) - :PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}tedit>TEDIT-WINDOW.;896) + :PREVIOUS-DATE "10-May-2026 18:05:02" {MEDLEY}tedit>TEDIT-WINDOW.;899) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -1157,7 +1157,8 @@ (DEFINEQ (\TEDIT.BUTTONEVENTFN - [LAMBDA (PANE) (* ; "Edited 15-Jan-2026 00:39 by rmk") + [LAMBDA (PANE) (* ; "Edited 13-May-2026 09:32 by rmk") + (* ; "Edited 15-Jan-2026 00:39 by rmk") (* ; "Edited 11-Jan-2026 08:30 by rmk") (* ; "Edited 6-May-2025 20:35 by rmk") (* ; "Edited 21-Apr-2025 20:19 by rmk") @@ -1236,13 +1237,14 @@ then (* ;  "Mouse moved out and came back...and clicked.") (SETQ CUROPERATION (FGETSEL CURSEL - SELOPERATION)) + SELOPERATION)) + (* ; "Shift keys of secondary selection") (SETQ PENDINGDEL (EQ CUROPERATION 'PENDINGDEL)) (CL:UNLESS (EQ NEWOPERATION CUROPERATION) (* ; - "Shift keys have changed, turn off old secondary") - (\TEDIT.SEL.OFF TSTREAM CURSEL)) + "If shift keys have changed, turn off old secondary") + (\TEDIT.SECONDARYSEL.OFF TSTREAM)) (CL:WHEN (EQ NEWOPERATION 'NORMAL) (* ; "") (CL:UNLESS (SETQ CURSEL ( @@ -3700,36 +3702,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (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))))) + (FILEMAP (NIL (17098 17994 (TEDIT.DEFER.UPDATES 17108 . 17992)) (17995 46302 (\TEDIT.WINDOW.CREATE +18005 . 24868) (\TEDIT.WINDOW.GETREGION 24870 . 30463) (\TEDIT.WINDOW.SETUP 30465 . 34972) ( +\TEDIT.MINIMAL.WINDOW.SETUP 34974 . 42934) (\TEDIT.CLEARPANE 42936 . 43653) (\TEDIT.FILL.PANES 43655 + . 46300)) (46303 70030 (\TEDIT.CURSORMOVEDFN 46313 . 51840) (\TEDIT.CURSOROUTFN 51842 . 52639) ( +\TEDIT.ACTIVE.WINDOWP 52641 . 53711) (\TEDIT.EXPANDFN 53713 . 54276) (\TEDIT.MAINW 54278 . 55558) ( +\TEDIT.MAINSTREAM 55560 . 55894) (\TEDIT.PRIMARYPANE 55896 . 56666) (\TEDIT.PANELIST 56668 . 57164) ( +\TEDIT.NEWREGIONFN 57166 . 59682) (\TEDIT.SET.WINDOW.EXTENT 59684 . 64666) (\TEDIT.SHRINK.ICONCREATE +64668 . 67401) (\TEDIT.SHRINKFN 67403 . 67812) (\TEDIT.PANEREGION 67814 . 70028)) (70062 105406 ( +\TEDIT.BUTTONEVENTFN 70072 . 84998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 85000 . 92471) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 92473 . 94315) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94317 . 97987) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 97989 . 100419) (\TEDIT.BUTTONEVENTFN.INTITLE 100421 . 102256) ( +\TEDIT.COPYINSERTFN 102258 . 103390) (\TEDIT.FOREIGN.COPY 103392 . 105404)) (105407 122970 ( +\TEDIT.PANE.SPLIT 105417 . 109365) (\TEDIT.SPLITW 109367 . 117426) (\TEDIT.UNSPLITW 117428 . 121627) ( +\TEDIT.LINKPANES 121629 . 122392) (\TEDIT.UNLINKPANE 122394 . 122968)) (124404 125295 (TEDITWINDOWP +124414 . 125293)) (125332 128435 (TEDIT.GETINPUT 125342 . 127785) (\TEDIT.MAKEFILENAME 127787 . 128433 +)) (128484 136567 (TEDIT.PROMPTWINDOW 128494 . 128808) (TEDIT.PROMPTPRINT 128810 . 131777) ( +TEDIT.PROMPTCLEAR 131779 . 133614) (TEDIT.PROMPTFLASH 133616 . 134874) (\TEDIT.PROMPT.PAGEFULLFN +134876 . 136565)) (136805 147383 (\TEDIT.FILENAME 136815 . 137587) (\TEDIT.DEFAULT.TITLE 137589 . +139968) (\TEDIT.WINDOW.TITLE 139970 . 142139) (\TEDIT.LIKELY.FILENAME 142141 . 144865) ( +\TEDIT.UPDATE.TITLE 144867 . 147381)) (147426 160153 (TEDIT.DEACTIVATE.WINDOW 147436 . 153252) ( +\TEDIT.RESHAPEFN 153254 . 155339) (\TEDIT.REPAINTFN 155341 . 155565) (\TEDIT.CLOSESPLITS 155567 . +158012) (\TEDIT.CLOSEPANE 158014 . 160151)) (160154 202953 (\TEDIT.SCROLLFN 160164 . 162395) ( +\TEDIT.SCROLLCH.TOP 162397 . 164508) (\TEDIT.SCROLLCH.BOTTOM 164510 . 168840) (\TEDIT.SCROLLUP 168842 + . 174568) (\TEDIT.TOPLINE.YTOP 174570 . 176239) (\TEDIT.SCROLLDOWN 176241 . 183280) ( +\TEDIT.SCROLL.CARET 183282 . 186120) (\TEDIT.VISIBLECARETP 186122 . 188416) (\TEDIT.VISIBLECHARP +188418 . 189509) (\TEDIT.BITMAPLINES 189511 . 193431) (\TEDIT.SETPANE.TOPLINE 193433 . 194045) ( +\TEDIT.SHIFTLINES 194047 . 202951)) (202954 213823 (\TEDIT.ONSCREEN? 202964 . 207515) ( +\TEDIT.ONSCREEN.REGION 207517 . 211168) (\TEDIT.AFTERMOVEFN 211170 . 212067) (OFFSCREENP 212069 . +213821)) (213865 216679 (\TEDIT.PROCIDLEFN 213875 . 215535) (\TEDIT.PROCENTRYFN 215537 . 215982) ( +\TEDIT.PROCEXITFN 215984 . 216677)) (216758 229983 (\TEDIT.DOWNCARET 216768 . 217561) ( +\TEDIT.FLASHCARET 217563 . 219674) (\TEDIT.UPCARET 219676 . 220780) (TEDIT.NORMALIZECARET 220782 . +224000) (\TEDIT.SETCARET 224002 . 229353) (\TEDIT.CARET 229355 . 229981))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index f171caf6..ded88d84 100644 Binary files a/library/tedit/TEDIT-WINDOW.LCOM and b/library/tedit/TEDIT-WINDOW.LCOM differ