github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-17 19:53:08 +00:00
Code Issues Projects Releases Wiki Activity

Remove CURSORINFN on close

Browse Source
This commit is contained in:
rmkaplan
2026-05-16 10:11:48 -07:00
parent 2812a01da9
commit eebf5bf707
2 changed files with 38 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
library/tedit/TEDIT-WINDOW
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "16-May-2026 10:06:53" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;907 236201
(FILECREATED "16-May-2026 10:11:27" {MEDLEY}<library>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}<library>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

BIN
library/tedit/TEDIT-WINDOW.LCOM
View File

Binary file not shown.