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}tedit>TEDIT-SELECTION.;742 162117 +(FILECREATED "15-May-2026 10:48:32" {MEDLEY}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}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}TEDIT>TEDIT-WINDOW.;904 236190 +(FILECREATED "15-May-2026 12:53:42" {MEDLEY}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