Skip to content

Commit 5bc05ca

Browse files
rmkaplanrmkaplan
authored
Rmk100 tedit catch up a few more fixes (#2204)
* Fixed #2185 and #2173. * TEDIT-MENU TEDIT-PAGE Fix a few more bugs * TEDIT-STRESS--cleanup and harden a bit for future use * TEDIT-FILE: Allow putting of an APPEND file. There is still a guard against putting a readonly file--use COPYFILE instead. Provide message if won't put * Get proper insert caret looks before EOL
1 parent cad0143 commit 5bc05ca

14 files changed

+305
-329
lines changed

‎library/tedit/TEDIT-FILE

Lines changed: 128 additions & 128 deletions
Large diffs are not rendered by default.

‎library/tedit/TEDIT-FILE.LCOM

85 Bytes
Binary file not shown.

‎library/tedit/TEDIT-LOOKS

Lines changed: 32 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,13 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "24-Apr-2025 23:47:54" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;425 159446
3+
(FILECREATED "13-Jul-2025 19:39:57" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;426 158882
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS \TEDIT.TRANSLATE.ASCIICHARS)
7+
:CHANGES-TO (VARS TEDIT-LOOKSCOMS)
8+
(FNS \TEDIT.GET.INSERT.CHARLOOKS TEDIT.CARETLOOKS \TEDIT.CARETPIECE)
89

9-
:PREVIOUS-DATE "24-Apr-2025 16:05:02" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;424)
10+
:PREVIOUS-DATE "24-Apr-2025 23:47:54" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;425)
1011

1112

