Skip to content

Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer #2119

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 25 commits into
base: master
Choose a base branch
from
Open

Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer #2119

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
25 commits
Select commit Hold shift + click to select a range
12377b9
Tedit split windows, color, internals
rmkaplan Apr 23, 2025
51d21b1
Rename CHARNAME to be CHARCODE.ENCODE
rmkaplan Apr 23, 2025
3cf2f30
Don't bring color if black
rmkaplan Apr 23, 2025
fef5f4a
Change loadup order to eliminate undefined in fuller database
rmkaplan Apr 23, 2025
a8f2fcc
Pass NONCHARIDENTITY in recursive calls to CHARCODE.ENCODE
rmkaplan Apr 24, 2025
1ceb1a4
Make the split region really go away by default
rmkaplan Apr 24, 2025
a43a80c
Now with an explicit test for -1
rmkaplan Apr 24, 2025
f7bb730
Backquote goof up in debug output
rmkaplan Apr 26, 2025
e2a3b84
Fix some tab menu issues, plus a few other things
rmkaplan Apr 26, 2025
c8eca03
Merge branch 'master' into rmk88--Split-screen-updates-and-color
rmkaplan Apr 26, 2025
5d0d74d
Display cleanup for a change on the top line of a pane
rmkaplan Apr 27, 2025
54f1768
Merge branch 'rmk88--Split-screen-updates-and-color' of https://githu…
rmkaplan Apr 27, 2025
3136cd8
Fix break reported by @pamoroso
rmkaplan Apr 27, 2025
102f136
Add back \TEDIT.ACTIVE.WINDOWP
rmkaplan Apr 27, 2025
2ecea94
Take down secondary selections
rmkaplan Apr 28, 2025
af7934e
Eliminate error on quitting
rmkaplan Apr 28, 2025
51a3812
Merge branch 'master' into rmk88--Split-screen-updates-and-color
rmkaplan Apr 28, 2025
27ddd3d
Merge branch 'master' into rmk88--Split-screen-updates-and-color
rmkaplan Apr 28, 2025
6cf93c3
Cleaned up window closing, DINFO graph seems to work again
rmkaplan Apr 28, 2025
5bdb2c9
Merge branch 'master' into rmk88--Split-screen-updates-and-color
rmkaplan Apr 29, 2025
dee919d
Update TEDIT-MENU.LCOM
rmkaplan Apr 29, 2025
3520893
Merge branch 'master' into rmk88--Split-screen-updates-and-color
rmkaplan May 4, 2025
2ae43bb
TEDIT-WINDOW--better behavior when closing fails
rmkaplan May 4, 2025
225a9a5
Merge branch 'rmk88--Split-screen-updates-and-color' of https://githu…
rmkaplan May 4, 2025
bcd09b8
NWAY buttons default to unsorted--new items go at the end
rmkaplan May 4, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
214 changes: 126 additions & 88 deletions internal/TEDIT-DEBUG
View file
Open in desktop

Large diffs are not rendered by default.

Binary file modified internal/TEDIT-DEBUG.LCOM
View file
Open in desktop
Binary file not shown.
533 changes: 287 additions & 246 deletions library/tedit/TEDIT
View file
Open in desktop

Large diffs are not rendered by default.

18 changes: 10 additions & 8 deletions library/tedit/TEDIT-ABBREV
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

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

:EDIT-BY rmk

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

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


(PRETTYCOMPRINT TEDIT-ABBREVCOMS)
Expand Down Expand Up @@ -63,7 +63,8 @@
(DEFINEQ

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

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

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

(if [AND (MEMB (\TEDIT.NTHCHARCODE TSTREAM (SUB1 (CADR C)))
(CHARCODE (%, / -)))
Expand Down Expand Up @@ -306,6 +308,6 @@
("DATE" . \TEDIT.EXPAND.DATE)
(">>DATE<<" . \TEDIT.EXPAND.DATE)))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2933 14638 (\TEDIT.ABBREV.EXPAND 2943 . 5054) (\TEDIT.ABBREV.PARSE 5056 . 12340) (
\TEDIT.EXPAND.DATE 12342 . 12975) (\TEDIT.TRY.ABBREV 12977 . 14636)))))
(FILEMAP (NIL (2933 14856 (\TEDIT.ABBREV.EXPAND 2943 . 5163) (\TEDIT.ABBREV.PARSE 5165 . 12558) (
\TEDIT.EXPAND.DATE 12560 . 13193) (\TEDIT.TRY.ABBREV 13195 . 14854)))))
STOP
Binary file modified library/tedit/TEDIT-ABBREV.LCOM
View file
Open in desktop
Binary file not shown.
106 changes: 57 additions & 49 deletions library/tedit/TEDIT-BUTTONS
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

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

:EDIT-BY rmk

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

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


