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

Stop the cursorinfn if the tstream has disappeared

Browse Source
This commit is contained in:
rmkaplan
2026-05-16 10:08:12 -07:00
parent 2485ddbfaa
commit 2812a01da9
5 changed files with 180 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
library/tedit/TEDIT-DEBUG.DRIBBLE Normal file
View File

@@ -0,0 +1,116 @@
{MEDLEY}<loadups>fuller.database;4
File created 2-Mar-2026 18:38:06
((E (DUMPDATABASE NIL)))
File created 10-Mar-2026 18:07:31
TEDITCOMS
{MEDLEY}<library>TEDIT>tedit-exports.all;1
File created 1-May-2026 08:16:04
((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (
FUNCTION PRINT)))))))
{MEDLEY}<loadups>exports.all;17
File created 5-May-2026 11:18:15
((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (
FUNCTION PRINT)))))))
(new PRETTYPRINTMACROS entry for UNINTERRUPTABLY)
{MEDLEY}<sources>CMLARRAY-SUPPORT.LCOM;1
compiled on 2-May-99 14:58:00
File created 2-May-99 14:57:41
File created 9-Apr-2026 17:25:38
TEDIT-PCTREECOMS
File created 15-May-2026 10:48:32
TEDIT-SELECTIONCOMS
(LAMA reset)
File created 6-May-2026 22:52:37
TEDIT-SCREENCOMS
File created 10-May-2026 13:26:30
TEDIT-STREAMCOMS
(INSPECTMACROS reset)
File created 8-Nov-2025 10:03:19
TEDIT-COMMANDCOMS
File created 10-May-2026 20:54:51
TEDIT-FILECOMS
File created 10-Apr-2026 09:29:21
TEDIT-OLDFILECOMS
File created 10-Apr-2026 09:34:11
TEDIT-LOOKSCOMS
(TEDIT.FACE.MENU reset)
(TEDIT.SIZE.MENU reset)
File created 28-Jul-2025 23:25:43
TEDIT-STYLESCOMS
File created 15-May-2026 12:53:42
TEDIT-WINDOWCOMS
(BXCARET reset)
(BXHICARET reset)
(\TEDIT.LINECURSOR reset)
(\TEDIT.SPLITCURSOR reset)
(\TEDIT.MOVESPLITCURSOR reset)
(\TEDIT.UNSPLITCURSOR reset)
(\TEDIT.MAKESPLITCURSOR reset)
(TEDITICON reset)
(TEDITMASK reset)
File created 8-May-2026 12:17:16
TEDIT-BUTTONSCOMS
(record MBARG redeclared)
The functions MB.GET MB.GET.MBARG use records which have changed.
Call UNSAVEFNS() to load and/or UNSAVEDEF them.
File created 10-May-2026 17:15:14
TEDIT-MENUCOMS
(\TEDIT.LEFTTAB reset)
(\TEDIT.CENTERTAB reset)
(\TEDIT.RIGHTTAB reset)
(\TEDIT.DECIMALTAB reset)
(\TEDIT.DOTTED.LEFTTAB reset)
(\TEDIT.DOTTED.CENTERTAB reset)
(\TEDIT.DOTTED.RIGHTTAB reset)
(\TEDIT.DOTTED.DECIMALTAB reset)
(TEDIT.EXTENDEDRIGHTMARK reset)
(TEXTMENUICON reset)
(TEXTMENUICONMASK reset)
File created 21-Apr-2025 22:42:57
TEDIT-FINDCOMS
File created 8-Feb-2026 19:54:41
TEDIT-FNKEYSCOMS
(TEDIT.BUTTONBITMAP reset)
File created 15-Jan-2026 11:08:15
TEDIT-HCPYCOMS
File created 19-Feb-2026 12:39:37
TEDIT-HISTORYCOMS
File created 6-May-2026 22:17:41
TEDIT-PAGECOMS
File created 30-Apr-2026 11:55:15
TEDIT-ABBREVCOMS
File created 10-Apr-2026 09:25:52
TEDIT-TFBRAVOCOMS
.............................................................................
.............................................................................
.............................................................................
.............................................................................
.............................................................................
.............................................................................
.............................................................................
.............................................................................
.............................................................................
...................................................................
{WMEDLEY}<library>tedit>TEDIT-STRESS.LCOM;130
compiled on 30-Jun-2025 07:04:31
File created 30-Jun-2025 07:04:31
(SYSOUTRING redefined)
(SYSOUTNAME redefined)
TEDIT-STRESSCOMS
{WMEDLEY}<library>tedit>TEDIT-RENAMES.;5
File created 2-Aug-2024 08:48:45
TEDIT-RENAMESCOMS
.............................................................................
...........................................
{OT}OTWHEREIS.LCOM;29
compiled on 17-Jul-2024 22:54:00
File created 17-Jul-2024 22:54:00
OTWHEREISCOMS
Connected to {MEDLEY}<library>tedit>