1213
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -21,9 +22,7 @@
2122
(MACROS GETCLOOKS SETCLOOKS FGETCLOOKS FSETCLOOKS
2223
CHARLOOKS!)
2324
(MACROS GETPLOOKS SETPLOOKS FGETPLOOKS FSETPLOOKS
24-
PARALOOKS!)
25-
(* ; "TO BE REMOVED")
26-
(MACROS FSETPARA FGETPARA GETPARA SETPARA)))
25+
PARALOOKS!)))
2726
(INITRECORDS CHARLOOKS PARALOOKS PENDINGTAB)
2827
(FNS \TEDIT.CHARLOOKS.DEFPRINT \TEDIT.PARALOOKS.DEFPRINT)
2928
(COMS
@@ -323,20 +322,6 @@
323322
(PUTPROPS PARALOOKS! MACRO ((PL)
324323
(\DTEST PL 'PARALOOKS)))
325324
)
326-
(DECLARE%: EVAL@COMPILE
327-
328-
(PUTPROPS FSETPARA MACRO ((PLOOKS FIELD NEWVALUE)
329-
(freplace (PARALOOKS FIELD) of PLOOKS with NEWVALUE)))
330-
331-
(PUTPROPS FGETPARA MACRO ((PLOOKS FIELD)
332-
(ffetch (PARALOOKS FIELD) of PLOOKS)))
333-
334-
(PUTPROPS GETPARA MACRO ((PLOOKS FIELD)
335-
(fetch (PARALOOKS FIELD) of PLOOKS)))
336-
337-
(PUTPROPS SETPARA MACRO ((PLOOKS FIELD NEWVALUE)
338-
(replace (PARALOOKS FIELD) of PLOOKS with NEWVALUE)))
339-
)
340325

341326
(* "END EXPORTED DEFINITIONS")
342327

@@ -879,7 +864,8 @@
879864
TEXTOBJ])
880865

881866
(\TEDIT.GET.INSERT.CHARLOOKS
882-
[LAMBDA (TEXTOBJ SEL/CHNO) (* ; "Edited 22-Apr-2025 10:28 by rmk")
867+
[LAMBDA (TEXTOBJ SEL/CHNO) (* ; "Edited 13-Jul-2025 19:39 by rmk")
868+
(* ; "Edited 22-Apr-2025 10:28 by rmk")
883869
(* ; "Edited 26-Nov-2024 04:58 by rmk")
884870
(* ; "Edited 23-Oct-2024 00:04 by rmk")
885871
(* ; "Edited 31-Jul-2024 12:10 by rmk")
@@ -896,16 +882,16 @@
896882
(LET ((PC (\TEDIT.CHTOPC (IMAX 1 (IMIN (TEXTLEN TEXTOBJ)
897883
(if (type? SELECTION SEL/CHNO)
898884
then (SELECTQ (GETSEL SEL/CHNO POINT)
899-
(LEFT (ADD1 (TEDIT.GETPOINT TEXTOBJ SEL/CHNO)
900-
))
885+
(LEFT (TEDIT.GETPOINT TEXTOBJ SEL/CHNO))
901886
(RIGHT (SUB1 (TEDIT.GETPOINT TEXTOBJ SEL/CHNO
902887
)))
903888
(\TEDIT.THELP "BAD POINT"))
904889
else SEL/CHNO)))
905890
TEXTOBJ))
906891
LOOKS)
907892
(CL:WHEN (AND (PPARALAST PC)
908-
(PREVPIECE PC)) (* ; "Get the looks before the EOL")
893+
(PREVPIECE PC)) (* ;
894+
 "Get the looks before the EOL. What about meta EOL? Look at the character?")
909895
(SETQ PC (PREVPIECE PC)))
910896
(SETQ LOOKS (if PC
911897
then (PCHARLOOKS PC)
@@ -2531,26 +2517,26 @@
25312517
(ADDTOVAR LAMA )
25322518
)
25332519
(DECLARE%: DONTCOPY
2534-
(FILEMAP (NIL (22843 24785 (\TEDIT.CHARLOOKS.DEFPRINT 22853 . 23989) (\TEDIT.PARALOOKS.DEFPRINT 23991
2535-
. 24783)) (24889 25985 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24899 . 25607) (\TEDIT.CREATE.FACE.MENU 25609
2536-
. 25781) (\TEDIT.CREATE.SIZE.MENU 25783 . 25983)) (26784 28673 (\TEDIT.CHARLOOKS.FEATURE.CHECK 26794
2537-
. 28671)) (28975 53558 (\TEDIT.CHARLOOKS.FROM.FONT 28985 . 31198) (\TEDIT.EQCLOOKS 31200 . 34022) (
2538-
\TEDIT.SAMECLOOKS 34024 . 36910) (TEDIT.CARETLOOKS 36912 . 38458) (TEDIT.COPY.LOOKS 38460 . 41743) (
2539-
\TEDIT.UNPARSE.CHARLOOKS.LIST 41745 . 45239) (\TEDIT.MODIFYLOOKS 45241 . 47401) (TEDIT.NEW.FONT 47403
2540-
. 47850) (\TEDIT.CARETLOOKS.VERIFY 47852 . 48689) (\TEDIT.CARETPIECE 48691 . 48996) (
2541-
\TEDIT.GET.INSERT.CHARLOOKS 48998 . 51936) (\TEDIT.GET.TERMSA.WIDTHS 51938 . 52354) (
2542-
\TEDIT.PARSE.CHARLOOKS.LIST 52356 . 53556)) (53559 70705 (\TEDIT.TRANSLATE.ASCIICHARS 53569 . 64441) (
2543-
\TEDIT.CONVERT.TO.FORMATTED 64443 . 70703)) (71717 78828 (\TEDIT.UNIQUIFY.CHARLOOKS 71727 . 73387) (
2544-
\TEDIT.UNIQUIFY.PARALOOKS 73389 . 74656) (\TEDIT.UNIQUIFY.ALL 74658 . 76633) (
2545-
\TEDIT.FLUSH.UNUSED.LOOKS 76635 . 78826)) (78861 90168 (TEDIT.LOOKS 78871 . 81260) (TEDIT.GET.LOOKS
2546-
81262 . 83291) (TEDIT.SUBLOOKS 83293 . 87532) (TEDIT.FINDLOOKS 87534 . 90166)) (90243 119751 (
2547-
\TEDIT.CHANGE.CHARLOOKS 90253 . 98910) (\TEDIT.CHANGE.CHARLOOKS.NEW 98912 . 102706) (
2548-
\TEDIT.CHARLOOKS.CHANGE.FONT 102708 . 111015) (\TEDIT.FONT.NEXTSIZE 111017 . 112638) (\TEDIT.LOOKS
2549-
112640 . 115969) (\TEDIT.FONTCOPY 115971 . 117472) (\TEDIT.COERCE.FONTCLASS 117474 . 118625) (
2550-
\TEDIT.FONTCLASS.TO.FONT 118627 . 119749)) (119794 150751 (\TEDIT.EQFMTSPEC 119804 . 123019) (
2551-
TEDIT.GET.PARALOOKS 123021 . 127068) (\TEDIT.PARSE.PARALOOKS.LIST 127070 . 134412) (TEDIT.PARALOOKS
2552-
134414 . 135454) (\TEDIT.CHANGE.PARALOOKS 135456 . 142424) (\TEDIT.CHANGE.PARALOOKS.NEW 142426 .
2553-
146409) (TEDIT.COPY.PARALOOKS 146411 . 149085) (\TEDIT.PARABOUNDS 149087 . 150749)) (150811 158564 (
2554-
TEDIT.SUBPARALOOKS 150821 . 154960) (SAMEPARALOOKS 154962 . 158562)) (158565 159252 (
2555-
\TEDIT.MARK.REVISION 158575 . 159250)))))
2520+
(FILEMAP (NIL (22170 24112 (\TEDIT.CHARLOOKS.DEFPRINT 22180 . 23316) (\TEDIT.PARALOOKS.DEFPRINT 23318
2521+
. 24110)) (24216 25312 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24226 . 24934) (\TEDIT.CREATE.FACE.MENU 24936
2522+
. 25108) (\TEDIT.CREATE.SIZE.MENU 25110 . 25310)) (26111 28000 (\TEDIT.CHARLOOKS.FEATURE.CHECK 26121
2523+
. 27998)) (28302 52994 (\TEDIT.CHARLOOKS.FROM.FONT 28312 . 30525) (\TEDIT.EQCLOOKS 30527 . 33349) (
2524+
\TEDIT.SAMECLOOKS 33351 . 36237) (TEDIT.CARETLOOKS 36239 . 37785) (TEDIT.COPY.LOOKS 37787 . 41070) (
2525+
\TEDIT.UNPARSE.CHARLOOKS.LIST 41072 . 44566) (\TEDIT.MODIFYLOOKS 44568 . 46728) (TEDIT.NEW.FONT 46730
2526+
. 47177) (\TEDIT.CARETLOOKS.VERIFY 47179 . 48016) (\TEDIT.CARETPIECE 48018 . 48323) (
2527+
\TEDIT.GET.INSERT.CHARLOOKS 48325 . 51372) (\TEDIT.GET.TERMSA.WIDTHS 51374 . 51790) (
2528+
\TEDIT.PARSE.CHARLOOKS.LIST 51792 . 52992)) (52995 70141 (\TEDIT.TRANSLATE.ASCIICHARS 53005 . 63877) (
2529+
\TEDIT.CONVERT.TO.FORMATTED 63879 . 70139)) (71153 78264 (\TEDIT.UNIQUIFY.CHARLOOKS 71163 . 72823) (
2530+
\TEDIT.UNIQUIFY.PARALOOKS 72825 . 74092) (\TEDIT.UNIQUIFY.ALL 74094 . 76069) (
2531+
\TEDIT.FLUSH.UNUSED.LOOKS 76071 . 78262)) (78297 89604 (TEDIT.LOOKS 78307 . 80696) (TEDIT.GET.LOOKS
2532+
80698 . 82727) (TEDIT.SUBLOOKS 82729 . 86968) (TEDIT.FINDLOOKS 86970 . 89602)) (89679 119187 (
2533+
\TEDIT.CHANGE.CHARLOOKS 89689 . 98346) (\TEDIT.CHANGE.CHARLOOKS.NEW 98348 . 102142) (
2534+
\TEDIT.CHARLOOKS.CHANGE.FONT 102144 . 110451) (\TEDIT.FONT.NEXTSIZE 110453 . 112074) (\TEDIT.LOOKS
2535+
112076 . 115405) (\TEDIT.FONTCOPY 115407 . 116908) (\TEDIT.COERCE.FONTCLASS 116910 . 118061) (
2536+
\TEDIT.FONTCLASS.TO.FONT 118063 . 119185)) (119230 150187 (\TEDIT.EQFMTSPEC 119240 . 122455) (
2537+
TEDIT.GET.PARALOOKS 122457 . 126504) (\TEDIT.PARSE.PARALOOKS.LIST 126506 . 133848) (TEDIT.PARALOOKS
2538+
133850 . 134890) (\TEDIT.CHANGE.PARALOOKS 134892 . 141860) (\TEDIT.CHANGE.PARALOOKS.NEW 141862 .
2539+
145845) (TEDIT.COPY.PARALOOKS 145847 . 148521) (\TEDIT.PARABOUNDS 148523 . 150185)) (150247 158000 (
2540+
TEDIT.SUBPARALOOKS 150257 . 154396) (SAMEPARALOOKS 154398 . 157998)) (158001 158688 (
2541+
\TEDIT.MARK.REVISION 158011 . 158686)))))
25562542
STOP

‎library/tedit/TEDIT-LOOKS.LCOM

-1 Bytes
Binary file not shown.

‎library/tedit/TEDIT-MENU

Lines changed: 37 additions & 37 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "29-May-2025 09:31:55" {WMEDLEY}<library>tedit>TEDIT-MENU.;486 179156
3+
(FILECREATED " 5-Jun-2025 19:38:52" {WMEDLEY}<library>tedit>TEDIT-MENU.;487 179201
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS \TEDIT.EXPANDEDMENU.CREATE \TEDIT.EXPANDEDMENU.ACTIONFN TEDIT.DEFAULT.MENUFN
8-
\TEDIT.PAGEMENU.START \TEDIT.EXPANDEDMENU.START \TEDIT.CHARMENU.START
9-
\TEDIT.PARAMENU.START \TEDIT.MENU.OPEN?)
10-
(VARS TEDIT-MENUCOMS)
7+
:CHANGES-TO (FNS \TEDIT.PAGEMENU.CREATE \TEDIT.PAGEREGION.UNPARSE)
118

12-
:PREVIOUS-DATE "26-May-2025 20:12:04" {WMEDLEY}<library>tedit>TEDIT-MENU.;478)
9+
:PREVIOUS-DATE "29-May-2025 09:31:55" {WMEDLEY}<library>tedit>TEDIT-MENU.;486)
1310