(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
Expand Down Expand Up @@ -67,7 +67,8 @@
(DEFINEQ

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

(add CH# (EVAL TYPE))
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM)
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.NOSEL MENUTSTREAM)
(* ;
 "User has to click to get a selection")
(SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ))
(SETSEL (TEXTSEL (FTEXTOBJ MENUTSTREAM))
SET NIL)
(RETURN CH#)))])

Expand Down Expand Up @@ -753,6 +754,7 @@

(MB.3STATE.BUTTONEVENTINFN
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)
(* ; "Edited 14-Apr-2025 23:49 by rmk")
(* ; "Edited 22-Dec-2024 22:45 by rmk")
(* ; "Edited 7-Dec-2024 13:11 by rmk")
(* ; "Edited 5-Dec-2024 21:53 by rmk")
Expand Down Expand Up @@ -794,8 +796,7 @@
else (* ; "Buttons came up: do it")
(IMAGEOBJPROP OBJ 'STATE NEXTSTATE)
(CL:WHEN (SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
(APPLY* STATECHANGEFN OBJ NEXTSTATE (fetch (TEXTWINDOW WTEXTSTREAM)
of MENUDS)))])
(APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM MENUDS)))])
(TEDIT.BACKTOMAIN MENUTSTREAM)))
'DON'T])
)
Expand All @@ -816,7 +817,8 @@
(DEFINEQ

(MB.NWAY.CREATE
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 16-Feb-2025 12:08 by rmk")
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 30-Apr-2025 14:06 by rmk")
(* ; "Edited 16-Feb-2025 12:08 by rmk")
(* ; "Edited 9-Jan-2025 11:38 by rmk")
(* ; "Edited 4-Jan-2025 21:39 by rmk")
(* ; "Edited 20-Dec-2024 22:17 by rmk")
Expand All @@ -833,6 +835,7 @@
(* gbn "24-Sep-84 15:31")
(LET ((IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC)))
(BUTTONS (CADR (ASSOC 'BUTTONS SPEC)))
(SORTBUTTONS (CADR (ASSOC 'SORTBUTTONS SPEC)))
[FONT (FONTCREATE (OR (CADR (ASSOC 'FONT SPEC))
'(HELVETICA 8 BOLD]
(STATECHANGEFN (CADR (ASSOC 'STATECHANGEFN SPEC)))
Expand Down Expand Up @@ -876,14 +879,14 @@

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

[IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ
in [SORT (COPY SUBOBJECTS)
(FUNCTION (LAMBDA (A B)
(IGEQ (fetch XSIZE
of (IMAGEOBJPROP A 'BOUNDBOX))
(fetch XSIZE
of (IMAGEOBJPROP B 'BOUNDBOX]
as I from 1 to MAXITEMS/LINE
(CL:WHEN SORTBUTTONS
(IMAGEOBJPROP OBJ 'SORTBUTTONS T)
[SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (A B)
(IGEQ (fetch XSIZE
of (IMAGEOBJPROP A 'BOUNDBOX))
(fetch XSIZE
of (IMAGEOBJPROP B 'BOUNDBOX])
[IMAGEOBJPROP OBJ 'MAXWIDTH (for SOBJ in SUBOBJECTS as I from 1 to MAXITEMS/LINE
sum (fetch XSIZE of (IMAGEOBJPROP SOBJ 'BOUNDBOX))
finally (RETURN (IPLUS $$VAL (ITIMES SPACING (SUB1
MAXITEMS/LINE
Expand Down Expand Up @@ -1191,7 +1194,8 @@
(RETURN (DREVERSE LINES])

(MB.NWAY.ADDITEM
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 9-Jan-2025 11:38 by rmk")
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 30-Apr-2025 14:09 by rmk")
(* ; "Edited 9-Jan-2025 11:38 by rmk")
(* ; "Edited 20-Oct-2024 00:13 by rmk")
(* ; "Edited 29-Sep-2024 12:47 by rmk")
(* ; "Edited 26-Aug-2024 09:36 by rmk")
Expand All @@ -1205,15 +1209,17 @@
(* ;; "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.")

(CL:WHEN NEWBUTTON
(LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
(LET* [[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
(LABEL ,NEWBUTTON)
(FONT ,(IMAGEOBJPROP OBJ 'FONT]
(SUBOBJECTS (APPEND (IMAGEOBJPROP OBJ 'SUBOBJECTS)
(CONS NEWSOBJ)))
(MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE]
[SETQ SUBOBJECTS (SORT (CONS NEWSOBJ SUBOBJECTS)
(FUNCTION (LAMBDA (S1 S2)
(ALPHORDER (IMAGEOBJPROP S1 'LABEL)
(IMAGEOBJPROP S2 'LABEL]
(CL:WHEN (IMAGEOBJPROP OBJ 'SORTBUTTONS)
[SETQ SUBOBJECTS (SORT SUBOBJECTS (FUNCTION (LAMBDA (S1 S2)
(ALPHORDER (IMAGEOBJPROP S1
'LABEL)
(IMAGEOBJPROP S2 'LABEL])
(IMAGEOBJPROP OBJ 'SUBOBJECTS SUBOBJECTS)
[IMAGEOBJPROP OBJ 'MINWIDTH (IMAX (IMAGEOBJPROP OBJ 'MINWIDTH)
(fetch XSIZE of (IMAGEOBJPROP NEWSOBJ 'BOUNDBOX]
Expand Down Expand Up @@ -1379,6 +1385,7 @@

(MB.TOGGLE.BUTTONEVENTINFN
[LAMBDA (OBJ MENUDS MENUSEL RELX RELY MENUWINDOW MENUTSTREAM BUTTON)
(* ; "Edited 14-Apr-2025 23:49 by rmk")
(* ; "Edited 7-Dec-2024 13:11 by rmk")
(* ; "Edited 19-Oct-2024 19:52 by rmk")
(* ; "Edited 5-Oct-2024 22:42 by rmk")
Expand Down Expand Up @@ -1422,8 +1429,8 @@
else (* ; "Buttons came up: do it")
(SETQ STATECHANGEFN (IMAGEOBJPROP OBJ 'STATECHANGEFN))
(if (OR (NULL STATECHANGEFN)
(NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE
(fetch (TEXTWINDOW WTEXTSTREAM) of MENUDS)
(NEQ 'DON'T (APPLY* STATECHANGEFN OBJ NEXTSTATE (PANETEXTSTREAM
MENUDS)
MENUSEL)))
then (IMAGEOBJPROP OBJ 'STATE NEXTSTATE)
(* ;
Expand Down Expand Up @@ -1774,7 +1781,8 @@
ENDPC])

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