33
library/tedit/TEDIT-HCPY
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-Jan-2026 11:08:15" {WMEDLEY}<library>tedit>TEDIT-HCPY.;196 32421
(FILECREATED "16-May-2026 09:39:37" {MEDLEY}<library>TEDIT>TEDIT-HCPY.;197 32446
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.IMAGEFILE.MESSAGE TEDIT.FORMAT.HARDCOPY)
:CHANGES-TO (FNS TEDIT-BOOK)
:PREVIOUS-DATE "24-Dec-2025 11:16:22" {WMEDLEY}<library>tedit>TEDIT-HCPY.;194)
:PREVIOUS-DATE "15-Jan-2026 11:08:15" {MEDLEY}<library>TEDIT>TEDIT-HCPY.;196)
(PRETTYCOMPRINT TEDIT-HCPYCOMS)
@@ -508,25 +508,26 @@
(DEFINEQ
(TEDIT-BOOK
[LAMBDA (FILES DIRECTORY PRINT-FILE DONT-SEND) (* ; "Edited 22-Mar-93 23:55 by jds")
[LAMBDA (FILES DIRECTORY IMAGEFILE IMAGETYPE) (* ; "Edited 16-May-2026 09:39 by rmk")
(* ; "Edited 22-Mar-93 23:55 by jds")
(LET ((DOC (OPENTEXTSTREAM (MKATOM (CAR FILES))
NIL)))
(* ;; "Gather all the files into one document:")
(for FILE in (CDR FILES) do (TEDIT.SETSEL DOC 1 (fetch (TEXTOBJ TEXTLEN) of (TEXTOBJ DOC))
'RIGHT NIL NIL)
(TEDIT.INCLUDE DOC (PACK* (OR DIRECTORY "")
FILE)))
(for FILE in (CDR FILES) do (TEDIT.SETSEL DOC 1 (TEDIT.NCHARS DOC)
'RIGHT)
(TEDIT.INCLUDE DOC (PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY
)))
(* ; "Set page layout")
(TEDIT.FORMAT.HARDCOPY DOC PRINT-FILE DONT-SEND NIL NIL NIL NIL NIL)
(TEDIT.TO.IMAGEFILE DOC IMAGEFILE IMAGETYPE)
(CLOSEF DOC])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2727 29208 (TEDIT.HARDCOPY 2737 . 3995) (TEDIT.FORMAT.HARDCOPY 3997 . 7234) (
TEDIT.IMAGEFILE.MESSAGE 7236 . 8533) (\TEDIT.PRINT.MENU 8535 . 10938) (\TEDIT.HARDCOPY.DISPLAYLINE
10940 . 20163) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 20165 . 21894) (\TEDIT.HARDCOPY.MODIFYLOOKS 21896
. 24077) (\TEDIT.HCPYFMTSPEC 24079 . 27537) (\TEDIT.INTEGER.IMAGEBOX 27539 . 28210) (
\TEDIT.DISPLAY.DIACRITIC 28212 . 29206)) (29283 30113 (\TEDIT.SCALEREGION 29293 . 30111)) (30405 30978
(\TEDIT.HARDCOPYFILEFN 30415 . 30976)) (31597 32398 (TEDIT-BOOK 31607 . 32396)))))
(FILEMAP (NIL (2690 29171 (TEDIT.HARDCOPY 2700 . 3958) (TEDIT.FORMAT.HARDCOPY 3960 . 7197) (
TEDIT.IMAGEFILE.MESSAGE 7199 . 8496) (\TEDIT.PRINT.MENU 8498 . 10901) (\TEDIT.HARDCOPY.DISPLAYLINE
10903 . 20126) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 20128 . 21857) (\TEDIT.HARDCOPY.MODIFYLOOKS 21859
. 24040) (\TEDIT.HCPYFMTSPEC 24042 . 27500) (\TEDIT.INTEGER.IMAGEBOX 27502 . 28173) (
\TEDIT.DISPLAY.DIACRITIC 28175 . 29169)) (29246 30076 (\TEDIT.SCALEREGION 29256 . 30074)) (30368 30941
(\TEDIT.HARDCOPYFILEFN 30378 . 30939)) (31560 32423 (TEDIT-BOOK 31570 . 32421)))))
STOP

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

