From eebf5bf707faab332b27be8940a7d5aecbf7c421 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 16 May 2026 10:11:48 -0700 Subject: [PATCH] Remove CURSORINFN on close --- library/tedit/TEDIT-WINDOW | 75 ++++++++++++++++---------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 63860 -> 63887 bytes 2 files changed, 38 insertions(+), 37 deletions(-) diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index e6993d81..587c8563 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "16-May-2026 10:06:53" {MEDLEY}TEDIT>TEDIT-WINDOW.;907 236201 +(FILECREATED "16-May-2026 10:11:27" {MEDLEY}TEDIT>TEDIT-WINDOW.;908 236338 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.CURSORINFN) + :CHANGES-TO (FNS \TEDIT.CLOSEPANE \TEDIT.CURSORINFN) :PREVIOUS-DATE "15-May-2026 12:53:42" {MEDLEY}TEDIT>TEDIT-WINDOW.;906) @@ -2565,7 +2565,8 @@ else (WINDOWPROP PRIMARYPANE 'SAVED-TYPED-REGION WHOLEREGION)))]) (\TEDIT.CLOSEPANE - [LAMBDA (PANE DONTCLOSEW) (* ; "Edited 9-May-2025 00:22 by rmk") + [LAMBDA (PANE DONTCLOSEW) (* ; "Edited 16-May-2026 10:11 by rmk") + (* ; "Edited 9-May-2025 00:22 by rmk") (* ; "Edited 6-May-2025 16:04 by rmk") (* ;; "This removes all of the TEdit triggers on PANE, closes its window unless DONTCLOSEW.") @@ -2578,8 +2579,8 @@ (WINDOWPROP PANEWINDOW 'PROCESS.IDLEFN NIL) (* ; "Restore any disarmed interrupts.") (DETACHWINDOW PANEWINDOW) (\TEDIT.UNLINKPANE PANE) - (for PROP in '(CURSOROUTFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN - REPAINTFN WINDOWENTRYFN NEWREGIONFN) + (for PROP in '(CURSOROUTFN CURSORINFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN + AFTERMOVEFN REPAINTFN WINDOWENTRYFN NEWREGIONFN) do (WINDOWPROP PANEWINDOW PROP NIL)) (for PROP in '(CLOSEFN RESHAPEFN) do (WINDOWDELPROP PANEWINDOW 'CLOSEFN (FUNCTION TEDIT.DEACTIVATE.WINDOW)) @@ -3714,36 +3715,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17127 18023 (TEDIT.DEFER.UPDATES 17137 . 18021)) (18024 46555 (\TEDIT.WINDOW.CREATE -18034 . 24897) (\TEDIT.WINDOW.GETREGION 24899 . 30492) (\TEDIT.WINDOW.SETUP 30494 . 35001) ( -\TEDIT.MINIMAL.WINDOW.SETUP 35003 . 43187) (\TEDIT.CLEARPANE 43189 . 43906) (\TEDIT.FILL.PANES 43908 - . 46553)) (46556 71744 (\TEDIT.CURSORMOVEDFN 46566 . 52093) (\TEDIT.CURSOROUTFN 52095 . 52892) ( -\TEDIT.CURSORINFN 52894 . 54353) (\TEDIT.ACTIVE.WINDOWP 54355 . 55425) (\TEDIT.EXPANDFN 55427 . 55990) - (\TEDIT.MAINW 55992 . 57272) (\TEDIT.MAINSTREAM 57274 . 57608) (\TEDIT.PRIMARYPANE 57610 . 58380) ( -\TEDIT.PANELIST 58382 . 58878) (\TEDIT.NEWREGIONFN 58880 . 61396) (\TEDIT.SET.WINDOW.EXTENT 61398 . -66380) (\TEDIT.SHRINK.ICONCREATE 66382 . 69115) (\TEDIT.SHRINKFN 69117 . 69526) (\TEDIT.PANEREGION -69528 . 71742)) (71776 106360 (\TEDIT.BUTTONEVENTFN 71786 . 85952) (\TEDIT.BUTTONEVENTFN.DOOPERATION -85954 . 93425) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93427 . 95269) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT -95271 . 98941) (\TEDIT.BUTTONEVENTFN.INACTIVE 98943 . 101373) (\TEDIT.BUTTONEVENTFN.INTITLE 101375 . -103210) (\TEDIT.COPYINSERTFN 103212 . 104344) (\TEDIT.FOREIGN.COPY 104346 . 106358)) (106361 123924 ( -\TEDIT.PANE.SPLIT 106371 . 110319) (\TEDIT.SPLITW 110321 . 118380) (\TEDIT.UNSPLITW 118382 . 122581) ( -\TEDIT.LINKPANES 122583 . 123346) (\TEDIT.UNLINKPANE 123348 . 123922)) (125358 126249 (TEDITWINDOWP -125368 . 126247)) (126286 129389 (TEDIT.GETINPUT 126296 . 128739) (\TEDIT.MAKEFILENAME 128741 . 129387 -)) (129438 137521 (TEDIT.PROMPTWINDOW 129448 . 129762) (TEDIT.PROMPTPRINT 129764 . 132731) ( -TEDIT.PROMPTCLEAR 132733 . 134568) (TEDIT.PROMPTFLASH 134570 . 135828) (\TEDIT.PROMPT.PAGEFULLFN -135830 . 137519)) (137759 148337 (\TEDIT.FILENAME 137769 . 138541) (\TEDIT.DEFAULT.TITLE 138543 . -140922) (\TEDIT.WINDOW.TITLE 140924 . 143093) (\TEDIT.LIKELY.FILENAME 143095 . 145819) ( -\TEDIT.UPDATE.TITLE 145821 . 148335)) (148380 161107 (TEDIT.DEACTIVATE.WINDOW 148390 . 154206) ( -\TEDIT.RESHAPEFN 154208 . 156293) (\TEDIT.REPAINTFN 156295 . 156519) (\TEDIT.CLOSESPLITS 156521 . -158966) (\TEDIT.CLOSEPANE 158968 . 161105)) (161108 203907 (\TEDIT.SCROLLFN 161118 . 163349) ( -\TEDIT.SCROLLCH.TOP 163351 . 165462) (\TEDIT.SCROLLCH.BOTTOM 165464 . 169794) (\TEDIT.SCROLLUP 169796 - . 175522) (\TEDIT.TOPLINE.YTOP 175524 . 177193) (\TEDIT.SCROLLDOWN 177195 . 184234) ( -\TEDIT.SCROLL.CARET 184236 . 187074) (\TEDIT.VISIBLECARETP 187076 . 189370) (\TEDIT.VISIBLECHARP -189372 . 190463) (\TEDIT.BITMAPLINES 190465 . 194385) (\TEDIT.SETPANE.TOPLINE 194387 . 194999) ( -\TEDIT.SHIFTLINES 195001 . 203905)) (203908 214777 (\TEDIT.ONSCREEN? 203918 . 208469) ( -\TEDIT.ONSCREEN.REGION 208471 . 212122) (\TEDIT.AFTERMOVEFN 212124 . 213021) (OFFSCREENP 213023 . -214775)) (214819 217633 (\TEDIT.PROCIDLEFN 214829 . 216489) (\TEDIT.PROCENTRYFN 216491 . 216936) ( -\TEDIT.PROCEXITFN 216938 . 217631)) (217712 230937 (\TEDIT.DOWNCARET 217722 . 218515) ( -\TEDIT.FLASHCARET 218517 . 220628) (\TEDIT.UPCARET 220630 . 221734) (TEDIT.NORMALIZECARET 221736 . -224954) (\TEDIT.SETCARET 224956 . 230307) (\TEDIT.CARET 230309 . 230935))))) + (FILEMAP (NIL (17144 18040 (TEDIT.DEFER.UPDATES 17154 . 18038)) (18041 46572 (\TEDIT.WINDOW.CREATE +18051 . 24914) (\TEDIT.WINDOW.GETREGION 24916 . 30509) (\TEDIT.WINDOW.SETUP 30511 . 35018) ( +\TEDIT.MINIMAL.WINDOW.SETUP 35020 . 43204) (\TEDIT.CLEARPANE 43206 . 43923) (\TEDIT.FILL.PANES 43925 + . 46570)) (46573 71761 (\TEDIT.CURSORMOVEDFN 46583 . 52110) (\TEDIT.CURSOROUTFN 52112 . 52909) ( +\TEDIT.CURSORINFN 52911 . 54370) (\TEDIT.ACTIVE.WINDOWP 54372 . 55442) (\TEDIT.EXPANDFN 55444 . 56007) + (\TEDIT.MAINW 56009 . 57289) (\TEDIT.MAINSTREAM 57291 . 57625) (\TEDIT.PRIMARYPANE 57627 . 58397) ( +\TEDIT.PANELIST 58399 . 58895) (\TEDIT.NEWREGIONFN 58897 . 61413) (\TEDIT.SET.WINDOW.EXTENT 61415 . +66397) (\TEDIT.SHRINK.ICONCREATE 66399 . 69132) (\TEDIT.SHRINKFN 69134 . 69543) (\TEDIT.PANEREGION +69545 . 71759)) (71793 106377 (\TEDIT.BUTTONEVENTFN 71803 . 85969) (\TEDIT.BUTTONEVENTFN.DOOPERATION +85971 . 93442) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93444 . 95286) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT +95288 . 98958) (\TEDIT.BUTTONEVENTFN.INACTIVE 98960 . 101390) (\TEDIT.BUTTONEVENTFN.INTITLE 101392 . +103227) (\TEDIT.COPYINSERTFN 103229 . 104361) (\TEDIT.FOREIGN.COPY 104363 . 106375)) (106378 123941 ( +\TEDIT.PANE.SPLIT 106388 . 110336) (\TEDIT.SPLITW 110338 . 118397) (\TEDIT.UNSPLITW 118399 . 122598) ( +\TEDIT.LINKPANES 122600 . 123363) (\TEDIT.UNLINKPANE 123365 . 123939)) (125375 126266 (TEDITWINDOWP +125385 . 126264)) (126303 129406 (TEDIT.GETINPUT 126313 . 128756) (\TEDIT.MAKEFILENAME 128758 . 129404 +)) (129455 137538 (TEDIT.PROMPTWINDOW 129465 . 129779) (TEDIT.PROMPTPRINT 129781 . 132748) ( +TEDIT.PROMPTCLEAR 132750 . 134585) (TEDIT.PROMPTFLASH 134587 . 135845) (\TEDIT.PROMPT.PAGEFULLFN +135847 . 137536)) (137776 148354 (\TEDIT.FILENAME 137786 . 138558) (\TEDIT.DEFAULT.TITLE 138560 . +140939) (\TEDIT.WINDOW.TITLE 140941 . 143110) (\TEDIT.LIKELY.FILENAME 143112 . 145836) ( +\TEDIT.UPDATE.TITLE 145838 . 148352)) (148397 161244 (TEDIT.DEACTIVATE.WINDOW 148407 . 154223) ( +\TEDIT.RESHAPEFN 154225 . 156310) (\TEDIT.REPAINTFN 156312 . 156536) (\TEDIT.CLOSESPLITS 156538 . +158983) (\TEDIT.CLOSEPANE 158985 . 161242)) (161245 204044 (\TEDIT.SCROLLFN 161255 . 163486) ( +\TEDIT.SCROLLCH.TOP 163488 . 165599) (\TEDIT.SCROLLCH.BOTTOM 165601 . 169931) (\TEDIT.SCROLLUP 169933 + . 175659) (\TEDIT.TOPLINE.YTOP 175661 . 177330) (\TEDIT.SCROLLDOWN 177332 . 184371) ( +\TEDIT.SCROLL.CARET 184373 . 187211) (\TEDIT.VISIBLECARETP 187213 . 189507) (\TEDIT.VISIBLECHARP +189509 . 190600) (\TEDIT.BITMAPLINES 190602 . 194522) (\TEDIT.SETPANE.TOPLINE 194524 . 195136) ( +\TEDIT.SHIFTLINES 195138 . 204042)) (204045 214914 (\TEDIT.ONSCREEN? 204055 . 208606) ( +\TEDIT.ONSCREEN.REGION 208608 . 212259) (\TEDIT.AFTERMOVEFN 212261 . 213158) (OFFSCREENP 213160 . +214912)) (214956 217770 (\TEDIT.PROCIDLEFN 214966 . 216626) (\TEDIT.PROCENTRYFN 216628 . 217073) ( +\TEDIT.PROCEXITFN 217075 . 217768)) (217849 231074 (\TEDIT.DOWNCARET 217859 . 218652) ( +\TEDIT.FLASHCARET 218654 . 220765) (\TEDIT.UPCARET 220767 . 221871) (TEDIT.NORMALIZECARET 221873 . +225091) (\TEDIT.SETCARET 225093 . 230444) (\TEDIT.CARET 230446 . 231072))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 3b5f3d24a772ea085d14aa87959a6bd252969c2c..52afa373aa50d90c27d63c4e5f274f78f3e14a1e 100644 GIT binary patch delta 79 zcmezJiMjtX^Mo{3LqjVgi;3Bmj207@nsNB}2fGG1`ngVg5)PIzpX|V>$zh>jWNc<^ aY%#fzQ3I}I^907plbAgHHcL&3N(BG~j~K%M delta 68 zcmeDG%>3mO^Mo{312ZdAlZn}ujOG)UnsJ5(1^Wki`nmZ{d>jszGM;SDsL5fjU}S7& WWMDYCfKg-fO2)29o9(6qrUC#Q))rg<