Compare commits
3 Commits
master
...
rmk185--Te
| Author | SHA1 | Date | |
|---|---|---|---|
|
2bf791ed7a | ||
|
|
75ddcbaadd | ||
|
|
880507f8d5 |
@@ -1,12 +1,12 @@
|
|||||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||||
|
|
||||||
(FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}<library>tedit>TEDIT-FILE.;684 174888
|
(FILECREATED "10-May-2026 20:54:51" {MEDLEY}<library>TEDIT>TEDIT-FILE.;685 174952
|
||||||
|
|
||||||
:EDIT-BY rmk
|
:EDIT-BY rmk
|
||||||
|
|
||||||
:CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS)
|
:CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE)
|
||||||
|
|
||||||
:PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}<library>tedit>TEDIT-FILE.;683)
|
:PREVIOUS-DATE "29-Apr-2026 23:49:14" {MEDLEY}<library>TEDIT>TEDIT-FILE.;684)
|
||||||
|
|
||||||
|
|
||||||
(PRETTYCOMPRINT TEDIT-FILECOMS)
|
(PRETTYCOMPRINT TEDIT-FILECOMS)
|
||||||
@@ -707,7 +707,8 @@
|
|||||||
(\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
|
(\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
|
||||||
|
|
||||||
(\TEDIT.GET.FORMATTED.FILE
|
(\TEDIT.GET.FORMATTED.FILE
|
||||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 25-Sep-2025 21:27 by rmk")
|
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 10-May-2026 20:54 by rmk")
|
||||||
|
(* ; "Edited 25-Sep-2025 21:27 by rmk")
|
||||||
(* ; "Edited 9-Sep-2025 21:45 by rmk")
|
(* ; "Edited 9-Sep-2025 21:45 by rmk")
|
||||||
(* ; "Edited 7-Sep-2025 12:14 by rmk")
|
(* ; "Edited 7-Sep-2025 12:14 by rmk")
|
||||||
(* ; "Edited 28-Mar-2025 14:15 by rmk")
|
(* ; "Edited 28-Mar-2025 14:15 by rmk")
|
||||||
@@ -744,8 +745,7 @@
|
|||||||
"Version 1; obsoleted at INTERMEZZO release 2/85")
|
"Version 1; obsoleted at INTERMEZZO release 2/85")
|
||||||
(\TEDIT.GET.PCTB1 TEXT TSTREAM PCCOUNT START END))
|
(\TEDIT.GET.PCTB1 TEXT TSTREAM PCCOUNT START END))
|
||||||
(0 (* ; "VERSION 0")
|
(0 (* ; "VERSION 0")
|
||||||
(\TEDIT.GET.PCTB0 TEXT TSTREAM (CADR PCCOUNT)
|
(\TEDIT.GET.PCTB0 TEXT TSTREAM PCCOUNT START END))
|
||||||
PCCOUNT START END))
|
|
||||||
(\TEDIT.THELP "File format version incompatible with this version of TEdit."))
|
(\TEDIT.THELP "File format version incompatible with this version of TEdit."))
|
||||||
(CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
|
(CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
|
||||||
(FSETPC PC PPARALAST T))
|
(FSETPC PC PPARALAST T))
|
||||||
@@ -2706,29 +2706,29 @@
|
|||||||
|
|
||||||
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
|
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (5384 35643 (TEDIT.GET 5394 . 11804) (TEDIT.FORMATTEDFILEP 11806 . 13122) (
|
(FILEMAP (NIL (5381 35640 (TEDIT.GET 5391 . 11801) (TEDIT.FORMATTEDFILEP 11803 . 13119) (
|
||||||
TEDIT.FILEDATE 13124 . 14433) (TEDIT.INCLUDE 14435 . 22464) (TEDIT.RAW.INCLUDE 22466 . 23274) (
|
TEDIT.FILEDATE 13121 . 14430) (TEDIT.INCLUDE 14432 . 22461) (TEDIT.RAW.INCLUDE 22463 . 23271) (
|
||||||
TEDIT.PUT 23276 . 31632) (TEDIT.PUT.STREAM 31634 . 35641)) (35644 56951 (\TEDIT.GET.FOREIGN.FILE 35654
|
TEDIT.PUT 23273 . 31629) (TEDIT.PUT.STREAM 31631 . 35638)) (35641 57015 (\TEDIT.GET.FOREIGN.FILE 35651
|
||||||
. 39079) (\TEDIT.GET.UNFORMATTED.FILE 39081 . 43420) (\TEDIT.GET.FORMATTED.FILE 43422 . 47065) (
|
. 39076) (\TEDIT.GET.UNFORMATTED.FILE 39078 . 43417) (\TEDIT.GET.FORMATTED.FILE 43419 . 47129) (
|
||||||
\TEDIT.FORMATTEDSTREAMP 47067 . 50198) (\ARBIN 50200 . 50920) (\ATMIN 50922 . 51459) (\DWIN 51461 .
|
\TEDIT.FORMATTEDSTREAMP 47131 . 50262) (\ARBIN 50264 . 50984) (\ATMIN 50986 . 51523) (\DWIN 51525 .
|
||||||
51840) (\STRINGIN 51842 . 52550) (\TEDIT.GET.TRAILER 52552 . 55420) (\TEDIT.CACHEFILE 55422 . 56949))
|
51904) (\STRINGIN 51906 . 52614) (\TEDIT.GET.TRAILER 52616 . 55484) (\TEDIT.CACHEFILE 55486 . 57013))
|
||||||
(57117 73044 (\TEDIT.GET.PIECES3 57127 . 68176) (\TEDIT.GET.PROPS3 68178 . 71400) (
|
(57181 73108 (\TEDIT.GET.PIECES3 57191 . 68240) (\TEDIT.GET.PROPS3 68242 . 71464) (
|
||||||
\TEDIT.MAKE.STRINGPIECE 71402 . 73042)) (73045 85841 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73055 . 78706)
|
\TEDIT.MAKE.STRINGPIECE 71466 . 73106)) (73109 85905 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73119 . 78770)
|
||||||
(\TEDIT.INTERPRET.MCCS.SHIFTS 78708 . 84304) (\TEDIT.CONVERT.XCCSTOMCCS 84306 . 85238) (
|
(\TEDIT.INTERPRET.MCCS.SHIFTS 78772 . 84368) (\TEDIT.CONVERT.XCCSTOMCCS 84370 . 85302) (
|
||||||
\TEDIT.RUN.TO.STRINGPIECE 85240 . 85839)) (85863 92124 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85873 . 92122
|
\TEDIT.RUN.TO.STRINGPIECE 85304 . 85903)) (85927 92188 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85937 . 92186
|
||||||
)) (92147 103665 (\TEDIT.GET.CHARLOOKS.LIST 92157 . 92888) (\TEDIT.GET.SINGLE.CHARLOOKS 92890 . 99962)
|
)) (92211 103729 (\TEDIT.GET.CHARLOOKS.LIST 92221 . 92952) (\TEDIT.GET.SINGLE.CHARLOOKS 92954 . 100026
|
||||||
(\TEDIT.GET.CHARLOOKS 99964 . 101520) (\TEDIT.GET.PARALOOKS.INDEX 101522 . 102066) (
|
) (\TEDIT.GET.CHARLOOKS 100028 . 101584) (\TEDIT.GET.PARALOOKS.INDEX 101586 . 102130) (
|
||||||
\TEDIT.GET.CHARLOOKS.INDEX 102068 . 103663)) (103666 111323 (\TEDIT.GET.PARALOOKS.LIST 103676 . 104298
|
\TEDIT.GET.CHARLOOKS.INDEX 102132 . 103727)) (103730 111387 (\TEDIT.GET.PARALOOKS.LIST 103740 . 104362
|
||||||
) (\TEDIT.GET.SINGLE.PARALOOKS 104300 . 111321)) (111324 115266 (\TEDIT.GET.OBJECT 111334 . 115264)) (
|
) (\TEDIT.GET.SINGLE.PARALOOKS 104364 . 111385)) (111388 115330 (\TEDIT.GET.OBJECT 111398 . 115328)) (
|
||||||
115331 150489 (\TEDIT.PUT.PCTB 115341 . 125667) (\TEDIT.PUT.PCTB.PIECEDATA 125669 . 128826) (
|
115395 150553 (\TEDIT.PUT.PCTB 115405 . 125731) (\TEDIT.PUT.PCTB.PIECEDATA 125733 . 128890) (
|
||||||
\TEDIT.PUT.TRAILER 128828 . 130156) (\TEDIT.PUT.PCTB.MERGEABLE 130158 . 134019) (
|
\TEDIT.PUT.TRAILER 128892 . 130220) (\TEDIT.PUT.PCTB.MERGEABLE 130222 . 134083) (
|
||||||
\TEDIT.PUT.UTF8.SPLITPIECES 134021 . 138597) (\TEDIT.PUT.MCCS.SPLITPIECES 138599 . 140177) (
|
\TEDIT.PUT.UTF8.SPLITPIECES 134085 . 138661) (\TEDIT.PUT.MCCS.SPLITPIECES 138663 . 140241) (
|
||||||
\TEDIT.PUT.PCTB.NEXTNEW 140179 . 144920) (\TEDIT.INSERT.NEWPIECES 144922 . 148087) (\TEDIT.PUTRESET
|
\TEDIT.PUT.PCTB.NEXTNEW 140243 . 144984) (\TEDIT.INSERT.NEWPIECES 144986 . 148151) (\TEDIT.PUTRESET
|
||||||
148089 . 148331) (\ARBOUT 148333 . 149057) (\ATMOUT 149059 . 149664) (\DWOUT 149666 . 149945) (
|
148153 . 148395) (\ARBOUT 148397 . 149121) (\ATMOUT 149123 . 149728) (\DWOUT 149730 . 150009) (
|
||||||
\STRINGOUT 149947 . 150487)) (150490 163441 (\TEDIT.PUT.CHARLOOKS.LIST 150500 . 152172) (
|
\STRINGOUT 150011 . 150551)) (150554 163505 (\TEDIT.PUT.CHARLOOKS.LIST 150564 . 152236) (
|
||||||
\TEDIT.PUT.SINGLE.CHARLOOKS 152174 . 158454) (\TEDIT.PUT.CHARLOOKS 158456 . 159903) (
|
\TEDIT.PUT.SINGLE.CHARLOOKS 152238 . 158518) (\TEDIT.PUT.CHARLOOKS 158520 . 159967) (
|
||||||
\TEDIT.PUT.CHARLOOKS1 159905 . 160956) (\TEDIT.PUT.OBJECT 160958 . 163439)) (163442 171081 (
|
\TEDIT.PUT.CHARLOOKS1 159969 . 161020) (\TEDIT.PUT.OBJECT 161022 . 163503)) (163506 171145 (
|
||||||
\TEDIT.PUT.PARALOOKS.LIST 163452 . 164354) (\TEDIT.PUT.SINGLE.PARALOOKS 164356 . 169940) (
|
\TEDIT.PUT.PARALOOKS.LIST 163516 . 164418) (\TEDIT.PUT.SINGLE.PARALOOKS 164420 . 170004) (
|
||||||
\TEDIT.PUT.PARALOOKS 169942 . 171079)) (171176 174581 (TEDITFROMLISPSOURCE 171186 . 173830) (
|
\TEDIT.PUT.PARALOOKS 170006 . 171143)) (171240 174645 (TEDITFROMLISPSOURCE 171250 . 173894) (
|
||||||
SHELLSCRIPTP 173832 . 174061) (TEDITFROMSHELLSCRIPT 174063 . 174579)))))
|
SHELLSCRIPTP 173896 . 174125) (TEDITFROMSHELLSCRIPT 174127 . 174643)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
|||||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
(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
|
: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)
|
(PRETTYCOMPRINT TEDIT-MENUCOMS)
|
||||||
@@ -1161,7 +1161,8 @@
|
|||||||
TSTREAM])
|
TSTREAM])
|
||||||
|
|
||||||
(\TEDIT.MENU.START
|
(\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 28-Jun-2024 23:08 by rmk")
|
||||||
(* ; "Edited 19-Apr-2024 10:53 by rmk")
|
(* ; "Edited 19-Apr-2024 10:53 by rmk")
|
||||||
(* ; "Edited 10-Apr-2024 23:04 by rmk")
|
(* ; "Edited 10-Apr-2024 23:04 by rmk")
|
||||||
@@ -1195,7 +1196,6 @@
|
|||||||
WIDTH _ (fetch (REGION WIDTH) of WREG)
|
WIDTH _ (fetch (REGION WIDTH) of WREG)
|
||||||
HEIGHT _ (OR HEIGHT 133))
|
HEIGHT _ (OR HEIGHT 133))
|
||||||
TITLE))
|
TITLE))
|
||||||
(WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW))
|
|
||||||
(WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
|
(WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
|
||||||
(* ; "Mark this as a TEDIT MENU window")
|
(* ; "Mark this as a TEDIT MENU window")
|
||||||
(ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
|
(ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
|
||||||
@@ -2899,32 +2899,32 @@
|
|||||||
(ADDTOVAR LAMA )
|
(ADDTOVAR LAMA )
|
||||||
)
|
)
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
|
(FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
|
||||||
TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
|
TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
|
||||||
. 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
|
. 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
|
||||||
MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
|
MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
|
||||||
(MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
|
(MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
|
||||||
MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
|
MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
|
||||||
. 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN
|
. 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN
|
||||||
54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
|
54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
|
||||||
MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
|
MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
|
||||||
. 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
|
. 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
|
||||||
68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846
|
68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877
|
||||||
81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE
|
81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE
|
||||||
79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
|
79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 (
|
||||||
\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
|
\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) (
|
||||||
\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
|
\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 (
|
||||||
\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
|
\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) (
|
||||||
\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
|
\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) (
|
||||||
\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
|
\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 (
|
||||||
\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC
|
\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC
|
||||||
124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
|
124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) (
|
||||||
\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
|
\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) (
|
||||||
\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
|
\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) (
|
||||||
\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
|
\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) (
|
||||||
\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
|
\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN
|
||||||
158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
|
158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770)
|
||||||
(\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
|
(\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) (
|
||||||
177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN
|
||||||
180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
|
180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
|||||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||||
|
|
||||||
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971
|
(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957 191002
|
||||||
|
|
||||||
:EDIT-BY rmk
|
:EDIT-BY rmk
|
||||||
|
|
||||||
:CHANGES-TO (RECORDS PIECE)
|
:CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)
|
||||||
|
|
||||||
:PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
|
:PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)
|
||||||
|
|
||||||
|
|
||||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||||
@@ -1642,7 +1642,8 @@
|
|||||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||||
|
|
||||||
(\TEDIT.OPENTEXTFILE
|
(\TEDIT.OPENTEXTFILE
|
||||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 2-Dec-2025 17:49 by rmk")
|
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 10-May-2026 12:57 by rmk")
|
||||||
|
(* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||||
(* ; "Edited 16-Sep-2025 00:28 by rmk")
|
(* ; "Edited 16-Sep-2025 00:28 by rmk")
|
||||||
(* ; "Edited 8-Sep-2025 21:52 by rmk")
|
(* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||||
@@ -1658,16 +1659,15 @@
|
|||||||
(STRINGP TEXT)
|
(STRINGP TEXT)
|
||||||
(CL:PATHNAMEP TEXT)
|
(CL:PATHNAMEP TEXT)
|
||||||
(STREAMP TEXT))
|
(STREAMP TEXT))
|
||||||
(CAR (NLSETQ (OPENSTREAM (if (STREAMP TEXT)
|
(CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
|
||||||
elseif (CL:PATHNAMEP TEXT)
|
(AND (CL:PATHNAMEP TEXT)
|
||||||
then (FINDFILE TEXT T)
|
(FINDFILE TEXT T))
|
||||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
(FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||||
*TEDIT-EXTENSIONS*)
|
*TEDIT-EXTENSIONS*)
|
||||||
else TEXT)
|
TEXT)
|
||||||
'INPUT
|
'INPUT
|
||||||
'OLD
|
'OLD
|
||||||
`((TYPE TEXT)
|
`((FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
|
||||||
elseif ERROR
|
elseif ERROR
|
||||||
then (ERROR "File not found:" TEXT)))])
|
then (ERROR "File not found:" TEXT)))])
|
||||||
|
|
||||||
@@ -3084,33 +3084,33 @@
|
|||||||
(ADDTOVAR LAMA TEXTPROP)
|
(ADDTOVAR LAMA TEXTPROP)
|
||||||
)
|
)
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
|
(FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
|
||||||
\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
|
\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
|
||||||
. 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
|
. 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
|
||||||
\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
|
\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
|
||||||
\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
|
\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
|
||||||
COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345
|
COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355
|
||||||
106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
|
106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
|
||||||
\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
|
\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
|
||||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
|
\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
|
||||||
\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM
|
\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM
|
||||||
104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 .
|
104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 .
|
||||||
114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 .
|
114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 .
|
||||||
117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR
|
117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR
|
||||||
120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
|
120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
|
||||||
\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
|
\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
|
||||||
. 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
|
. 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
|
||||||
\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR
|
\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR
|
||||||
133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
|
133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
|
||||||
\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
|
\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
|
||||||
\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE
|
\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE
|
||||||
143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
|
143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
|
||||||
151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
|
151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
|
||||||
\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
|
\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
|
||||||
168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
|
168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||||
172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE
|
172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE
|
||||||
173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
|
173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
|
||||||
179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
|
179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
|
||||||
. 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
|
. 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
|
||||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
|
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -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
|
: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)
|
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||||
@@ -458,7 +458,8 @@
|
|||||||
WINDOW])
|
WINDOW])
|
||||||
|
|
||||||
(\TEDIT.WINDOW.GETREGION
|
(\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 27-Jan-2026 15:30 by rmk")
|
||||||
(* ; "Edited 25-Jan-2026 20:09 by rmk")
|
(* ; "Edited 25-Jan-2026 20:09 by rmk")
|
||||||
(* ; "Edited 25-Oct-2025 10:27 by rmk")
|
(* ; "Edited 25-Oct-2025 10:27 by rmk")
|
||||||
@@ -552,7 +553,7 @@
|
|||||||
(CL:WHEN (TXTFILE TSTREAM)
|
(CL:WHEN (TXTFILE TSTREAM)
|
||||||
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
|
(printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
|
||||||
(TERPRI PROMPTWINDOW)
|
(TERPRI PROMPTWINDOW)
|
||||||
(GETBOXREGION WIDTH HEIGHT])
|
(GETREGION WIDTH HEIGHT])
|
||||||
|
|
||||||
(\TEDIT.WINDOW.SETUP
|
(\TEDIT.WINDOW.SETUP
|
||||||
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk")
|
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 15-Jan-2026 10:35 by rmk")
|
||||||
@@ -2393,7 +2394,8 @@
|
|||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
|
|
||||||
(TEDIT.DEACTIVATE.WINDOW
|
(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 9-May-2025 14:54 by rmk")
|
||||||
(* ; "Edited 6-May-2025 15:57 by rmk")
|
(* ; "Edited 6-May-2025 15:57 by rmk")
|
||||||
(* ; "Edited 4-May-2025 21:45 by rmk")
|
(* ; "Edited 4-May-2025 21:45 by rmk")
|
||||||
@@ -2455,7 +2457,10 @@
|
|||||||
"Close the file that this window was open on.")
|
"Close the file that this window was open on.")
|
||||||
(CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW)
|
(CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW)
|
||||||
(replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T)
|
(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))
|
(for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T))
|
||||||
(FGETTOBJ MTEXTOBJ MENUFLG))
|
(FGETTOBJ MTEXTOBJ MENUFLG))
|
||||||
do
|
do
|
||||||
@@ -2463,12 +2468,9 @@
|
|||||||
|
|
||||||
(FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
|
(FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
|
||||||
(WINDOWPROP MENUW 'TEDITMENU NIL)
|
(WINDOWPROP MENUW 'TEDITMENU NIL)
|
||||||
(GIVE.TTY.PROCESS MENUW))
|
(TEDIT.KILL MTEXTOBJ))
|
||||||
(\TEDIT.CLOSEPANE PANE T) (* ; "We're already closing")
|
(\TEDIT.CLOSEPANE PANE T)
|
||||||
|
(TEDIT.KILL TSTREAM])
|
||||||
(* ;; "Let it kill itself")
|
|
||||||
|
|
||||||
(GIVE.TTY.PROCESS PANE])
|
|
||||||
|
|
||||||
(\TEDIT.RESHAPEFN
|
(\TEDIT.RESHAPEFN
|
||||||
[LAMBDA (PANE BITS OLDREGION) (* ; "Edited 20-Apr-2025 12:55 by rmk")
|
[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 _
|
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
|
||||||
TEDIT.ICON.TITLE.REGION))
|
TEDIT.ICON.TITLE.REGION))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE
|
(FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE
|
||||||
18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
|
18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) (
|
||||||
\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
|
\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682
|
||||||
. 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
|
. 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) (
|
||||||
\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
|
\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) (
|
||||||
\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
|
\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) (
|
||||||
\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE
|
\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE
|
||||||
64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
|
64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 (
|
||||||
\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
|
\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) (
|
||||||
\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
|
\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) (
|
||||||
\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
|
\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) (
|
||||||
\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
|
\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 (
|
||||||
\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
|
\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) (
|
||||||
\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP
|
\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP
|
||||||
124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
|
124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241
|
||||||
)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
|
)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) (
|
||||||
TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN
|
TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN
|
||||||
134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 .
|
134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 .
|
||||||
139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
|
139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) (
|
||||||
\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
|
\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) (
|
||||||
\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 .
|
\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 .
|
||||||
157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
|
157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) (
|
||||||
\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
|
\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650
|
||||||
. 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
|
. 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) (
|
||||||
\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP
|
\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP
|
||||||
187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
|
188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) (
|
||||||
\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
|
\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) (
|
||||||
\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 .
|
\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 .
|
||||||
213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
|
213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) (
|
||||||
\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
|
\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) (
|
||||||
\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 .
|
\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 .
|
||||||
223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
|
223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user