Skip to content

Commit 220c995

Browse files
fghalaszfghalasz
authored
Minor Tedit tweaks to help Notecards get rid of TEXTOBJs (#1586)
1 parent fcd0206 commit 220c995

File tree

4 files changed

+75
-70
lines changed

4 files changed

+75
-70
lines changed

‎library/tedit/TEDIT-LOOKS‎

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

3-
(FILECREATED " 4-Mar-2024 22:50:23" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;219 152365
3+
(FILECREATED "17-Mar-2024 23:34:23" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-LOOKS.;5 152055
44

5-
:EDIT-BY rmk
5+
:CHANGES-TO (FNS TEDIT.PARALOOKS)
66

7-
:CHANGES-TO (FNS \TEDIT.CHANGE.LOOKS TEDIT.PARALOOKS \TEDIT.UNDO.LOOKS \TEDIT.UNDO.PARALOOKS)
8-
9-
:PREVIOUS-DATE "24-Feb-2024 12:34:14" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;218)
7+
:PREVIOUS-DATE " 4-Mar-2024 22:50:23" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-LOOKS.;3
8+
)
109

1110

1211
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -354,15 +353,6 @@
354353
'46)
355354

356355
(DEFPRINT 'FMTSPEC (FUNCTION \TEDIT.FMTSPEC.DEFPRINT))
357-
358-
(/DECLAREDATATYPE 'PENDINGTAB '(POINTER POINTER POINTER POINTER FULLXPOINTER POINTER)
359-
'((PENDINGTAB 0 POINTER)
360-
(PENDINGTAB 2 POINTER)
361-
(PENDINGTAB 4 POINTER)
362-
(PENDINGTAB 6 POINTER)
363-
(PENDINGTAB 8 FULLXPOINTER)
364-
(PENDINGTAB 10 POINTER))
365-
'12)
366356
(DEFINEQ
367357

368358
(\TEDIT.CHARLOOKS.DEFPRINT
@@ -1799,6 +1789,7 @@ CONS pair of default width and LIST of TAB record instances")
17991789

18001790
(* ;; "Apply a given format spec to the paragraphs which are included in this guy. This assumes that paragraph boundaries are aligned with piece boundaries, so no splitting is needed. If we are given a FMTSPEC we replace the FMTSPEC of all pieces in all selected paragraphs. Otherwise, we just override particular values in the selected-paragraph looks.")
18011791

1792+
(SETQ TEXTOBJ (TEXTOBJ TEXTOBJ))
18021793
(CL:UNLESS (type? SELECTION SEL)
18031794
(SETQ SEL (CL:IF (FIXP SEL)
18041795
(TEDIT.SETSEL TEXTOBJ SEL LEN 'RIGHT)
@@ -1864,7 +1855,7 @@ CONS pair of default width and LIST of TAB record instances")
18641855

18651856
(* ;; "Presumably all the pieces within a paragraph have the same looks, and maybe a sequence of paragraphs will have the same looks. Testing LASTFMTSPEC will typically avoid repeated calculation of the same NEWFMTSPEC")
18661857

1867-
(for PC LASTFMTSPEC NEWFMTSPEC inselpieces PARAPIECES
1858+
(for PC LASTFMTSPEC NEWFMTSPEC inselpieces PARAPIECES
18681859
do (push OLDLOOKSLIST (PPARALOOKS PC)) (* ;
18691860
 "Save the old looks of each piece for undoing.")
18701861
(if (type? FMTSPEC NEWLOOKS)
@@ -2410,25 +2401,25 @@ CONS pair of default width and LIST of TAB record instances")
24102401
(GLOBALVARS *TEDIT-PARASTYLE-CACHE* *TEDIT-CURRENTPARA-CACHE* *TEDIT-STYLESHEET-SAVE-LIST*)
24112402
)
24122403
(DECLARE%: DONTCOPY
2413-
(FILEMAP (NIL (21037 22798 (\TEDIT.CHARLOOKS.DEFPRINT 21047 . 22178) (\TEDIT.FMTSPEC.DEFPRINT 22180 .
2414-
22796)) (23908 50243 (CHARLOOKS.FROM.FONT 23918 . 25286) (EQCLOOKS 25288 . 28339) (SAMECLOOKS 28341 .
2415-
32493) (TEDIT.CARETLOOKS 32495 . 33537) (TEDIT.COPY.LOOKS 33539 . 35524) (
2416-
\TEDIT.UNPARSE.CHARLOOKS.LIST 35526 . 38129) (TEDIT.MODIFYLOOKS 38131 . 40124) (TEDIT.NEW.FONT 40126
2417-
. 40546) (\TEDIT.CARETLOOKS.VERIFY 40548 . 41385) (\TEDIT.CARETPIECE 41387 . 41577) (
2418-
\TEDIT.GET.INSERT.CHARLOOKS 41579 . 43091) (\TEDIT.GET.TERMSA.WIDTHS 43093 . 43509) (
2419-
\TEDIT.PARSE.CHARLOOKS.LIST 43511 . 50241)) (50244 64418 (\TEDIT.TRANSLATE.ASCIICHARS 50254 . 60265) (
2420-
\TEDIT.CONVERT.TO.FORMATTED 60267 . 64416)) (65608 72323 (\TEDIT.UNIQUIFY.CHARLOOKS 65618 . 67162) (
2421-
\TEDIT.UNIQUIFY.PARALOOKS 67164 . 68315) (\TEDIT.UNIQUIFY.ALL 68317 . 70019) (
2422-
\TEDIT.FLUSH.UNUSED.LOOKS 70021 . 72321)) (72371 77760 (TEDIT.SUBLOOKS 72381 . 75285) (TEDIT.FINDLOOKS
2423-
75287 . 77758)) (77761 98634 (\TEDIT.CHANGE.LOOKS 77771 . 90595) (TEDIT.LOOKS 90597 . 92444) (
2424-
\TEDIT.LOOKS 92446 . 95344) (\TEDIT.FONTCOPY 95346 . 96544) (TEDIT.GET.LOOKS 96546 . 98632)) (98677
2425-
130558 (EQFMTSPEC 98687 . 102188) (TEDIT.GET.PARALOOKS 102190 . 105819) (\TEDIT.PARSE.PARALOOKS.LIST
2426-
105821 . 113739) (TEDIT.PARALOOKS 113741 . 127047) (TEDIT.COPY.PARALOOKS 127049 . 129007) (
2427-
\TEDIT.PARABOUNDS 129009 . 130556)) (130618 136661 (TEDIT.SUBPARALOOKS 130628 . 133262) (SAMEPARALOOKS
2428-
133264 . 136659)) (136704 140615 (\TEDIT.UNDO.LOOKS 136714 . 138876) (\TEDIT.UNDO.PARALOOKS 138878 .
2429-
140613)) (140654 141232 (\TEDIT.MARK.REVISION 140664 . 141230)) (141294 142119 (
2430-
\CREATE.TEDIT.DEFAULT.FMTSPEC 141304 . 141741) (\CREATE.TEDIT.FACE.MENU 141743 . 141915) (
2431-
\CREATE.TEDIT.SIZE.MENU 141917 . 142117)) (142156 151061 (\TEDIT.APPLY.STYLES 142166 . 145731) (
2432-
\TEDIT.APPLY.PARASTYLES 145733 . 147935) (TEDIT.STYLESHEET 147937 . 149004) (TEDIT.POP.STYLESHEET
2433-
149006 . 149674) (TEDIT.PUSH.STYLESHEET 149676 . 150416) (TEDIT.ADD.STYLESHEET 150418 . 151059)))))
2404+
(FILEMAP (NIL (20694 22455 (\TEDIT.CHARLOOKS.DEFPRINT 20704 . 21835) (\TEDIT.FMTSPEC.DEFPRINT 21837 .
2405+
22453)) (23565 49900 (CHARLOOKS.FROM.FONT 23575 . 24943) (EQCLOOKS 24945 . 27996) (SAMECLOOKS 27998 .
2406+
32150) (TEDIT.CARETLOOKS 32152 . 33194) (TEDIT.COPY.LOOKS 33196 . 35181) (
2407+
\TEDIT.UNPARSE.CHARLOOKS.LIST 35183 . 37786) (TEDIT.MODIFYLOOKS 37788 . 39781) (TEDIT.NEW.FONT 39783
2408+
. 40203) (\TEDIT.CARETLOOKS.VERIFY 40205 . 41042) (\TEDIT.CARETPIECE 41044 . 41234) (
2409+
\TEDIT.GET.INSERT.CHARLOOKS 41236 . 42748) (\TEDIT.GET.TERMSA.WIDTHS 42750 . 43166) (
2410+
\TEDIT.PARSE.CHARLOOKS.LIST 43168 . 49898)) (49901 64075 (\TEDIT.TRANSLATE.ASCIICHARS 49911 . 59922) (
2411+
\TEDIT.CONVERT.TO.FORMATTED 59924 . 64073)) (65265 71980 (\TEDIT.UNIQUIFY.CHARLOOKS 65275 . 66819) (
2412+
\TEDIT.UNIQUIFY.PARALOOKS 66821 . 67972) (\TEDIT.UNIQUIFY.ALL 67974 . 69676) (
2413+
\TEDIT.FLUSH.UNUSED.LOOKS 69678 . 71978)) (72028 77417 (TEDIT.SUBLOOKS 72038 . 74942) (TEDIT.FINDLOOKS
2414+
74944 . 77415)) (77418 98291 (\TEDIT.CHANGE.LOOKS 77428 . 90252) (TEDIT.LOOKS 90254 . 92101) (
2415+
\TEDIT.LOOKS 92103 . 95001) (\TEDIT.FONTCOPY 95003 . 96201) (TEDIT.GET.LOOKS 96203 . 98289)) (98334
2416+
130248 (EQFMTSPEC 98344 . 101845) (TEDIT.GET.PARALOOKS 101847 . 105476) (\TEDIT.PARSE.PARALOOKS.LIST
2417+
105478 . 113396) (TEDIT.PARALOOKS 113398 . 126737) (TEDIT.COPY.PARALOOKS 126739 . 128697) (
2418+
\TEDIT.PARABOUNDS 128699 . 130246)) (130308 136351 (TEDIT.SUBPARALOOKS 130318 . 132952) (SAMEPARALOOKS
2419+
132954 . 136349)) (136394 140305 (\TEDIT.UNDO.LOOKS 136404 . 138566) (\TEDIT.UNDO.PARALOOKS 138568 .
2420+
140303)) (140344 140922 (\TEDIT.MARK.REVISION 140354 . 140920)) (140984 141809 (
2421+
\CREATE.TEDIT.DEFAULT.FMTSPEC 140994 . 141431) (\CREATE.TEDIT.FACE.MENU 141433 . 141605) (
2422+
\CREATE.TEDIT.SIZE.MENU 141607 . 141807)) (141846 150751 (\TEDIT.APPLY.STYLES 141856 . 145421) (
2423+
\TEDIT.APPLY.PARASTYLES 145423 . 147625) (TEDIT.STYLESHEET 147627 . 148694) (TEDIT.POP.STYLESHEET
2424+
148696 . 149364) (TEDIT.PUSH.STYLESHEET 149366 . 150106) (TEDIT.ADD.STYLESHEET 150108 . 150749)))))
24342425
STOP

‎library/tedit/TEDIT-LOOKS.LCOM‎

-356 Bytes
Binary file not shown.

‎library/tedit/TEDIT-WINDOW‎

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

3-
(FILECREATED " 4-Mar-2024 15:15:31" {DSK}<home>frank>il>medley>ncmedley>library>tedit>TEDIT-WINDOW.;2 195339
3+
(FILECREATED "17-Mar-2024 23:43:56" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;7 195743
44

5-
:CHANGES-TO (FNS TEDIT.NORMALIZECARET)
5+
:CHANGES-TO (VARS TEDIT-WINDOWCOMS)
6+
(FNS TEDIT.PROMPTWINDOW)
67

7-
:PREVIOUS-DATE "29-Feb-2024 17:04:41"
8-
{DSK}<home>frank>il>medley>ncmedley>library>tedit>TEDIT-WINDOW.;1)
8+
:PREVIOUS-DATE " 4-Mar-2024 15:15:31" {DSK}<home>frank>il>ncmedley>library>tedit>TEDIT-WINDOW.;6
9+
)
910

1011

1112
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -41,7 +42,8 @@
4142
(COMS (* ; "User-typein support")
4243
(FNS TEDIT.GETINPUT \TEDIT.MAKEFILENAME))
4344
(COMS (* ; "Attached Prompt window support.")
44-
(FNS TEDIT.PROMPTPRINT TEDIT.PROMPTCLEAR TEDIT.PROMPTFLASH \TEDIT.PROMPT.PAGEFULLFN)
45+
(FNS TEDIT.PROMPTWINDOW TEDIT.PROMPTPRINT TEDIT.PROMPTCLEAR TEDIT.PROMPTFLASH
46+
\TEDIT.PROMPT.PAGEFULLFN)
4547
(INITVARS (TEDIT.PROMPT.FONT (FONTCREATE 'TERMINAL 10))
4648
(TEDIT.PROMPTWINDOW.HEIGHT NIL))
4749
(GLOBALVARS TEDIT.PROMPT.FONT TEDIT.PROMPTWINDOW.HEIGHT))
@@ -1581,6 +1583,17 @@
15811583

15821584
(DEFINEQ
15831585

1586+
(TEDIT.PROMPTWINDOW
1587+
[LAMBDA (TEDIT.THING)
1588+
1589+
(* ;;
1590+
 " Return the TEdit promptwindow, if any, from a TEdit thing (textstream, textobj, or TEdit window).")
1591+
1592+
(LET ((TEXTOBJ (TEXTOBJ TEDIT.THING)))
1593+
(if TEXTOBJ
1594+
then (fetch (TEXTOBJ PROMPTWINDOW) of TEXTOBJ)
1595+
else NIL])
1596+
15841597
(TEDIT.PROMPTPRINT
15851598
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 26-Nov-2023 10:10 by rmk")
15861599
(* ; "Edited 10-Sep-2023 00:27 by rmk")
@@ -3160,33 +3173,34 @@
31603173
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
31613174
TEDIT.ICON.TITLE.REGION))
31623175
(DECLARE%: DONTCOPY
3163-
(FILEMAP (NIL (12950 32526 (\TEDIT.CREATEW 12960 . 19335) (\TEDIT.WINDOW.SETUP 19337 . 22026) (
3164-
\TEDIT.MINIMAL.WINDOW.SETUP 22028 . 30449) (\TEDIT.ADD.CARET 30451 . 31915) (\TEDIT.CLEARPANE 31917 .
3165-
32524)) (32527 53583 (\TEDIT.CURSORMOVEDFN 32537 . 36345) (\TEDIT.CURSOROUTFN 36347 . 36792) (
3166-
\TEDIT.ACTIVE.WINDOWP 36794 . 37920) (\TEDIT.EXPANDFN 37922 . 38485) (\TEDIT.MAINW 38487 . 40627) (
3167-
\TEDIT.PRIMARYW 40629 . 41269) (\TEDIT.NEWREGIONFN 41271 . 43787) (\TEDIT.SET.WINDOW.EXTENT 43789 .
3168-
48652) (\TEDIT.SHRINK.ICONCREATE 48654 . 51077) (\TEDIT.SHRINKFN 51079 . 51488) (\TEDIT.PANEREGION
3169-
51490 . 53581)) (53584 77349 (\TEDIT.BUTTONEVENTFN 53594 . 68649) (\TEDIT.DO.SELOPERATION 68651 .
3170-
70933) (\TEDIT.TTY.TEXTOBJP 70935 . 71359) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71361 . 72750) (
3171-
\TEDIT.BUTTONEVENTFN.INACTIVE 72752 . 74778) (\TEDIT.BUTTONEVENTFN.INTITLE 74780 . 76299) (
3172-
\TEDIT.COPYINSERT 76301 . 77347)) (77384 92113 (\TEDIT.PANE.SPLIT 77394 . 81614) (\TEDIT.SPLITW 81616
3173-
. 87949) (\TEDIT.UNSPLITW 87951 . 92111)) (93469 94254 (TEDITWINDOWP 93479 . 94252)) (94291 97279 (
3174-
TEDIT.GETINPUT 94301 . 96744) (\TEDIT.MAKEFILENAME 96746 . 97277)) (97328 104978 (TEDIT.PROMPTPRINT
3175-
97338 . 99774) (TEDIT.PROMPTCLEAR 99776 . 101495) (TEDIT.PROMPTFLASH 101497 . 103406) (
3176-
\TEDIT.PROMPT.PAGEFULLFN 103408 . 104976)) (105216 113095 (\TEXTSTREAM.TITLE 105226 . 105916) (
3177-
\TEDIT.DEFAULT.TITLE 105918 . 108297) (\TEDIT.WINDOW.TITLE 108299 . 110356) (\TEXTSTREAM.FILENAME
3178-
110358 . 112028) (\TEDIT.UPDATE.TITLE 112030 . 113093)) (113138 128179 (TEDIT.DEACTIVATE.WINDOW 113148
3179-
. 119570) (\TEDIT.REPAINTFN 119572 . 121147) (\TEDIT.AFTERMOVEFN 121149 . 121903) (OFFSCREENP 121905
3180-
. 123110) (\TEDIT.RESHAPEFN 123112 . 127001) (\TEDIT.PANEWITHINSCREEN? 127003 . 128177)) (128180
3181-
155813 (\TEDIT.SCROLLFN 128190 . 129877) (\TEDIT.SCROLLFLOAT 129879 . 134465) (\TEDIT.SCROLLUP 134467
3182-
. 141843) (\TEDIT.SCROLL.SHOWSEL 141845 . 144469) (\TEDIT.SCROLLDOWN 144471 . 149687) (
3183-
\TEDIT.OFFSCREEN.SCROLL 149689 . 151804) (\TEDIT.WHERE.SEL 151806 . 153026) (\TEDIT.WHERE.SEL1 153028
3184-
. 155811)) (155814 160936 (\TEDIT.ONSCREEN 155824 . 157279) (\TEDIT.ONSCREEN? 157281 . 159594) (
3185-
\TEDIT.PANE.SCREENREGION 159596 . 160934)) (160978 163223 (\TEDIT.PROCIDLEFN 160988 . 162397) (
3186-
\TEDIT.PROCENTRYFN 162399 . 162844) (\TEDIT.PROCEXITFN 162846 . 163221)) (163302 176029 (
3187-
\TEDIT.DOWNCARET 163312 . 164105) (\TEDIT.FLASHCARET 164107 . 165924) (\TEDIT.UPCARET 165926 . 167030)
3188-
(TEDIT.NORMALIZECARET 167032 . 171760) (\TEDIT.SETCARET 171762 . 175602) (\TEDIT.CARET 175604 .
3189-
176027)) (176063 189309 (TEDIT.ADD.MENUITEM 176073 . 178364) (TEDIT.DEFAULT.MENUFN 178366 . 186649) (
3190-
TEDIT.REMOVE.MENUITEM 186651 . 187648) (\TEDIT.CREATEMENU 187650 . 188087) (\TEDIT.MENU.WHENHELDFN
3191-
188089 . 188994) (\TEDIT.MENU.WHENSELECTEDFN 188996 . 189307)))))
3176+
(FILEMAP (NIL (13015 32591 (\TEDIT.CREATEW 13025 . 19400) (\TEDIT.WINDOW.SETUP 19402 . 22091) (
3177+
\TEDIT.MINIMAL.WINDOW.SETUP 22093 . 30514) (\TEDIT.ADD.CARET 30516 . 31980) (\TEDIT.CLEARPANE 31982 .
3178+
32589)) (32592 53648 (\TEDIT.CURSORMOVEDFN 32602 . 36410) (\TEDIT.CURSOROUTFN 36412 . 36857) (
3179+
\TEDIT.ACTIVE.WINDOWP 36859 . 37985) (\TEDIT.EXPANDFN 37987 . 38550) (\TEDIT.MAINW 38552 . 40692) (
3180+
\TEDIT.PRIMARYW 40694 . 41334) (\TEDIT.NEWREGIONFN 41336 . 43852) (\TEDIT.SET.WINDOW.EXTENT 43854 .
3181+
48717) (\TEDIT.SHRINK.ICONCREATE 48719 . 51142) (\TEDIT.SHRINKFN 51144 . 51553) (\TEDIT.PANEREGION
3182+
51555 . 53646)) (53649 77414 (\TEDIT.BUTTONEVENTFN 53659 . 68714) (\TEDIT.DO.SELOPERATION 68716 .
3183+
70998) (\TEDIT.TTY.TEXTOBJP 71000 . 71424) (\TEDIT.BUTTONEVENTFN.SELOPERATION 71426 . 72815) (
3184+
\TEDIT.BUTTONEVENTFN.INACTIVE 72817 . 74843) (\TEDIT.BUTTONEVENTFN.INTITLE 74845 . 76364) (
3185+
\TEDIT.COPYINSERT 76366 . 77412)) (77449 92178 (\TEDIT.PANE.SPLIT 77459 . 81679) (\TEDIT.SPLITW 81681
3186+
. 88014) (\TEDIT.UNSPLITW 88016 . 92176)) (93534 94319 (TEDITWINDOWP 93544 . 94317)) (94356 97344 (
3187+
TEDIT.GETINPUT 94366 . 96809) (\TEDIT.MAKEFILENAME 96811 . 97342)) (97393 105382 (TEDIT.PROMPTWINDOW
3188+
97403 . 97740) (TEDIT.PROMPTPRINT 97742 . 100178) (TEDIT.PROMPTCLEAR 100180 . 101899) (
3189+
TEDIT.PROMPTFLASH 101901 . 103810) (\TEDIT.PROMPT.PAGEFULLFN 103812 . 105380)) (105620 113499 (
3190+
\TEXTSTREAM.TITLE 105630 . 106320) (\TEDIT.DEFAULT.TITLE 106322 . 108701) (\TEDIT.WINDOW.TITLE 108703
3191+
. 110760) (\TEXTSTREAM.FILENAME 110762 . 112432) (\TEDIT.UPDATE.TITLE 112434 . 113497)) (113542
3192+
128583 (TEDIT.DEACTIVATE.WINDOW 113552 . 119974) (\TEDIT.REPAINTFN 119976 . 121551) (
3193+
\TEDIT.AFTERMOVEFN 121553 . 122307) (OFFSCREENP 122309 . 123514) (\TEDIT.RESHAPEFN 123516 . 127405) (
3194+
\TEDIT.PANEWITHINSCREEN? 127407 . 128581)) (128584 156217 (\TEDIT.SCROLLFN 128594 . 130281) (
3195+
\TEDIT.SCROLLFLOAT 130283 . 134869) (\TEDIT.SCROLLUP 134871 . 142247) (\TEDIT.SCROLL.SHOWSEL 142249 .
3196+
144873) (\TEDIT.SCROLLDOWN 144875 . 150091) (\TEDIT.OFFSCREEN.SCROLL 150093 . 152208) (
3197+
\TEDIT.WHERE.SEL 152210 . 153430) (\TEDIT.WHERE.SEL1 153432 . 156215)) (156218 161340 (\TEDIT.ONSCREEN
3198+
156228 . 157683) (\TEDIT.ONSCREEN? 157685 . 159998) (\TEDIT.PANE.SCREENREGION 160000 . 161338)) (
3199+
161382 163627 (\TEDIT.PROCIDLEFN 161392 . 162801) (\TEDIT.PROCENTRYFN 162803 . 163248) (
3200+
\TEDIT.PROCEXITFN 163250 . 163625)) (163706 176433 (\TEDIT.DOWNCARET 163716 . 164509) (
3201+
\TEDIT.FLASHCARET 164511 . 166328) (\TEDIT.UPCARET 166330 . 167434) (TEDIT.NORMALIZECARET 167436 .
3202+
172164) (\TEDIT.SETCARET 172166 . 176006) (\TEDIT.CARET 176008 . 176431)) (176467 189713 (
3203+
TEDIT.ADD.MENUITEM 176477 . 178768) (TEDIT.DEFAULT.MENUFN 178770 . 187053) (TEDIT.REMOVE.MENUITEM
3204+
187055 . 188052) (\TEDIT.CREATEMENU 188054 . 188491) (\TEDIT.MENU.WHENHELDFN 188493 . 189398) (
3205+
\TEDIT.MENU.WHENSELECTEDFN 189400 . 189711)))))
31923206
STOP

‎library/tedit/TEDIT-WINDOW.LCOM‎

128 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)