github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-14 10:57:52 +00:00
Code Issues Projects Releases Wiki Activity

Kill Tedit process when window closes, close attached menus properly

Browse Source
This commit is contained in:
rmkaplan
2026-05-10 21:11:05 -07:00
parent 75ddcbaadd
commit 2bf791ed7a
4 changed files with 81 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
library/tedit/TEDIT-MENU
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512 183159
(FILECREATED "10-May-2026 17:15:14" {MEDLEY}<library>tedit>TEDIT-MENU.;513 183190
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS)
:CHANGES-TO (FNS \TEDIT.MENU.START)
:PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
:PREVIOUS-DATE "29-Apr-2026 15:35:33" {MEDLEY}<library>tedit>TEDIT-MENU.;512)
(PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -1161,7 +1161,8 @@
TSTREAM])
(\TEDIT.MENU.START
[LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 14-Mar-2025 16:13 by rmk")
[LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE) (* ; "Edited 10-May-2026 17:12 by rmk")
(* ; "Edited 14-Mar-2025 16:13 by rmk")
(* ; "Edited 28-Jun-2024 23:08 by rmk")
(* ; "Edited 19-Apr-2024 10:53 by rmk")
(* ; "Edited 10-Apr-2024 23:04 by rmk")
@@ -1195,7 +1196,6 @@
WIDTH _ (fetch (REGION WIDTH) of WREG)
HEIGHT _ (OR HEIGHT 133))
TITLE))
(WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW))
(WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
(* ; "Mark this as a TEDIT MENU window")
(ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
@@ -2899,32 +2899,32 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
. 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
(MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
. 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN
54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
. 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846
81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE
79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC
124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
(\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
(FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
. 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
(MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
. 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN
54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
. 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877
81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE
79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 (
\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) (
\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 (
\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) (
\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) (
\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 (
\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC
124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) (
\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) (
\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) (
\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) (
\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN
158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770)
(\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) (
177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032)))))
STOP

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

Binary file not shown.

94
library/tedit/TEDIT-WINDOW
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 " 7-Feb-2026 18:53:22" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;896 234678
(FILECREATED "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899 235055
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.PROMPTPRINT)
:CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION)
:PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;895)
:PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}<library>tedit>TEDIT-WINDOW.;896)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -458,7 +458,8 @@
WINDOW])
(\TEDIT.WINDOW.GETREGION
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 5-Feb-2026 08:24 by rmk")
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 10-May-2026 16:32 by rmk")
(* ; "Edited 5-Feb-2026 08:24 by rmk")
(* ; "Edited 27-Jan-2026 15:30 by rmk")
(* ; "Edited 25-Jan-2026 20:09 by rmk")
(* ; "Edited 25-Oct-2025 10:27 by rmk")
@@ -552,7 +553,7 @@
(CL:WHEN (TXTFILE TSTREAM)
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
(TERPRI PROMPTWINDOW)
(GETBOXREGION WIDTH HEIGHT])
(GETREGION WIDTH HEIGHT])
(\TEDIT.WINDOW.SETUP
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk")
@@ -2393,7 +2394,8 @@
(DEFINEQ
(TEDIT.DEACTIVATE.WINDOW
[LAMBDA (PANE) (* ; "Edited 30-May-2025 12:54 by rmk")
[LAMBDA (PANE) (* ; "Edited 10-May-2026 18:03 by rmk")
(* ; "Edited 30-May-2025 12:54 by rmk")
(* ; "Edited 9-May-2025 14:54 by rmk")
(* ; "Edited 6-May-2025 15:57 by rmk")
(* ; "Edited 4-May-2025 21:45 by rmk")
@@ -2455,7 +2457,10 @@
 "Close the file that this window was open on.")
(CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW)
(replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T)
(CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE)))) (* ; "Close any open menus")
(CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))
(CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG) (* ;
 "This is a menu, detach it so that space closes up")
(FREEATTACHEDWINDOW PANEWINDOW)) (* ; " Close any open menus")
(for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T))
(FGETTOBJ MTEXTOBJ MENUFLG))
do
@@ -2463,12 +2468,9 @@
(FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
(WINDOWPROP MENUW 'TEDITMENU NIL)
(GIVE.TTY.PROCESS MENUW))
(\TEDIT.CLOSEPANE PANE T) (* ; "We're already closing")
(* ;; "Let it kill itself")
(GIVE.TTY.PROCESS PANE])
(TEDIT.KILL MTEXTOBJ))
(\TEDIT.CLOSEPANE PANE T)
(TEDIT.KILL TSTREAM])
(\TEDIT.RESHAPEFN
[LAMBDA (PANE BITS OLDREGION) (* ; "Edited 20-Apr-2025 12:55 by rmk")
@@ -3698,36 +3700,36 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE
18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
. 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE
64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP
124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN
134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 .
139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 .
157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
. 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP
187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 .
213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 .
223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
(FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE
18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) (
\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682
. 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) (
\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) (
\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) (
\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE
64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 (
\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) (
\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) (
\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 (
\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) (
\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP
124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241
)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) (
TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN
134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 .
139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) (
\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) (
\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 .
157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) (
\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650
. 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) (
\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP
188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) (
\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) (
\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 .
213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) (
\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) (
\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 .
223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789)))))
STOP

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

Binary file not shown.