1411

1512
(PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -2379,7 +2376,8 @@
23792376
(DEFINEQ
23802377

23812378
(\TEDIT.PAGEMENU.CREATE
2382-
[LAMBDA (TSTREAM) (* ; "Edited 11-May-2025 14:40 by rmk")
2379+
[LAMBDA (TSTREAM) (* ; "Edited 5-Jun-2025 18:41 by rmk")
2380+
(* ; "Edited 11-May-2025 14:40 by rmk")
23832381
(* ; "Edited 27-Jan-2025 08:51 by rmk")
23842382
(* ; "Edited 7-Jan-2025 15:47 by rmk")
23852383
(* ; "Edited 5-Jan-2025 16:02 by rmk")
@@ -2424,7 +2422,6 @@
24242422
(FIELD (IDENTIFIER STARTINGPAGE#)
24252423
(PRELABEL "Starting page #:")
24262424
(LABELFONT (HELVETICA 10))
2427-
(INITSTATE 1)
24282425
(FIELDTYPE POSITIVENUMBER))
24292426
EOL
24302427
(TEXT (STRING "For page: ")
@@ -2587,7 +2584,8 @@
25872584
(TEDIT.OBJECT.CHANGED MENUSTREAM OBJ))))])
25882585

25892586
(\TEDIT.PAGEREGION.UNPARSE
2590-
[LAMBDA (TSTREAM PAGEID) (* ; "Edited 30-Aug-2024 23:48 by rmk")
2587+
[LAMBDA (TSTREAM PAGEID) (* ; "Edited 5-Jun-2025 19:37 by rmk")
2588+
(* ; "Edited 30-Aug-2024 23:48 by rmk")
25912589
(* ; "Edited 15-Aug-2024 22:52 by rmk")
25922590
(* ; "Edited 10-Aug-2024 20:49 by rmk")
25932591
(* ; "Edited 8-Aug-2024 23:27 by rmk")
@@ -2611,6 +2609,8 @@
26112609
PAGELOOKS)
26122610
(PUTASSOC 'LANDSCAPE (LISTGET LOCALINFO 'LANDSCAPE?)
26132611
PAGELOOKS)
2612+
(PUTASSOC 'STARTINGPAGE# (LISTGET LOCALINFO 'STARTINGPAGE#)
2613+
PAGELOOKS)
26142614
(PUTASSOC 'FOLIOFORMAT (SELECTQ (CAR (LISTGET LOCALINFO 'FOLIOINFO))
26152615
(ARABIC '|123|)
26162616
(LOWERROMAN 'xiv)
@@ -2912,32 +2912,32 @@
29122912
(ADDTOVAR LAMA )
29132913
)
29142914
(DECLARE%: DONTCOPY
2915-
(FILEMAP (NIL (6277 17915 (TEDIT.ADD.MENUITEM 6287 . 8404) (TEDIT.DEFAULT.MENUFN 8406 . 15127) (
2916-
TEDIT.REMOVE.MENUITEM 15129 . 16126) (\TEDIT.CREATEMENU 16128 . 16693) (\TEDIT.MENU.WHENHELDFN 16695
2917-
. 17600) (\TEDIT.MENU.WHENSELECTEDFN 17602 . 17913)) (18729 65372 (DRAWMARGINSCALE 18739 . 22198) (
2918-
MARGINBAR 22200 . 29325) (MARGINBAR.CREATE 29327 . 32746) (MB.MARGINBAR.BUTTONEVENTINFN 32748 . 40550)
2919-
(MB.MARGINBAR.SELFN.TABS 40552 . 45792) (MB.MARGINBAR.SELFN.TABS.KIND 45794 . 46729) (
2920-
MARGINBAR.GETSTATEFN 46731 . 50718) (MARGINBAR.SETSTATEFN 50720 . 50930) (MARGINBAR.NEUTRALIZE 50932
2921-
. 51345) (MARGINBAR.LOOKS 51347 . 54453) (MB.MARGINBAR.SIZEFN 54455 . 55058) (MB.MARGINBAR.DISPLAYFN
2922-
55060 . 58121) (MDESCALE 58123 . 58663) (MSCALE 58665 . 58995) (MB.MARGINBAR.SHOWTAB 58997 . 61320) (
2923-
MB.MARGINBAR.TABTRACK 61322 . 62707) (MARGINBAR.INIT 62709 . 64102) (\TEDIT.PARALOOKS.TO.MARBAR 64104
2924-
. 65370)) (66197 73479 (TEDIT.MENUSTREAM 66207 . 67207) (TEDITMENUP 67209 . 68178) (\TEDIT.MENU.START
2925-
68180 . 72527) (\TEDIT.MENU.OPEN? 72529 . 72903) (\TEDIT.MENU.BUTTONEVENTFN 72905 . 73477)) (73798
2926-
81720 (\TEDIT.MENU.CREATE 73808 . 75619) (\TEDIT.MENU.PARSE 75621 . 79310) (\TEDIT.MENU.NEUTRALIZE
2927-
79312 . 81383) (\TEDITMENU.RECORD.UNFORMATTED 81385 . 81718)) (81786 101567 (
2928-
\TEDIT.EXPANDEDMENU.CREATE 81796 . 87263) (\TEDIT.EXPANDEDMENU.START 87265 . 88889) (
2929-
\TEDIT.EXPANDEDMENU.FN 88891 . 92146) (\TEDIT.EXPANDEDMENU.ACTIONFN 92148 . 101565)) (101629 117487 (
2930-
\TEDIT.PARAMENU.CREATE 101639 . 107660) (\TEDIT.PARAMENU.START 107662 . 108787) (
2931-
\TEDIT.APPLY.PARALOOKS 108789 . 109841) (\TEDIT.SHOW.PARALOOKS 109843 . 112734) (
2932-
\TEDIT.PARAMENU.FILLIN 112736 . 117485)) (117692 144347 (\TEDIT.CHARMENU.CREATE 117702 . 120306) (
2933-
\TEDIT.CHARMENU.START 120308 . 121598) (\TEDIT.CHARMENU.SPEC 121600 . 126283) (\TEDIT.CHARMENU.PARSE
2934-
126285 . 129453) (\TEDIT.CHARMENU.FILLIN 129455 . 134085) (\TEDIT.SHOW.CHARLOOKS 134087 . 137445) (
2935-
\TEDIT.APPLY.CHARLOOKS 137447 . 138608) (\TEDIT.OFFSETTYPE.STATEFN 138610 . 140573) (
2936-
\TEDIT.OTHER.STATECHANGEFN 140575 . 142220) (\TEDIT.OTHER.SELECTFN 142222 . 144345)) (144409 173196 (
2937-
\TEDIT.PAGEMENU.CREATE 144419 . 152869) (\TEDIT.PAGEMENU.START 152871 . 153222) (\TEDIT.SHOW.PAGELOOKS
2938-
153224 . 155110) (\TEDIT.PAGEMENU.FILLIN 155112 . 156662) (\TEDIT.PAGEREGION.UNPARSE 156664 . 165854)
2939-
(\TEDIT.APPLY.PAGELOOKS 165856 . 167783) (\TEDIT.CHANGE.PAGELOOKS 167785 . 172352) (
2940-
\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 172354 . 173194)) (173197 179000 (\TEDIT.PAGEMENU.CREATE.HEADINGS
2941-
173207 . 176019) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 176021 . 177446) (
2942-
\TEDIT.PAGEMENU.HEADINGS.STATEFN 177448 . 178998)))))
2915+
(FILEMAP (NIL (6051 17689 (TEDIT.ADD.MENUITEM 6061 . 8178) (TEDIT.DEFAULT.MENUFN 8180 . 14901) (
2916+
TEDIT.REMOVE.MENUITEM 14903 . 15900) (\TEDIT.CREATEMENU 15902 . 16467) (\TEDIT.MENU.WHENHELDFN 16469
2917+
. 17374) (\TEDIT.MENU.WHENSELECTEDFN 17376 . 17687)) (18503 65146 (DRAWMARGINSCALE 18513 . 21972) (
2918+
MARGINBAR 21974 . 29099) (MARGINBAR.CREATE 29101 . 32520) (MB.MARGINBAR.BUTTONEVENTINFN 32522 . 40324)
2919+
(MB.MARGINBAR.SELFN.TABS 40326 . 45566) (MB.MARGINBAR.SELFN.TABS.KIND 45568 . 46503) (
2920+
MARGINBAR.GETSTATEFN 46505 . 50492) (MARGINBAR.SETSTATEFN 50494 . 50704) (MARGINBAR.NEUTRALIZE 50706
2921+
. 51119) (MARGINBAR.LOOKS 51121 . 54227) (MB.MARGINBAR.SIZEFN 54229 . 54832) (MB.MARGINBAR.DISPLAYFN
2922+
54834 . 57895) (MDESCALE 57897 . 58437) (MSCALE 58439 . 58769) (MB.MARGINBAR.SHOWTAB 58771 . 61094) (
2923+
MB.MARGINBAR.TABTRACK 61096 . 62481) (MARGINBAR.INIT 62483 . 63876) (\TEDIT.PARALOOKS.TO.MARBAR 63878
2924+
. 65144)) (65971 73253 (TEDIT.MENUSTREAM 65981 . 66981) (TEDITMENUP 66983 . 67952) (\TEDIT.MENU.START
2925+
67954 . 72301) (\TEDIT.MENU.OPEN? 72303 . 72677) (\TEDIT.MENU.BUTTONEVENTFN 72679 . 73251)) (73572
2926+
81494 (\TEDIT.MENU.CREATE 73582 . 75393) (\TEDIT.MENU.PARSE 75395 . 79084) (\TEDIT.MENU.NEUTRALIZE
2927+
79086 . 81157) (\TEDITMENU.RECORD.UNFORMATTED 81159 . 81492)) (81560 101341 (
2928+
\TEDIT.EXPANDEDMENU.CREATE 81570 . 87037) (\TEDIT.EXPANDEDMENU.START 87039 . 88663) (
2929+
\TEDIT.EXPANDEDMENU.FN 88665 . 91920) (\TEDIT.EXPANDEDMENU.ACTIONFN 91922 . 101339)) (101403 117261 (
2930+
\TEDIT.PARAMENU.CREATE 101413 . 107434) (\TEDIT.PARAMENU.START 107436 . 108561) (
2931+
\TEDIT.APPLY.PARALOOKS 108563 . 109615) (\TEDIT.SHOW.PARALOOKS 109617 . 112508) (
2932+
\TEDIT.PARAMENU.FILLIN 112510 . 117259)) (117466 144121 (\TEDIT.CHARMENU.CREATE 117476 . 120080) (
2933+
\TEDIT.CHARMENU.START 120082 . 121372) (\TEDIT.CHARMENU.SPEC 121374 . 126057) (\TEDIT.CHARMENU.PARSE
2934+
126059 . 129227) (\TEDIT.CHARMENU.FILLIN 129229 . 133859) (\TEDIT.SHOW.CHARLOOKS 133861 . 137219) (
2935+
\TEDIT.APPLY.CHARLOOKS 137221 . 138382) (\TEDIT.OFFSETTYPE.STATEFN 138384 . 140347) (
2936+
\TEDIT.OTHER.STATECHANGEFN 140349 . 141994) (\TEDIT.OTHER.SELECTFN 141996 . 144119)) (144183 173241 (
2937+
\TEDIT.PAGEMENU.CREATE 144193 . 152705) (\TEDIT.PAGEMENU.START 152707 . 153058) (\TEDIT.SHOW.PAGELOOKS
2938+
153060 . 154946) (\TEDIT.PAGEMENU.FILLIN 154948 . 156498) (\TEDIT.PAGEREGION.UNPARSE 156500 . 165899)
2939+
(\TEDIT.APPLY.PAGELOOKS 165901 . 167828) (\TEDIT.CHANGE.PAGELOOKS 167830 . 172397) (
2940+
\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 172399 . 173239)) (173242 179045 (\TEDIT.PAGEMENU.CREATE.HEADINGS
2941+
173252 . 176064) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 176066 . 177491) (
2942+
\TEDIT.PAGEMENU.HEADINGS.STATEFN 177493 . 179043)))))
29432943
STOP

‎library/tedit/TEDIT-MENU.LCOM

-142 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)