diff --git a/library/tedit/TEDIT-SELECTION b/library/tedit/TEDIT-SELECTION
index b2117271..6db9d430 100644
--- a/library/tedit/TEDIT-SELECTION
+++ b/library/tedit/TEDIT-SELECTION
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED "13-May-2026 09:38:23" {MEDLEY}<library>tedit>TEDIT-SELECTION.;742 162117 
+(FILECREATED "15-May-2026 10:48:32" {MEDLEY}<library>TEDIT>TEDIT-SELECTION.;743 162591 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF)
+      :CHANGES-TO (FNS \TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF)
                   (VARS TEDIT-SELECTIONCOMS)
 
       :PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}<library>tedit>TEDIT-SELECTION.;741)
@@ -822,6 +822,7 @@
 
 (\TEDIT.XYTOSEL
   [LAMBDA (X Y NEWSEL TSTREAM SELOPERATION PANE BUTTON CURSEL REGIONTYPE)
+                                                             (* ; "Edited 15-May-2026 09:48 by rmk")
                                                              (* ; "Edited 21-Apr-2025 20:33 by rmk")
                                                              (* ; "Edited  6-Apr-2025 18:57 by rmk")
                                                              (* ; "Edited 13-Feb-2025 11:03 by rmk")
@@ -849,7 +850,7 @@
            LINE PARAFIRSTCHNO PARALASTCHNO SELFN)
           (CL:UNLESS (SETQ LINE (\TEDIT.XYTOSEL.LINE X Y PANE TEXTOBJ))
                  (RETURN))
-          (SELECTQ (\TEDIT.REGIONTYPE BUTTON CURSEL TEXTOBJ REGIONTYPE)
+          (SELECTQ REGIONTYPE
               ((TEXT PANE)                                   (* ; 
                                                    "We're in the regular text area, which character?")
                    (CL:WHEN (AND (IGREATERP (GETLD LINE LCHARLIM)
@@ -934,24 +935,28 @@
           (RETURN NEWSEL])
 
 (\TEDIT.REGIONTYPE
-  [LAMBDA (BUTTON CURSEL TEXTOBJ REGIONTYPE)                 (* ; "Edited  6-Dec-2024 12:50 by rmk")
+  [LAMBDA (CURSEL TEXTOBJ)                                   (* ; "Edited 15-May-2026 10:43 by rmk")
+                                                             (* ; "Edited  6-Dec-2024 12:50 by rmk")
 
     (* ;; "Coerces the mouse region according to the button and current selection.")
 
-    (CL:UNLESS REGIONTYPE
-        (SETQ REGIONTYPE (FGETTOBJ TEXTOBJ MOUSEREGION)))
-    (SELECTQ BUTTON
-        (MIDDLE (CL:WHEN (AND (EQ REGIONTYPE 'LINE)
-                              (FGETTOBJ TEXTOBJ PARABREAKCHARS))
+    (LET ((MOUSEREGION (FGETTOBJ TEXTOBJ MOUSEREGION)))
+         (if (NEQ MOUSEREGION 'LINE)
+             then 'TEXT
+           elseif (\TEDIT.MOUSESTATE MIDDLE)
+             then 
+                  (* ;; "A middle-button selection in the line region means the line-containing paragraph.  If there are no PARABREAKCHARS, we assume heuristically that there are no paragraphs, and a line is just a line.  Otherwise, a middle click in such a document will select the whole thing, not very useful.")
 
-                    (* ;; "A middle-button selection in the line region means the line-containing paragraph.  If there are no PARABREAKCHARS, we assume heuristically that there are no paragraphs, and a line is just a line.  Otherwise, a middle click in such a document will select the whole thing, not very useful.")
-
-                    (SETQ REGIONTYPE 'PARA)))
-        (RIGHT (SETQ REGIONTYPE (OR [CAR (MEMB (FGETSEL CURSEL SELKIND)
-                                               '(LINE PARA]
-                                    'TEXT)))
-        NIL)
-    REGIONTYPE])
+                  (CL:IF (FGETTOBJ TEXTOBJ PARABREAKCHARS)
+                      'PARA
+                      'LINE)
+           elseif (\TEDIT.MOUSESTATE RIGHT)
+             then                                            (* ; "Extending previous t ype")
+                  (OR [AND CURSEL (CAR (MEMB (FGETSEL CURSEL SELKIND)
+                                             '(LINE PARA]
+                      'LINE)
+           else                                              (* ; "No button or left button")
+                'LINE])
 
 (\TEDIT.XYTOSEL.INLINEP
   [LAMBDA (X Y PANE TEXTOBJ)                                 (* ; "Edited 30-Nov-2024 15:46 by rmk")
@@ -2572,26 +2577,26 @@
 (ADDTOVAR LAMA TEDIT.SELPROP)
 )
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (15996 17817 (\TEDIT.SELECTION.DEFPRINT 16006 . 17815)) (17854 19359 (
+\TEDIT.SET.GLOBAL.SELECTIONS 17864 . 19357)) (19360 25581 (\TEDIT.SELECTED.PIECES 19370 . 21009) (
+\TEDIT.FIND.PROTECTED.END 21011 . 22805) (\TEDIT.FIND.PROTECTED.START 22807 . 24790) (
+\TEDIT.WORD.BOUND 24792 . 25579)) (25715 60263 (\TEDIT.EXTEND.SEL 25725 . 32965) (\TEDIT.SCAN.LINE 
+32967 . 44640) (\TEDIT.SCAN.LINE.WORD 44642 . 49635) (\TEDIT.XYTOSEL 49637 . 57038) (\TEDIT.REGIONTYPE
+ 57040 . 58437) (\TEDIT.XYTOSEL.INLINEP 58439 . 58894) (\TEDIT.XYTOSEL.LINE 58896 . 60261)) (60264 
+73809 (\TEDIT.FIXSEL 60274 . 69651) (\TEDIT.CHTOLINEX 69653 . 73807)) (73810 78014 (
+\TEDIT.RESET.EXTEND.PENDING.DELETE 73820 . 75098) (\TEDIT.SET.SEL.LOOKS 75100 . 78012)) (78951 100521 
+(\TEDIT.SHOWSEL 78961 . 83937) (\TEDIT.NOSEL 83939 . 84240) (\TEDIT.SEL.OFF 84242 . 84653) (
+\TEDIT.SECONDARYSEL.OFF 84655 . 85070) (\TEDIT.SEL.ON 85072 . 85488) (\TEDIT.SHOWSEL.HILIGHT 85490 . 
+90111) (\TEDIT.UPDATE.SEL 90113 . 94715) (\TEDIT.CARETLINE 94717 . 95431) (\TEDIT.SEL.L1 95433 . 96116
+) (\TEDIT.SEL.LN 96118 . 96801) (\TEDIT.SEL.DELETEDCHARS 96803 . 100519)) (100522 105404 (
+\TEDIT.COPYSEL 100532 . 103174) (\TEDIT.SEL.CHANGED? 103176 . 105402)) (105435 119094 (
+\TEDIT.SELECT.OBJECT 105445 . 110398) (\TEDIT.SHOWSEL.OBJECT 110400 . 112631) (\TEDIT.CLIP.OBJECT 
+112633 . 114637) (\TEDIT.OPERATE.OBJECT 114639 . 119092)) (119122 138421 (\TEDIT.SELPIECES 119132 . 
+123413) (\TEDIT.SELPIECES.COPY 123415 . 125904) (\TEDIT.SELPIECES.CONCAT 125906 . 127785) (
+\TEDIT.SELPIECES.CHARTRANSFORM 127787 . 131157) (\TEDIT.SELPIECES.FROM.STRING 131159 . 136056) (
+\TEDIT.SELPIECES.TO.STRING 136058 . 138419)) (138474 162422 (TEDIT.XYTOCH 138484 . 141060) (
+TEDIT.SELPROP 141062 . 145339) (TEDIT.GETPOINT 145341 . 147261) (TEDIT.GETSEL 147263 . 148139) (
+TEDIT.GETSEL.PARA 148141 . 149090) (TEDIT.SCANSEL 149092 . 150040) (TEDIT.SET.SEL.LOOKS 150042 . 
+151527) (TEDIT.SETSEL 151529 . 156447) (TEDIT.SHOWSEL 156449 . 158313) (TEDIT.SEL.AS.STRING 158315 . 
+160800) (TEDIT.SEL.AS.SEXPR 160802 . 162088) (TEDIT.SELECTALL 162090 . 162420)))))
 STOP
diff --git a/library/tedit/TEDIT-SELECTION.LCOM b/library/tedit/TEDIT-SELECTION.LCOM
index 07ca221a..56be8c44 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 562b849b..65f92145 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 "14-May-2026 23:20:59" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;904 236190 
+(FILECREATED "15-May-2026 12:53:42" {MEDLEY}<library>tedit>TEDIT-WINDOW.;906 236110 
 
       :EDIT-BY rmk
 
@@ -1177,7 +1177,7 @@
 (DEFINEQ
 
 (\TEDIT.BUTTONEVENTFN
-  [LAMBDA (PANE)                                             (* ; "Edited 14-May-2026 23:20 by rmk")
+  [LAMBDA (PANE)                                             (* ; "Edited 15-May-2026 12:31 by rmk")
                                                              (* ; "Edited 13-May-2026 13:26 by rmk")
                                                              (* ; "Edited 15-Jan-2026 00:39 by rmk")
                                                              (* ; "Edited 11-Jan-2026 08:30 by rmk")
@@ -1217,7 +1217,7 @@
               (OLDX _ MIN.SMALLP)
               (OLDY _ MIN.SMALLP)
               (PREG _ (PANEREGION PANE))
-              TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL
+              TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL REGIONTYPE
            declare (SPECVARS CURSEL) first 
 
                                       (* ;; "Pick off and return from a bunch of peripheral situations, then fall through to the complexities of normal text selection.")
@@ -1272,6 +1272,7 @@
                                                              (* ; 
                                                       "Gets line-chains and consistent initial looks")
                                            (FSETTOBJ TEXTOBJ LASTARROWX NIL)
+                                           (SETQ REGIONTYPE (\TEDIT.REGIONTYPE CURSEL TEXTOBJ))
            eachtime (BLOCK)                                  (* ; "Give other processes a chance")
                  (GETMOUSESTATE)                             (* ; 
                                                              "And get the new mouse and key info")
@@ -1286,12 +1287,8 @@
                                         (EQ CUROPERATION NEWOPERATION))
            do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
                                 X Y)                         (* ; 
-                                                     "Left the window, stay in the loop if scrolling")
-                  (CL:UNLESS (IN/SCROLL/BAR? PANE LASTMOUSEX LASTMOUSEY)
-                                                             (* ; 
-    "Stay in the loop if scrolling, otherwise leave but perhaps come back to the same configuration.")
-                      (RETURN))
-                  (SCROLL.HANDLER PANE)) 
+                   "Left the window, relinquish control until a button click or cursor comes back in")
+                  (RETURN)) 
 
               (* ;; "")
 
@@ -1321,7 +1318,7 @@
               (if (\TEDIT.MOUSESTATE RIGHT)
                   then                                       (* ; 
                                                            "Right button: NEWSEL extends last CURSEL")
-                       (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL)
+                       (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL REGIONTYPE)
                        (CL:WHEN (FGETSEL NEWSEL SET)
                            (CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL)
                                          (EQ CUROPERATION 'NORMAL)
@@ -1341,10 +1338,12 @@
                                                              (* ; "No valid selection, go to cleanup")
                 else (if (\TEDIT.MOUSESTATE LEFT)
                          then                                (* ; "Left selects char/point. ")
-                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL)
+                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL 
+                                     REGIONTYPE)
                        elseif (\TEDIT.MOUSESTATE MIDDLE)
                          then                                (* ; "Middle selects word/line")
-                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL))
+                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL 
+                                     REGIONTYPE))
                      (CL:WHEN (AND (FGETSEL NEWSEL SET)
                                    (\TEDIT.SEL.CHANGED? NEWSEL CURSEL)
                                    (OR (NOT (ALLBUTTONSUP))
@@ -3722,28 +3721,28 @@
  (\TEDIT.MAINW 55901 . 57181) (\TEDIT.MAINSTREAM 57183 . 57517) (\TEDIT.PRIMARYPANE 57519 . 58289) (
 \TEDIT.PANELIST 58291 . 58787) (\TEDIT.NEWREGIONFN 58789 . 61305) (\TEDIT.SET.WINDOW.EXTENT 61307 . 
 66289) (\TEDIT.SHRINK.ICONCREATE 66291 . 69024) (\TEDIT.SHRINKFN 69026 . 69435) (\TEDIT.PANEREGION 
-69437 . 71651)) (71685 106349 (\TEDIT.BUTTONEVENTFN 71695 . 85941) (\TEDIT.BUTTONEVENTFN.DOOPERATION 
-85943 . 93414) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93416 . 95258) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 
-95260 . 98930) (\TEDIT.BUTTONEVENTFN.INACTIVE 98932 . 101362) (\TEDIT.BUTTONEVENTFN.INTITLE 101364 . 
-103199) (\TEDIT.COPYINSERTFN 103201 . 104333) (\TEDIT.FOREIGN.COPY 104335 . 106347)) (106350 123913 (
-\TEDIT.PANE.SPLIT 106360 . 110308) (\TEDIT.SPLITW 110310 . 118369) (\TEDIT.UNSPLITW 118371 . 122570) (
-\TEDIT.LINKPANES 122572 . 123335) (\TEDIT.UNLINKPANE 123337 . 123911)) (125347 126238 (TEDITWINDOWP 
-125357 . 126236)) (126275 129378 (TEDIT.GETINPUT 126285 . 128728) (\TEDIT.MAKEFILENAME 128730 . 129376
-)) (129427 137510 (TEDIT.PROMPTWINDOW 129437 . 129751) (TEDIT.PROMPTPRINT 129753 . 132720) (
-TEDIT.PROMPTCLEAR 132722 . 134557) (TEDIT.PROMPTFLASH 134559 . 135817) (\TEDIT.PROMPT.PAGEFULLFN 
-135819 . 137508)) (137748 148326 (\TEDIT.FILENAME 137758 . 138530) (\TEDIT.DEFAULT.TITLE 138532 . 
-140911) (\TEDIT.WINDOW.TITLE 140913 . 143082) (\TEDIT.LIKELY.FILENAME 143084 . 145808) (
-\TEDIT.UPDATE.TITLE 145810 . 148324)) (148369 161096 (TEDIT.DEACTIVATE.WINDOW 148379 . 154195) (
-\TEDIT.RESHAPEFN 154197 . 156282) (\TEDIT.REPAINTFN 156284 . 156508) (\TEDIT.CLOSESPLITS 156510 . 
-158955) (\TEDIT.CLOSEPANE 158957 . 161094)) (161097 203896 (\TEDIT.SCROLLFN 161107 . 163338) (
-\TEDIT.SCROLLCH.TOP 163340 . 165451) (\TEDIT.SCROLLCH.BOTTOM 165453 . 169783) (\TEDIT.SCROLLUP 169785
- . 175511) (\TEDIT.TOPLINE.YTOP 175513 . 177182) (\TEDIT.SCROLLDOWN 177184 . 184223) (
-\TEDIT.SCROLL.CARET 184225 . 187063) (\TEDIT.VISIBLECARETP 187065 . 189359) (\TEDIT.VISIBLECHARP 
-189361 . 190452) (\TEDIT.BITMAPLINES 190454 . 194374) (\TEDIT.SETPANE.TOPLINE 194376 . 194988) (
-\TEDIT.SHIFTLINES 194990 . 203894)) (203897 214766 (\TEDIT.ONSCREEN? 203907 . 208458) (
-\TEDIT.ONSCREEN.REGION 208460 . 212111) (\TEDIT.AFTERMOVEFN 212113 . 213010) (OFFSCREENP 213012 . 
-214764)) (214808 217622 (\TEDIT.PROCIDLEFN 214818 . 216478) (\TEDIT.PROCENTRYFN 216480 . 216925) (
-\TEDIT.PROCEXITFN 216927 . 217620)) (217701 230926 (\TEDIT.DOWNCARET 217711 . 218504) (
-\TEDIT.FLASHCARET 218506 . 220617) (\TEDIT.UPCARET 220619 . 221723) (TEDIT.NORMALIZECARET 221725 . 
-224943) (\TEDIT.SETCARET 224945 . 230296) (\TEDIT.CARET 230298 . 230924)))))
+69437 . 71651)) (71685 106269 (\TEDIT.BUTTONEVENTFN 71695 . 85861) (\TEDIT.BUTTONEVENTFN.DOOPERATION 
+85863 . 93334) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93336 . 95178) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 
+95180 . 98850) (\TEDIT.BUTTONEVENTFN.INACTIVE 98852 . 101282) (\TEDIT.BUTTONEVENTFN.INTITLE 101284 . 
+103119) (\TEDIT.COPYINSERTFN 103121 . 104253) (\TEDIT.FOREIGN.COPY 104255 . 106267)) (106270 123833 (
+\TEDIT.PANE.SPLIT 106280 . 110228) (\TEDIT.SPLITW 110230 . 118289) (\TEDIT.UNSPLITW 118291 . 122490) (
+\TEDIT.LINKPANES 122492 . 123255) (\TEDIT.UNLINKPANE 123257 . 123831)) (125267 126158 (TEDITWINDOWP 
+125277 . 126156)) (126195 129298 (TEDIT.GETINPUT 126205 . 128648) (\TEDIT.MAKEFILENAME 128650 . 129296
+)) (129347 137430 (TEDIT.PROMPTWINDOW 129357 . 129671) (TEDIT.PROMPTPRINT 129673 . 132640) (
+TEDIT.PROMPTCLEAR 132642 . 134477) (TEDIT.PROMPTFLASH 134479 . 135737) (\TEDIT.PROMPT.PAGEFULLFN 
+135739 . 137428)) (137668 148246 (\TEDIT.FILENAME 137678 . 138450) (\TEDIT.DEFAULT.TITLE 138452 . 
+140831) (\TEDIT.WINDOW.TITLE 140833 . 143002) (\TEDIT.LIKELY.FILENAME 143004 . 145728) (
+\TEDIT.UPDATE.TITLE 145730 . 148244)) (148289 161016 (TEDIT.DEACTIVATE.WINDOW 148299 . 154115) (
+\TEDIT.RESHAPEFN 154117 . 156202) (\TEDIT.REPAINTFN 156204 . 156428) (\TEDIT.CLOSESPLITS 156430 . 
+158875) (\TEDIT.CLOSEPANE 158877 . 161014)) (161017 203816 (\TEDIT.SCROLLFN 161027 . 163258) (
+\TEDIT.SCROLLCH.TOP 163260 . 165371) (\TEDIT.SCROLLCH.BOTTOM 165373 . 169703) (\TEDIT.SCROLLUP 169705
+ . 175431) (\TEDIT.TOPLINE.YTOP 175433 . 177102) (\TEDIT.SCROLLDOWN 177104 . 184143) (
+\TEDIT.SCROLL.CARET 184145 . 186983) (\TEDIT.VISIBLECARETP 186985 . 189279) (\TEDIT.VISIBLECHARP 
+189281 . 190372) (\TEDIT.BITMAPLINES 190374 . 194294) (\TEDIT.SETPANE.TOPLINE 194296 . 194908) (
+\TEDIT.SHIFTLINES 194910 . 203814)) (203817 214686 (\TEDIT.ONSCREEN? 203827 . 208378) (
+\TEDIT.ONSCREEN.REGION 208380 . 212031) (\TEDIT.AFTERMOVEFN 212033 . 212930) (OFFSCREENP 212932 . 
+214684)) (214728 217542 (\TEDIT.PROCIDLEFN 214738 . 216398) (\TEDIT.PROCENTRYFN 216400 . 216845) (
+\TEDIT.PROCEXITFN 216847 . 217540)) (217621 230846 (\TEDIT.DOWNCARET 217631 . 218424) (
+\TEDIT.FLASHCARET 218426 . 220537) (\TEDIT.UPCARET 220539 . 221643) (TEDIT.NORMALIZECARET 221645 . 
+224863) (\TEDIT.SETCARET 224865 . 230216) (\TEDIT.CARET 230218 . 230844)))))
 STOP
diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM
index 8fec865b..dbbee52f 100644
Binary files a/library/tedit/TEDIT-WINDOW.LCOM and b/library/tedit/TEDIT-WINDOW.LCOM differ
