Skip to content

Commit 63d5849

Browse files
rmkaplanrmkaplan
authored
Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer (#2119)
* Tedit window splitting is more robust, interface through menu items instead of split-region on the right of the window. See TEDIT-RELEASENOTES.TEDIT * Tedit recognizes color as specfied by DSPCOLOR, passes it to hardcopy * N-way buttons default to unsorted--new items go at the end. Otherwise keyboard shortcut meta-3 for the 3rd font might pick a different one depending on what went before. * USER.CM can be specified as an opening property for Bravo conversion. * Adresses/fixes Tedit issues #2173 #2172 #2171 #2142 #2105 #2062 #2059 #1972 (maybe some others). * Changes to rationalize internal interfaces and simplify code, and particularly to eliminate internal dependencies on the STREAMHINT Xpointer backlink. STREAMHINT is only accessed if a client has grabbed the TEXTOBJ and passes it back in. The stream and window are the safe/reliable way of referencing the Tedit state (and the window and stream know about each other, and know about the TEXTOBJ only through the stream). * Many changes to TEDIT-STRESS, including new defaults CHECKARRAYS NIL, NSYSOUTS 0, ARRAYBLOCKCHECKING T * lispusers/EQUATIONS: image object no longer saves state on the stream, not the window (which may not be there). * Rename CHARNAME to be CHARCODE.ENCODE, parallel to CHARCODE.DECODE
1 parent d6253db commit 63d5849

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

47 files changed

+5519
-4242
lines changed

‎internal/TEDIT-DEBUG

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

‎internal/TEDIT-DEBUG.LCOM

162 Bytes
Binary file not shown.

‎library/tedit/TEDIT

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

‎library/tedit/TEDIT-ABBREV

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

3-
(FILECREATED "28-Mar-2025 10:13:36" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;21 15982
3+
(FILECREATED "24-Apr-2025 23:45:12" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;23 16200
44

55
:EDIT-BY rmk
66

77
:CHANGES-TO (FNS \TEDIT.ABBREV.PARSE)
88

9-
:PREVIOUS-DATE "23-Mar-2025 17:09:00" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;20)
9+
:PREVIOUS-DATE "20-Apr-2025 23:30:29" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;22)
1010

1111

1212
(PRETTYCOMPRINT TEDIT-ABBREVCOMS)
@@ -63,7 +63,8 @@
6363
(DEFINEQ
6464

6565
(\TEDIT.ABBREV.EXPAND
66-
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 20-Mar-2025 21:52 by rmk")
66+
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 20-Apr-2025 23:30 by rmk")
67+
(* ; "Edited 20-Mar-2025 21:52 by rmk")
6768
(* ; "Edited 30-May-91 19:27 by jds")
6869
(* ; "Expand an abbvreviation")
6970
(LET ((CANDIDATES (\TEDIT.ABBREV.PARSE TSTREAM SEL))
@@ -92,11 +93,12 @@
9293
(\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL
9394
(PCHARLOOKS (\TEDIT.CHTOPC (CADR CAND)
9495
TEXTOBJ)))
95-
TEXTOBJ SEL)
96+
TSTREAM SEL)
9697
else (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T])
9798

9899
(\TEDIT.ABBREV.PARSE
99-
[LAMBDA (TSTREAM SEL) (* ; "Edited 28-Mar-2025 10:11 by rmk")
100+
[LAMBDA (TSTREAM SEL) (* ; "Edited 24-Apr-2025 23:45 by rmk")
101+
(* ; "Edited 28-Mar-2025 10:11 by rmk")
100102
(* ; "Edited 23-Mar-2025 17:08 by rmk")
101103
(* ; "Edited 20-Mar-2025 22:21 by rmk")
102104

@@ -159,7 +161,7 @@
159161
FIRST# LEN))) (* ; "Extend if a ,")
160162
[for C KEY END in CANDIDATES
161163
do
162-
(* ;; "Comma for XCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text")
164+
(* ;; "Comma for MCCS character names, - and / - for internal punctuation (3/4 EM-DASH). Adjacent character must be text")
163165

164166
(if [AND (MEMB (\TEDIT.NTHCHARCODE TSTREAM (SUB1 (CADR C)))
165167
(CHARCODE (%, / -)))
@@ -306,6 +308,6 @@
306308
("DATE" . \TEDIT.EXPAND.DATE)
307309
(">>DATE<<" . \TEDIT.EXPAND.DATE)))
308310
(DECLARE%: DONTCOPY
309-
(FILEMAP (NIL (2933 14638 (\TEDIT.ABBREV.EXPAND 2943 . 5054) (\TEDIT.ABBREV.PARSE 5056 . 12340) (
310-
\TEDIT.EXPAND.DATE 12342 . 12975) (\TEDIT.TRY.ABBREV 12977 . 14636)))))
311+
(FILEMAP (NIL (2933 14856 (\TEDIT.ABBREV.EXPAND 2943 . 5163) (\TEDIT.ABBREV.PARSE 5165 . 12558) (
312+
\TEDIT.EXPAND.DATE 12560 . 13193) (\TEDIT.TRY.ABBREV 13195 . 14854)))))
311313
STOP

‎library/tedit/TEDIT-ABBREV.LCOM

5 Bytes
Binary file not shown.

‎library/tedit/TEDIT-BUTTONS

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

3-
(FILECREATED "24-Mar-2025 09:26:13" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;223 124611
3+
(FILECREATED "30-Apr-2025 14:09:18" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;228 125393
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS MB.FIELD.INSURETYPE MB.BUTTONEVENTINFN)
7+
:CHANGES-TO (FNS MB.NWAY.ADDITEM MB.NWAY.CREATE MB.NWAY.SETSTATEFN MB.NWAY.SELECT)
88

9-
:PREVIOUS-DATE "14-Mar-2025 15:29:51" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;219)
9+
:PREVIOUS-DATE "14-Apr-2025 23:50:23" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;226)
1010

1111

1212
(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
@@ -67,7 +67,8 @@
6767
(DEFINEQ
6868

6969
(MB.ADD
70-
[LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 5-Jan-2025 11:36 by rmk")
70+
[LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "Edited 6-Apr-2025 14:35 by rmk")
71+
(* ; "Edited 5-Jan-2025 11:36 by rmk")
7172
(* ; "Edited 22-Oct-2024 09:16 by rmk")
7273
(* ; "Edited 21-Oct-2024 00:26 by rmk")
7374
(* ; "Edited 18-Oct-2024 13:49 by rmk")
@@ -156,10 +157,10 @@
156157
(* ;; "Form to be evaluated")
157158

158159
(add CH# (EVAL TYPE))
159-
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM)
160+
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.NOSEL MENUTSTREAM)
160161
(* ;
161162
 "User has to click to get a selection")
162-
(SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ))
163+
(SETSEL (TEXTSEL (FTEXTOBJ MENUTSTREAM))
163164
SET NIL)
164165
(RETURN CH#)))])
165166

@@ -753,6 +754,7 @@
753754

754755
(MB.3STATE.BUTTONEVENTINFN
755756
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)
757+
(* ; "Edited 14-Apr-2025 23:49 by rmk")
756758
(* ; "Edited 22-Dec-2024 22:45 by rmk")
757759
(* ; "Edited 7-Dec-2024 13:11 by rmk")
758760
(* ; "Edited 5-Dec-2024 21:53 by rmk")
@@ -794,8 +796,7 @@
794796
else (* ; "Buttons came up: do it")
795797
(IMAGEOBJPROP OBJ 'STATE NEXTSTATE)
796798
(CL:WHEN (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
797-
(APPLY* STATECHANGEFN OBJ NEXTSTATE (fetch (TEXTWINDOW WTEXTSTREAM)
798-
of MENUDS)))])
799+
(APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM MENUDS)))])
799800
(TEDIT.BACKTOMAIN MENUTSTREAM)))
800801
'DON'T])
801802
)
@@ -816,7 +817,8 @@
816817
(DEFINEQ
817818

818819
(MB.NWAY.CREATE
819-
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 16-Feb-2025 12:08 by rmk")
820+
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 30-Apr-2025 14:06 by rmk")
821+
(* ; "Edited 16-Feb-2025 12:08 by rmk")
820822
(* ; "Edited 9-Jan-2025 11:38 by rmk")
821823
(* ; "Edited 4-Jan-2025 21:39 by rmk")
822824
(* ; "Edited 20-Dec-2024 22:17 by rmk")
@@ -833,6 +835,7 @@
833835
(* gbn "24-Sep-84 15:31")
834836
(LET ((IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC)))
835837
(BUTTONS (CADR (ASSOC 'BUTTONS SPEC)))
838+
(SORTBUTTONS (CADR (ASSOC 'SORTBUTTONS SPEC)))
836839
[FONT (FONTCREATE (OR (CADR (ASSOC 'FONT SPEC))
837840
'(HELVETICA 8 BOLD]
838841
(STATECHANGEFN (CADR (ASSOC 'STATECHANGEFN SPEC)))
@@ -876,14 +879,14 @@
876879

877880
(* ;; "At most, we're as wide as the N widest buttons put together. COPY because we want to preserve the original order")
878881

879-
[IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ
880-
in [SORT (COPY SUBOBJECTS)
881-
(FUNCTION (LAMBDA (A B)
882-
(IGEQ (fetch XSIZE
883-
of (IMAGEOBJPROP A 'BOUNDBOX))
884-
(fetch XSIZE
885-
of (IMAGEOBJPROP B 'BOUNDBOX]
886-
as I from 1 to MAXITEMS/LINE
882+
(CL:WHEN SORTBUTTONS
883+
(IMAGEOBJPROP OBJ 'SORTBUTTONS T)
884+
[SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (A B)
885+
(IGEQ (fetch XSIZE
886+
of (IMAGEOBJPROP A 'BOUNDBOX))
887+
(fetch XSIZE
888+
of (IMAGEOBJPROP B 'BOUNDBOX])
889+
[IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ in SUBOBJECTS as I from 1 to MAXITEMS/LINE
887890
sum (fetch XSIZE of (IMAGEOBJPROP SOBJ 'BOUNDBOX))
888891
finally (RETURN (IPLUS $$VAL (ITIMES SPACING (SUB1
889892
MAXITEMS/LINE
@@ -1191,7 +1194,8 @@
11911194
(RETURN (DREVERSE LINES])
11921195

11931196
(MB.NWAY.ADDITEM
1194-
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 9-Jan-2025 11:38 by rmk")
1197+
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 30-Apr-2025 14:09 by rmk")
1198+
(* ; "Edited 9-Jan-2025 11:38 by rmk")
11951199
(* ; "Edited 20-Oct-2024 00:13 by rmk")
11961200
(* ; "Edited 29-Sep-2024 12:47 by rmk")
11971201
(* ; "Edited 26-Aug-2024 09:36 by rmk")
@@ -1205,15 +1209,17 @@
12051209
(* ;; "Given an existing n-way choice menu button, add another choice to the list. The items are arranged in alphabetical order by their labels. MAXITEMS/LINE is goofy: it should flow with reshaping of the window.")
12061210

12071211
(CL:WHEN NEWBUTTON
1208-
(LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
1209-
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
1212+
(LET* [[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
12101213
(LABEL ,NEWBUTTON)
12111214
(FONT ,(IMAGEOBJPROP OBJ 'FONT]
1215+
(SUBOBJECTS (APPEND (IMAGEOBJPROP OBJ 'SUBOBJECTS)
1216+
(CONS NEWSOBJ)))
12121217
(MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE]
1213-
[SETQ SUBOBJECTS (SORT (CONS NEWSOBJ SUBOBJECTS)
1214-
(FUNCTION (LAMBDA (S1 S2)
1215-
(ALPHORDER (IMAGEOBJPROP S1 'LABEL)
1216-
(IMAGEOBJPROP S2 'LABEL]
1218+
(CL:WHEN (IMAGEOBJPROP OBJ 'SORTBUTTONS)
1219+
[SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (S1 S2)
1220+
(ALPHORDER (IMAGEOBJPROP S1
1221+
'LABEL)
1222+
(IMAGEOBJPROP S2 'LABEL])
12171223
(IMAGEOBJPROP OBJ 'SUBOBJECTS SUBOBJECTS)
12181224
[IMAGEOBJPROP OBJ 'MINWIDTH (IMAX (IMAGEOBJPROP OBJ 'MINWIDTH)
12191225
(fetch XSIZE of (IMAGEOBJPROP NEWSOBJ 'BOUNDBOX]
@@ -1379,6 +1385,7 @@
13791385

13801386
(MB.TOGGLE.BUTTONEVENTINFN
13811387
[LAMBDA (OBJ MENUDS MENUSEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)
1388+
(* ; "Edited 14-Apr-2025 23:49 by rmk")
13821389
(* ; "Edited 7-Dec-2024 13:11 by rmk")
13831390
(* ; "Edited 19-Oct-2024 19:52 by rmk")
13841391
(* ; "Edited 5-Oct-2024 22:42 by rmk")
@@ -1422,8 +1429,8 @@
14221429
else (* ; "Buttons came up: do it")
14231430
(SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
14241431
(if (OR (NULL STATECHANGEFN)
1425-
(NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE
1426-
(fetch (TEXTWINDOW WTEXTSTREAM) of MENUDS)
1432+
(NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM
1433+
MENUDS)
14271434
MENUSEL)))
14281435
then (IMAGEOBJPROP OBJ 'STATE NEXTSTATE)
14291436
(* ;
@@ -1774,7 +1781,8 @@
17741781
ENDPC])
17751782

17761783
(MB.FIELD.SETSTATEFN
1777-
[LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 9-Dec-2024 22:14 by rmk")
1784+
[LAMBDA (PREFIXPC NEWVALUE TSTREAM) (* ; "Edited 6-Apr-2025 12:23 by rmk")
1785+
(* ; "Edited 9-Dec-2024 22:14 by rmk")
17781786
(* ; "Edited 4-Dec-2024 20:31 by rmk")
17791787
(* ; "Edited 20-Oct-2024 17:20 by rmk")
17801788
(* ; "Edited 29-Sep-2024 12:46 by rmk")
@@ -1818,7 +1826,7 @@
18181826
 "FSEL selects the field to the right of PREFIXPC")
18191827
(\TEDIT.UPDATE.SEL FSEL FIELDSTART FIELDLENGTH 'LEFT)
18201828
(CL:UNLESS (EQ 0 FIELDLENGTH) (* ; "Clear the old value")
1821-
(\TEDIT.DELETE TEXTOBJ FSEL)
1829+
(\TEDIT.DELETE TSTREAM FSEL)
18221830
(SETQ FIELDLENGTH 0))
18231831
(SETQ FIELDLENGTH (if (EQ NEWVALUE '**EMPTY**)
18241832
then 0
@@ -1961,25 +1969,25 @@
19611969
(MB.FIELD.INIT)
19621970
)
19631971
(DECLARE%: DONTCOPY
1964-
(FILEMAP (NIL (3253 19106 (MB.ADD 3263 . 9692) (MB.DELETE 9694 . 10068) (MB.GET 10070 . 16840) (
1965-
MB.GET.MBARG 16842 . 18511) (TEDIT.BACKTOMAIN 18513 . 19104)) (19150 39086 (MB.BUTTONEVENTINFN 19160
1966-
. 20728) (MB.DISPLAYFN 20730 . 22789) (MB.SETIMAGE 22791 . 23959) (MB.SIZEFN 23961 . 25509) (
1967-
MB.WHENOPERATEDONFN 25511 . 27460) (MB.COPYFN 27462 . 27920) (MB.GETFN 27922 . 28883) (MB.PUTFN 28885
1968-
. 29985) (MB.SHOWSELFN 29987 . 31496) (MB.CREATE 31498 . 35521) (MB.CHANGENAME 35523 . 36005) (
1969-
MB.INIT 36007 . 37468) (MB.TRACK.UNTIL 37470 . 38165) (MB.DON'T 38167 . 38463) (MB.SPEC.REMAINDER
1970-
38465 . 39084)) (39248 49238 (MB.3STATE.CREATE 39258 . 40122) (MB.3STATE.DISPLAYFN 40124 . 41110) (
1971-
MB.3STATE.SHOWSELFN 41112 . 43423) (MB.3STATE.INIT 43425 . 44836) (MB.3STATE.SETSTATEFN 44838 . 45496)
1972-
(MB.3STATE.BUTTONEVENTINFN 45498 . 49236)) (49393 80061 (MB.NWAY.CREATE 49403 . 55445) (
1973-
MB.NWAY.DISPLAYFN 55447 . 56310) (MB.NWAY.WHENOPERATEDONFN 56312 . 58502) (MB.NWAY.SIZEFN 58504 .
1974-
62440) (MB.NWAY.SELECT 62442 . 66012) (MB.NWAY.BUTTONEVENTINFN 66014 . 69226) (MB.NWAY.NEWMENUBUTTON
1975-
69228 . 69940) (MB.NWAY.COPYFN 69942 . 70909) (MB.NWAY.INIT 70911 . 72402) (MB.NWAY.ARRANGEBUTTONS
1976-
72404 . 74375) (MB.NWAY.ADDITEM 74377 . 78239) (MB.NWAY.FINDSUBOBJ 78241 . 78755) (MB.NWAY.SETSTATEFN
1977-
78757 . 80059)) (80140 92027 (MB.TOGGLE.CREATE 80150 . 81145) (MB.TOGGLE.DISPLAYFN 81147 . 82630) (
1978-
MB.TOGGLE.INIT 82632 . 84431) (MB.SET.TOGGLE 84433 . 85634) (MB.TOGGLE.SETSTATEFN 85636 . 86476) (
1979-
MB.TOGGLE.BUTTONEVENTINFN 86478 . 90682) (MB.TOGGLE.WHENOPERATEDONFN 90684 . 92025)) (92108 124532 (
1980-
MB.FIELD.CREATE 92118 . 97569) (MB.FIELD.DISPLAYFN 97571 . 98362) (MB.FIELD.IMAGEBOXFN 98364 . 99846)
1981-
(MB.FIELD.PREFIXCREATE 99848 . 103784) (MB.FIELD.SUFFIXCREATE 103786 . 105446) (MB.FIELD.INIT 105448
1982-
. 107215) (MB.FIELD.WHENOPERATEDONFN 107217 . 108488) (MB.FIELD.GETSTATEFN 108490 . 112424) (
1983-
MB.FIELD.SETSTATEFN 112426 . 117121) (MB.FIELD.BUTTONEVENTINFN 117123 . 119428) (MB.FIELD.SIZEFN
1984-
119430 . 119670) (MB.FIELD.INSURETYPE 119672 . 124530)))))
1972+
(FILEMAP (NIL (3279 19224 (MB.ADD 3289 . 9810) (MB.DELETE 9812 . 10186) (MB.GET 10188 . 16958) (
1973+
MB.GET.MBARG 16960 . 18629) (TEDIT.BACKTOMAIN 18631 . 19222)) (19268 39204 (MB.BUTTONEVENTINFN 19278
1974+
. 20846) (MB.DISPLAYFN 20848 . 22907) (MB.SETIMAGE 22909 . 24077) (MB.SIZEFN 24079 . 25627) (
1975+
MB.WHENOPERATEDONFN 25629 . 27578) (MB.COPYFN 27580 . 28038) (MB.GETFN 28040 . 29001) (MB.PUTFN 29003
1976+
. 30103) (MB.SHOWSELFN 30105 . 31614) (MB.CREATE 31616 . 35639) (MB.CHANGENAME 35641 . 36123) (
1977+
MB.INIT 36125 . 37586) (MB.TRACK.UNTIL 37588 . 38283) (MB.DON'T 38285 . 38581) (MB.SPEC.REMAINDER
1978+
38583 . 39202)) (39366 49371 (MB.3STATE.CREATE 39376 . 40240) (MB.3STATE.DISPLAYFN 40242 . 41228) (
1979+
MB.3STATE.SHOWSELFN 41230 . 43541) (MB.3STATE.INIT 43543 . 44954) (MB.3STATE.SETSTATEFN 44956 . 45614)
1980+
(MB.3STATE.BUTTONEVENTINFN 45616 . 49369)) (49526 80622 (MB.NWAY.CREATE 49536 . 55719) (
1981+
MB.NWAY.DISPLAYFN 55721 . 56584) (MB.NWAY.WHENOPERATEDONFN 56586 . 58776) (MB.NWAY.SIZEFN 58778 .
1982+
62714) (MB.NWAY.SELECT 62716 . 66286) (MB.NWAY.BUTTONEVENTINFN 66288 . 69500) (MB.NWAY.NEWMENUBUTTON
1983+
69502 . 70214) (MB.NWAY.COPYFN 70216 . 71183) (MB.NWAY.INIT 71185 . 72676) (MB.NWAY.ARRANGEBUTTONS
1984+
72678 . 74649) (MB.NWAY.ADDITEM 74651 . 78800) (MB.NWAY.FINDSUBOBJ 78802 . 79316) (MB.NWAY.SETSTATEFN
1985+
79318 . 80620)) (80701 92700 (MB.TOGGLE.CREATE 80711 . 81706) (MB.TOGGLE.DISPLAYFN 81708 . 83191) (
1986+
MB.TOGGLE.INIT 83193 . 84992) (MB.SET.TOGGLE 84994 . 86195) (MB.TOGGLE.SETSTATEFN 86197 . 87037) (
1987+
MB.TOGGLE.BUTTONEVENTINFN 87039 . 91355) (MB.TOGGLE.WHENOPERATEDONFN 91357 . 92698)) (92781 125314 (
1988+
MB.FIELD.CREATE 92791 . 98242) (MB.FIELD.DISPLAYFN 98244 . 99035) (MB.FIELD.IMAGEBOXFN 99037 . 100519)
1989+
(MB.FIELD.PREFIXCREATE 100521 . 104457) (MB.FIELD.SUFFIXCREATE 104459 . 106119) (MB.FIELD.INIT 106121
1990+
. 107888) (MB.FIELD.WHENOPERATEDONFN 107890 . 109161) (MB.FIELD.GETSTATEFN 109163 . 113097) (
1991+
MB.FIELD.SETSTATEFN 113099 . 117903) (MB.FIELD.BUTTONEVENTINFN 117905 . 120210) (MB.FIELD.SIZEFN
1992+
120212 . 120452) (MB.FIELD.INSURETYPE 120454 . 125312)))))
19851993
STOP

‎library/tedit/TEDIT-BUTTONS.LCOM

246 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)