Binary file not shown.

93
library/tedit/TEDIT-WINDOW
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-May-2026 12:53:42" {MEDLEY}<library>tedit>TEDIT-WINDOW.;906 236110
(FILECREATED "16-May-2026 10:06:53" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;907 236201
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN \TEDIT.CURSORINFN \TEDIT.MINIMAL.WINDOW.SETUP)
(VARS TEDIT-WINDOWCOMS)
:CHANGES-TO (FNS \TEDIT.CURSORINFN)
:PREVIOUS-DATE "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899)
:PREVIOUS-DATE "15-May-2026 12:53:42" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;906)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -885,19 +884,21 @@
'TEXT))])
(\TEDIT.CURSORINFN
[LAMBDA (PANE) (* ; "Edited 14-May-2026 22:47 by rmk")
[LAMBDA (PANE) (* ; "Edited 16-May-2026 10:05 by rmk")
(* ; "Edited 14-May-2026 22:47 by rmk")
(* ;; "This runs when the mouse comes into a Tedit window from outside. The mouse may have gone outside while it was being tracked by \TEDIT.BUTTONEVENTFN while there was a secondary selection in the stream and on the screen. If the window still has (or somehow regained) the TTY (because it wasn't given to anybody else when the mouse was outside) and the mode keys are the same (or were regained) for that secondary selection, then we want to set things up so the mouse tracker is in the state it was when it exited. But if those conditions don't hold, we at least consistently flush that secondary selection and wait for a click to tell us what to do.")
(LET ((TEXTOBJ (PANETEXTOBJ PANE))
SECSEL)
(if [AND (EQ (WINDOWPROP PANE 'PROCESS)
(TTY.PROCESS))
(SETQ SECSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
(EQ (GETSEL SECSEL SELOPERATION)
(\TEDIT.BUTTONEVENTFN.GETOPERATION (FGETTOBJ TEXTOBJ TXTREADONLY]
then (\TEDIT.BUTTONEVENTFN PANE)
else (\TEDIT.SECONDARYSEL.OFF (PANETEXTSTREAM PANE])
(CL:WHEN (PANETEXTSTREAM PANE)
[LET ((TEXTOBJ (PANETEXTOBJ PANE))
SECSEL)
(if [AND (EQ (WINDOWPROP PANE 'PROCESS)
(TTY.PROCESS))
(SETQ SECSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
(EQ (GETSEL SECSEL SELOPERATION)
(\TEDIT.BUTTONEVENTFN.GETOPERATION (FGETTOBJ TEXTOBJ TXTREADONLY]
then (\TEDIT.BUTTONEVENTFN PANE)
else (\TEDIT.SECONDARYSEL.OFF (PANETEXTSTREAM PANE])])
(\TEDIT.ACTIVE.WINDOWP
[LAMBDA (W) (* ; "Edited 27-Apr-2025 13:07 by rmk")
@@ -3713,36 +3714,36 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (17218 18114 (TEDIT.DEFER.UPDATES 17228 . 18112)) (18115 46646 (\TEDIT.WINDOW.CREATE
18125 . 24988) (\TEDIT.WINDOW.GETREGION 24990 . 30583) (\TEDIT.WINDOW.SETUP 30585 . 35092) (
\TEDIT.MINIMAL.WINDOW.SETUP 35094 . 43278) (\TEDIT.CLEARPANE 43280 . 43997) (\TEDIT.FILL.PANES 43999
. 46644)) (46647 71653 (\TEDIT.CURSORMOVEDFN 46657 . 52184) (\TEDIT.CURSOROUTFN 52186 . 52983) (
\TEDIT.CURSORINFN 52985 . 54262) (\TEDIT.ACTIVE.WINDOWP 54264 . 55334) (\TEDIT.EXPANDFN 55336 . 55899)
(\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 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)))))
(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)))))
STOP

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

Binary file not shown.