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}<library>TEDIT>TEDIT-SELECTION.;741 161623 
+(FILECREATED "13-May-2026 09:38:23" {MEDLEY}<library>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}<library>TEDIT>TEDIT-SELECTION.;740)
+      :PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}<library>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}<library>tedit>TEDIT-WINDOW.;899 235055 
+(FILECREATED "13-May-2026 09:38:48" {MEDLEY}<library>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}<library>tedit>TEDIT-WINDOW.;896)
+      :PREVIOUS-DATE "10-May-2026 18:05:02" {MEDLEY}<library>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
