github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Shakedown of field menu items (#1957)

Browse Source 
* Shakedown of field menu items

* Suppress shift-select in menus

* Typo, plus inserting EOL-containing strings

* Fix selection display glitch revealed by DOCUMENT

* Fix arg order, eliminate U-CASE

* U-CASE only if coercing IDENTIFIER from LABEL

* Allow SMALLP for identifiers, INITSTATE for SELECTION

Also a fence-post glitch in paragraph selection

* Fix MB.GET

* TEDIT-MENU:  Right button doesn't invert Marginbar, copying suppressed

* TEDIT-STREAM:  Error if copying an image object that doesn't allow copying

* Missed another LITATOM/SMALLP test on IDENTIFIERS

* Clicking in a menu removes stale promptwindow text

---------

Co-authored-by: Frank Halasz <frank@halasz.org>
This commit is contained in:
rmkaplan 2025-01-15 10:52:18 -08:00 committed by GitHub
parent 6bdcb1853d
commit 936337d6bb
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
16 changed files with 562 additions and 491 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
internal/TEDIT-DEBUG
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "16-Dec-2024 20:38:14" {WMEDLEY}<internal>TEDIT-DEBUG.;123 130350
(FILECREATED " 9-Jan-2025 16:40:25" {MEDLEY}<internal>TEDIT-DEBUG.;11 130460
:EDIT-BY rmk
:CHANGES-TO (FNS SP)
:CHANGES-TO (FNS SPPRINT.OBJ)
:PREVIOUS-DATE "14-Dec-2024 14:32:20" {WMEDLEY}<internal>TEDIT-DEBUG.;122)
:PREVIOUS-DATE "16-Dec-2024 20:38:14" {MEDLEY}<internal>TEDIT-DEBUG.;10)
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@ -1345,7 +1345,8 @@
OSTREAM)))])
(SPPRINT.OBJ
[LAMBDA (OBJ STREAM POS) (* ; "Edited 6-Oct-2024 20:54 by rmk")
[LAMBDA (OBJ STREAM POS) (* ; "Edited 9-Jan-2025 16:37 by rmk")
(* ; "Edited 6-Oct-2024 20:54 by rmk")
(* ; "Edited 29-Sep-2024 14:45 by rmk")
(* ; "Edited 29-Aug-2024 10:44 by rmk")
(* ; "Edited 25-Aug-2024 14:31 by rmk")
@ -1364,7 +1365,7 @@
(CL:UNLESS [NLSETQ (SELECTQ (IMAGEOBJPROP OBJ 'DISPLAYFN)
(MB.NWAY.DISPLAYFN
(PRINTOUT STREAM (IMAGEOBJPROP OBJ 'IDENTIFIER)
":" T .TAB (IPLUS POS 2))
T .TAB (IPLUS POS 2))
(for SOBJ in (IMAGEOBJPROP OBJ 'SUBOBJECTS)
do (PRINTOUT STREAM (IMAGEOBJPROP SOBJ 'IDENTIFIER)
" ")))
@ -2426,30 +2427,30 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4840 7227 (GTO 4850 . 5100) (GTS 5102 . 6701) (GTW 6703 . 6859) (GSEL 6861 . 7225)) (
7284 20415 (IPC 7294 . 8798) (ILINES 8800 . 11341) (ISEL 11343 . 11954) (ITS 11956 . 13680) (IPANES
13682 . 13917) (ITL 13919 . 14338) (IHIST 14340 . 17002) (IPCTB 17004 . 17312) (IMB 17314 . 17929) (
ICL 17931 . 18496) (IPL 18498 . 18902) (ICARET 18904 . 19281) (INSPECTPIECES 19283 . 20413)) (20437
55479 (SP 20447 . 25793) (SL 25795 . 28371) (SSP 28373 . 29486) (STL 29488 . 38000) (SPF 38002 . 40301
) (SLF 40303 . 49436) (SHOWLINE 49438 . 53000) (SLL 53002 . 53749) (STBYTES 53751 . 55477)) (55480
60853 (NTHPIECE 55490 . 56622) (NPIECES 56624 . 57489) (NTHPIECECHAR 57491 . 58799) (SELPIECE 58801 .
59243) (PIECENUM 59245 . 59964) (PCBYTES 59966 . 60851)) (60854 63328 (FILEBYTES 60864 . 62288) (
TFILEBYTES 62290 . 63326)) (63329 64651 (TRELMOVE 63339 . 63582) (TSCROLL 63584 . 63750) (TSCROLL*
63752 . 64649)) (64652 67701 (TRY 64662 . 65931) (TEDITCLOSEW 65933 . 66276) (PARALASTWITHOUTEOL 66278
. 67163) (FIXPARALAST 67165 . 67699)) (67702 81927 (SPPRINT 67712 . 74128) (SPPRINT.CHAR 74130 .
75114) (SPPRINT.OBJ 75116 . 78069) (SHOWPIECEBYTES 78071 . 79627) (CHECKPLENGTHS 79629 . 80086) (SBT
80088 . 81077) (COPYPCHAIN 81079 . 81925)) (81928 83989 (POSLINE 81938 . 83987)) (83990 84873 (
PRESPLIT 84000 . 84871)) (84874 86587 (ALLTL 84884 . 86137) (NTHCHARSLOT 86139 . 86585)) (86613 96826
(PLCHAIN 86623 . 87151) (PRINTLINE 87153 . 90143) (SL.GETLINES 90145 . 93438) (CHECKLINES 93440 .
94420) (COLLECTLINES 94422 . 94674) (NTHLINE 94676 . 95681) (HEIGHT 95683 . 95971) (LINEBOTS 95973 .
96824)) (96827 99275 (IPC.DECODEARGS 96837 . 99273)) (99276 99869 (SPF1 99286 . 99867)) (99898 102276
(SLF.FATPLEN 99908 . 100767) (FILEPIECE 100769 . 102274)) (102309 103077 (SELTEDIT 102319 . 103075)) (
103147 109305 (PPARA 103157 . 103579) (PRUN 103581 . 105603) (ADDLINEPOSITIONS 105605 . 107032) (SBR
107034 . 107688) (SBC 107690 . 109303)) (109362 114037 (DFOV 109372 . 111842) (OLDWI 111844 . 112219)
(DFOV.OLDEST 112221 . 112646) (COMP 112648 . 112843) (DFR 112845 . 114035)) (114038 115071 (DFGV
114048 . 114574) (GDIRECTORIES 114576 . 115069)) (115072 121637 (TTEST 115082 . 119614) (LTEST 119616
. 120981) (THC 120983 . 121635)) (121951 122643 (SHOWSAFE 121961 . 122641)) (122696 123143 (MYH
122706 . 123141)) (123388 124483 (DFVENUE 123398 . 124277) (VSEE 124279 . 124481)) (124484 124938 (PTT
124494 . 124936)) (126036 128352 (TEDIT-DEBUG 126046 . 128350)) (128353 130089 (TRENAME 128363 .
130087)))))
(FILEMAP (NIL (4845 7232 (GTO 4855 . 5105) (GTS 5107 . 6706) (GTW 6708 . 6864) (GSEL 6866 . 7230)) (
7289 20420 (IPC 7299 . 8803) (ILINES 8805 . 11346) (ISEL 11348 . 11959) (ITS 11961 . 13685) (IPANES
13687 . 13922) (ITL 13924 . 14343) (IHIST 14345 . 17007) (IPCTB 17009 . 17317) (IMB 17319 . 17934) (
ICL 17936 . 18501) (IPL 18503 . 18907) (ICARET 18909 . 19286) (INSPECTPIECES 19288 . 20418)) (20442
55484 (SP 20452 . 25798) (SL 25800 . 28376) (SSP 28378 . 29491) (STL 29493 . 38005) (SPF 38007 . 40306
) (SLF 40308 . 49441) (SHOWLINE 49443 . 53005) (SLL 53007 . 53754) (STBYTES 53756 . 55482)) (55485
60858 (NTHPIECE 55495 . 56627) (NPIECES 56629 . 57494) (NTHPIECECHAR 57496 . 58804) (SELPIECE 58806 .
59248) (PIECENUM 59250 . 59969) (PCBYTES 59971 . 60856)) (60859 63333 (FILEBYTES 60869 . 62293) (
TFILEBYTES 62295 . 63331)) (63334 64656 (TRELMOVE 63344 . 63587) (TSCROLL 63589 . 63755) (TSCROLL*
63757 . 64654)) (64657 67706 (TRY 64667 . 65936) (TEDITCLOSEW 65938 . 66281) (PARALASTWITHOUTEOL 66283
. 67168) (FIXPARALAST 67170 . 67704)) (67707 82037 (SPPRINT 67717 . 74133) (SPPRINT.CHAR 74135 .
75119) (SPPRINT.OBJ 75121 . 78179) (SHOWPIECEBYTES 78181 . 79737) (CHECKPLENGTHS 79739 . 80196) (SBT
80198 . 81187) (COPYPCHAIN 81189 . 82035)) (82038 84099 (POSLINE 82048 . 84097)) (84100 84983 (
PRESPLIT 84110 . 84981)) (84984 86697 (ALLTL 84994 . 86247) (NTHCHARSLOT 86249 . 86695)) (86723 96936
(PLCHAIN 86733 . 87261) (PRINTLINE 87263 . 90253) (SL.GETLINES 90255 . 93548) (CHECKLINES 93550 .
94530) (COLLECTLINES 94532 . 94784) (NTHLINE 94786 . 95791) (HEIGHT 95793 . 96081) (LINEBOTS 96083 .
96934)) (96937 99385 (IPC.DECODEARGS 96947 . 99383)) (99386 99979 (SPF1 99396 . 99977)) (100008 102386
(SLF.FATPLEN 100018 . 100877) (FILEPIECE 100879 . 102384)) (102419 103187 (SELTEDIT 102429 . 103185))
(103257 109415 (PPARA 103267 . 103689) (PRUN 103691 . 105713) (ADDLINEPOSITIONS 105715 . 107142) (SBR
107144 . 107798) (SBC 107800 . 109413)) (109472 114147 (DFOV 109482 . 111952) (OLDWI 111954 . 112329)
(DFOV.OLDEST 112331 . 112756) (COMP 112758 . 112953) (DFR 112955 . 114145)) (114148 115181 (DFGV
114158 . 114684) (GDIRECTORIES 114686 . 115179)) (115182 121747 (TTEST 115192 . 119724) (LTEST 119726
. 121091) (THC 121093 . 121745)) (122061 122753 (SHOWSAFE 122071 . 122751)) (122806 123253 (MYH
122816 . 123251)) (123498 124593 (DFVENUE 123508 . 124387) (VSEE 124389 . 124591)) (124594 125048 (PTT
124604 . 125046)) (126146 128462 (TEDIT-DEBUG 126156 . 128460)) (128463 130199 (TRENAME 128473 .
130197)))))
STOP

BIN
internal/TEDIT-DEBUG.LCOM
View File

Binary file not shown.

83
library/tedit/TEDIT
View File

@ -1,18 +1,20 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "20-Dec-2024 07:51:49" {WMEDLEY}<library>TEDIT>TEDIT.;731 154713
(FILECREATED "11-Jan-2025 00:09:59" {WMEDLEY}<library>TEDIT>TEDIT.;737 155171
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.WORD.FIRST)
:CHANGES-TO (FNS \TEDIT.PARA.FIRST)
:PREVIOUS-DATE " 8-Dec-2024 21:39:48" {WMEDLEY}<library>TEDIT>TEDIT.;730)
:PREVIOUS-DATE " 7-Jan-2025 13:31:36" {WMEDLEY}<library>TEDIT>TEDIT.;736)
(PRETTYCOMPRINT TEDITCOMS)
(RPAQQ TEDITCOMS
[(COMS (* ; "Loadup stuff")
[(FILES (SYSLOAD)
POSTSCRIPTSTREAM PDFSTREAM)
(COMS (* ; "Loadup stuff")
(VARS TEDITFILES)
(FNS MAKE-TEDIT-EXPORTS.ALL UPDATE-TEDIT EDIT-TEDIT)
(DECLARE%: DONTEVAL@LOAD DONTCOPY DONTEVAL@COMPILE
@ -78,6 +80,9 @@
(ADDVARS (PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
(EXTENSION (TEDIT])
(FILESLOAD (SYSLOAD)
POSTSCRIPTSTREAM PDFSTREAM)
(* ; "Loadup stuff")
@ -742,7 +747,8 @@
(DEFINEQ
(TEDIT.INSERT.OBJECT
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 21-Oct-2024 00:26 by rmk")
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 26-Dec-2024 10:13 by rmk")
(* ; "Edited 21-Oct-2024 00:26 by rmk")
(* ; "Edited 2-Aug-2024 08:46 by rmk")
(* ; "Edited 30-Jul-2024 22:19 by rmk")
(* ; "Edited 23-Jul-2024 22:20 by rmk")
@ -814,7 +820,7 @@
(\TEDIT.FIXSEL SEL TEXTOBJ))
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL)
(CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL))
(TEDIT.NORMALIZECARET TEXTOBJ)
(\TEDIT.SCROLL.CARET TSTREAM)
(\TEDIT.SHOWSEL SEL T TEXTOBJ])
(TEDIT.EDIT.OBJECT
@ -1420,7 +1426,8 @@
(T TSTREAM)))])
(\TEDIT.INSERT
[LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 28-Nov-2024 09:53 by rmk")
[LAMBDA (INSERT SEL TSTREAM DONTSCROLL TYPEIN) (* ; "Edited 5-Jan-2025 23:01 by rmk")
(* ; "Edited 28-Nov-2024 09:53 by rmk")
(* ; "Edited 25-Nov-2024 22:05 by rmk")
(* ; "Edited 18-Nov-2024 15:53 by rmk")
(* ; "Edited 15-Nov-2024 18:05 by rmk")
@ -1472,7 +1479,7 @@
(* ;; "It's maybe worth a scan here to see if we can insert the string. This avoids the heavier per-character complexity of \INSERTCH.")
(for CH instring INSERT as NCH# from CARETCHNO
do (\TEDIT.INSERTCH CH NCH# TEXTOBJ PARACHARS))
do (\TEDIT.INSERTCH CH NCH# TEXTOBJ (MEMB CH PARACHARS)))
(SETQ NCHARSADDED (NCHARS INSERT))
else (\TEDIT.INSERTCH INSERT CARETCHNO TEXTOBJ)
(SETQ NCHARSADDED (NCHARS INSERT)))
@ -2233,7 +2240,8 @@
SPLASTCHAR _ (CAR LAST])
(\TEDIT.PARA.FIRST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 11-Jan-2025 00:08 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 19-Jan-2024 10:10 by rmk")
(* ; "Edited 26-Dec-2023 09:14 by rmk")
(* ; "Edited 24-Dec-2023 22:14 by rmk")
@ -2265,13 +2273,12 @@
until (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
do (add PLENTOT (PLEN PC)) finally
(* ;;
 "We overshot on PC, its NEXT is the winner. If no PC, we hit the text beginning")
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
(RETURN (CONS (IDIFFERENCE START PLENTOT)
(CL:IF PC
(CL:IF (PREVPIECE PC)
(NEXTPIECE PC)
(\TEDIT.FIRSTPIECE TEXTOBJ))])
PC)])
(\TEDIT.PARA.LAST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
@ -2478,7 +2485,7 @@
(* ; "TEDIT Support information")
(RPAQQ TEDITSYSTEMDATE "20-Dec-2024 07:51:50")
(RPAQQ TEDITSYSTEMDATE "11-Jan-2025 00:09:59")
@ -2488,28 +2495,28 @@
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
(EXTENSION (TEDIT))))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4507 6449 (MAKE-TEDIT-EXPORTS.ALL 4517 . 5063) (UPDATE-TEDIT 5065 . 5678) (EDIT-TEDIT
5680 . 6447)) (8122 36577 (TEDIT 8132 . 10710) (TEXTSTREAM 10712 . 12632) (TEXTSTREAMP 12634 . 13018)
(TEDITMENUP 13020 . 13786) (COERCETEXTSTREAM 13788 . 17999) (TEDIT.CONCAT 18001 . 21180) (TEDITSTRING
21182 . 22035) (TEDIT-SEE 22037 . 22596) (TEDIT.COPY 22598 . 24743) (TEDIT.DELETE 24745 . 25997) (
TEDIT.INSERT 25999 . 28957) (TEDIT.TERPRI 28959 . 30073) (TEDIT.KILL 30075 . 30991) (TEDIT.QUIT 30993
. 32768) (TEDIT.MOVE 32770 . 33658) (TEDIT.STRINGWIDTH 33660 . 34331) (TEDIT.CHARWIDTH 34333 . 36575)
) (36578 38519 (TEXTOBJ 36588 . 37053) (COERCETEXTOBJ 37055 . 38517)) (39919 40975 (TDRIBBLE 39929 .
40973)) (41016 55977 (TEDIT.INSERT.OBJECT 41026 . 45617) (TEDIT.EDIT.OBJECT 45619 . 47960) (
TEDIT.FIND.OBJECT 47962 . 49470) (TEDIT.FIND.OBJECT.BACKWARD 49472 . 51399) (TEDIT.OBJECT.CHANGED
51401 . 54268) (TEDIT.MAP.OBJECTS 54270 . 55505) (\TEDIT.FIRST.OBJPIECE 55507 . 55740) (
\TEDIT.NEXT.OBJPIECE 55742 . 55975)) (56000 64557 (\TEDIT.CONCAT.PAGEFRAMES 56010 . 61144) (
\TEDIT.GET.PAGE.HEADINGS 61146 . 62175) (\TEDIT.CONCAT.INSTALL.HEADINGS 62177 . 63508) (
\TEDIT.DO.BLUEPENDINGDELETE 63510 . 64555)) (64558 67987 (\TEDIT.MOVE.MSG 64568 . 66649) (
\TEDIT.READONLY 66651 . 67985)) (67988 82609 (TEDIT.NCHARS 67998 . 68371) (TEDIT.RPLCHARCODE 68373 .
76173) (TEDIT.NTHCHARCODE 76175 . 78532) (TEDIT.NTHCHAR 78534 . 78792) (\TEDIT.PIECE.NTHCHARCODE 78794
. 82607)) (82655 136918 (\TEDIT1 82665 . 84742) (\TEDIT.INSERT 84744 . 90602) (\TEDIT.MOVE 90604 .
98003) (\TEDIT.COPY 98005 . 101983) (\TEDIT.REPLACE.SELPIECES 101985 . 105965) (
\TEDIT.INSERT.SELPIECES 105967 . 108852) (\TEDIT.RESTARTFN 108854 . 111359) (\TEDIT.CHARDELETE 111361
. 114188) (\TEDIT.COPYPIECE 114190 . 119038) (\TEDIT.APPLY.OBJFN 119040 . 122237) (\TEDIT.DELETE
122239 . 127048) (\TEDIT.DIFFUSE.PARALOOKS 127050 . 129321) (\TEDIT.WORDDELETE 129323 . 130879) (
\TEDIT.WORDDELETE.FORWARD 130881 . 132553) (\TEDIT.FINISHEDIT? 132555 . 136916)) (136919 137578 (
\TEDIT.THELP 136929 . 137576)) (137612 145097 (\TEDIT.PARAPIECES 137622 . 139596) (\TEDIT.PARA.FIRST
139598 . 142364) (\TEDIT.PARA.LAST 142366 . 145095)) (145098 154063 (\TEDIT.WORD.FIRST 145108 . 149764
) (\TEDIT.WORD.LAST 149766 . 154061)))))
(FILEMAP (NIL (4632 6574 (MAKE-TEDIT-EXPORTS.ALL 4642 . 5188) (UPDATE-TEDIT 5190 . 5803) (EDIT-TEDIT
5805 . 6572)) (8247 36702 (TEDIT 8257 . 10835) (TEXTSTREAM 10837 . 12757) (TEXTSTREAMP 12759 . 13143)
(TEDITMENUP 13145 . 13911) (COERCETEXTSTREAM 13913 . 18124) (TEDIT.CONCAT 18126 . 21305) (TEDITSTRING
21307 . 22160) (TEDIT-SEE 22162 . 22721) (TEDIT.COPY 22723 . 24868) (TEDIT.DELETE 24870 . 26122) (
TEDIT.INSERT 26124 . 29082) (TEDIT.TERPRI 29084 . 30198) (TEDIT.KILL 30200 . 31116) (TEDIT.QUIT 31118
. 32893) (TEDIT.MOVE 32895 . 33783) (TEDIT.STRINGWIDTH 33785 . 34456) (TEDIT.CHARWIDTH 34458 . 36700)
) (36703 38644 (TEXTOBJ 36713 . 37178) (COERCETEXTOBJ 37180 . 38642)) (40044 41100 (TDRIBBLE 40054 .
41098)) (41141 56210 (TEDIT.INSERT.OBJECT 41151 . 45850) (TEDIT.EDIT.OBJECT 45852 . 48193) (
TEDIT.FIND.OBJECT 48195 . 49703) (TEDIT.FIND.OBJECT.BACKWARD 49705 . 51632) (TEDIT.OBJECT.CHANGED
51634 . 54501) (TEDIT.MAP.OBJECTS 54503 . 55738) (\TEDIT.FIRST.OBJPIECE 55740 . 55973) (
\TEDIT.NEXT.OBJPIECE 55975 . 56208)) (56233 64790 (\TEDIT.CONCAT.PAGEFRAMES 56243 . 61377) (
\TEDIT.GET.PAGE.HEADINGS 61379 . 62408) (\TEDIT.CONCAT.INSTALL.HEADINGS 62410 . 63741) (
\TEDIT.DO.BLUEPENDINGDELETE 63743 . 64788)) (64791 68220 (\TEDIT.MOVE.MSG 64801 . 66882) (
\TEDIT.READONLY 66884 . 68218)) (68221 82842 (TEDIT.NCHARS 68231 . 68604) (TEDIT.RPLCHARCODE 68606 .
76406) (TEDIT.NTHCHARCODE 76408 . 78765) (TEDIT.NTHCHAR 78767 . 79025) (\TEDIT.PIECE.NTHCHARCODE 79027
. 82840)) (82888 137270 (\TEDIT1 82898 . 84975) (\TEDIT.INSERT 84977 . 90954) (\TEDIT.MOVE 90956 .
98355) (\TEDIT.COPY 98357 . 102335) (\TEDIT.REPLACE.SELPIECES 102337 . 106317) (
\TEDIT.INSERT.SELPIECES 106319 . 109204) (\TEDIT.RESTARTFN 109206 . 111711) (\TEDIT.CHARDELETE 111713
. 114540) (\TEDIT.COPYPIECE 114542 . 119390) (\TEDIT.APPLY.OBJFN 119392 . 122589) (\TEDIT.DELETE
122591 . 127400) (\TEDIT.DIFFUSE.PARALOOKS 127402 . 129673) (\TEDIT.WORDDELETE 129675 . 131231) (
\TEDIT.WORDDELETE.FORWARD 131233 . 132905) (\TEDIT.FINISHEDIT? 132907 . 137268)) (137271 137930 (
\TEDIT.THELP 137281 . 137928)) (137964 145555 (\TEDIT.PARAPIECES 137974 . 139948) (\TEDIT.PARA.FIRST
139950 . 142822) (\TEDIT.PARA.LAST 142824 . 145553)) (145556 154521 (\TEDIT.WORD.FIRST 145566 . 150222
) (\TEDIT.WORD.LAST 150224 . 154519)))))
STOP

389
library/tedit/TEDIT-BUTTONS
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Dec-2024 22:47:22" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;200 119344
(FILECREATED "12-Jan-2025 13:03:46" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;213 124294
:EDIT-BY rmk
:CHANGES-TO (FNS MB.3STATE.BUTTONEVENTINFN)
:CHANGES-TO (FNS MB.BUTTONEVENTINFN MB.CREATE MB.GET MB.FIELD.CREATE MB.FIELD.PREFIXCREATE)
:PREVIOUS-DATE "20-Dec-2024 22:19:48" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;198)
:PREVIOUS-DATE " 9-Jan-2025 16:52:13" {WMEDLEY}<library>tedit>TEDIT-BUTTONS.;208)
(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
@ -24,7 +24,6 @@
(FNS MB.BUTTONEVENTINFN MB.DISPLAYFN MB.SETIMAGE MB.SIZEFN MB.WHENOPERATEDONFN
MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN MB.CREATE MB.CHANGENAME MB.INIT
MB.TRACK.UNTIL MB.DON'T)
(GLOBALVARS MB.IMAGEFNS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.INIT]
[COMS (* ; "3STATE")
@ -32,7 +31,6 @@
(FNS MB.3STATE.CREATE MB.3STATE.DISPLAYFN MB.3STATE.SHOWSELFN MB.3STATE.INIT
MB.3STATE.SETSTATEFN MB.3STATE.BUTTONEVENTINFN)
(GLOBALVARS MB.3STATE.IMAGEFNS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.3STATE.INIT]
[COMS (* ; "NWAY")
@ -42,18 +40,15 @@
MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN
MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ
MB.NWAY.SETSTATEFN)
(GLOBALVARS MB.NWAY.IMAGEFNS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT]
[COMS (* ; "TOGGLE")
(FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE
MB.TOGGLE.SETSTATEFN MB.TOGGLE.BUTTONEVENTINFN MB.TOGGLE.WHENOPERATEDONFN)
(GLOBALVARS MB.TOGGLE.IMAGEFNS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.TOGGLE.INIT]
(COMS (* ; "FIELDS")
(FNS MB.FIELD.CREATE MB.FIELD.DISPLAYFN MB.FIELD.IMAGEBOXFN MB.FIELD.PREFIXCREATE
MB.FIELD.SUFFIXCREATE MB.FIELD.INIT MB.FIELD.WHENOPERATEDONFN MB.FIELD.GETSTATEFN
MB.FIELD.SETSTATEFN MB.FIELD.BUTTONEVENTINFN MB.FIELD.SIZEFN MB.FIELD.INSURETYPE)
(GLOBALVARS MB.FIELD.IMAGEFNS)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.FIELD.INIT])
@ -72,7 +67,8 @@
(DEFINEQ
(MB.ADD
[LAMBDA (MENUDESC MENUTSTREAM WHERE) (* ; "Edited 22-Oct-2024 09:16 by rmk")
[LAMBDA (MENUDESC MENUTSTREAM WHERE INCREMENTALUPDATES) (* ; "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")
(* ; "Edited 6-Oct-2024 15:25 by rmk")
@ -92,73 +88,80 @@
(* ;; "Returns the textstream character number of the character just after the last inserted character/object.")
(for DESC TYPE SPEC OBJ [EOL _ (CONCATCODES (CHARCODE (EOL]
[TAB _ (CONCATCODES (CHARCODE (TAB]
(CH# _ (if (NULL WHERE)
then (ADD1 (TEXTLEN (FGETTSTR MENUTSTREAM TEXTOBJ)))
elseif (FIXP WHERE)
else (\ILLEGAL.ARG WHERE))) in MENUDESC declare (SPECVARS CH#)
do (SETQ DESC (MKLIST DESC)) (* ; "MKLIST for EOL/TAB, FIXP")
(SETQ TYPE (CAR DESC))
(SETQ SPEC (CDR DESC))
(SELECTQ TYPE
( (* ; ;; NIL)
(RESETLST
(CL:UNLESS INCREMENTALUPDATES (TEDIT.DEFER.UPDATES MENUTSTREAM))
(for DESC TYPE SPEC OBJ [EOL _ (CONCATCODES (CHARCODE (EOL]
[TAB _ (CONCATCODES (CHARCODE (TAB]
(CH# _ (if (NULL WHERE)
then (ADD1 (TEXTLEN (FGETTSTR MENUTSTREAM TEXTOBJ)))
elseif (FIXP WHERE)
else (\ILLEGAL.ARG WHERE))) in MENUDESC declare (SPECVARS CH#)
do (SETQ DESC (MKLIST DESC)) (* ; "MKLIST for EOL/TAB, FIXP")
(SETQ TYPE (CAR DESC))
(SETQ SPEC (CDR DESC))
(SELECTQ TYPE
( (* ; ;; NIL)
(* ;
 "Ignore comments within menu descriptions")
)
(EOL (TEDIT.INSERT MENUTSTREAM EOL CH# '(PROTECTED ON))
(add CH# 1))
(TAB (TEDIT.INSERT MENUTSTREAM TAB CH# '(PROTECTED ON))
(add CH# 1))
(ACTION (* ; "Hitting calls a function")
(TEDIT.INSERT.OBJECT (MB.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(3STATE (* ;
)
(EOL (TEDIT.INSERT MENUTSTREAM EOL CH# '(PROTECTED ON))
(add CH# 1))
(TAB (TEDIT.INSERT MENUTSTREAM TAB CH# '(PROTECTED ON))
(add CH# 1))
(ACTION (* ; "Hitting calls a function")
(TEDIT.INSERT.OBJECT (MB.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(3STATE (* ;
 "3-state button; hitting it changes state among ON, OFF, and NEUTRAL.")
(TEDIT.INSERT.OBJECT (MB.3STATE.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(TOGGLE (* ;
(TEDIT.INSERT.OBJECT (MB.3STATE.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(TOGGLE (* ;
 "TOGGLE button; hitting it switches between ON and OFF.")
(TEDIT.INSERT.OBJECT (MB.TOGGLE.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(NWAY (* ;
(TEDIT.INSERT.OBJECT (MB.TOGGLE.CREATE SPEC)
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(NWAY (* ;
 "N-way buttons; choosing one turns the others off.")
(SETQ OBJ (MB.NWAY.CREATE SPEC))
(TEDIT.INSERT.OBJECT OBJ MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(TEXT (* ; "Arbitrary protected text.")
[TEDIT.INSERT MENUTSTREAM (CADR (ASSOC 'STRING SPEC))
CH#
(CL:IF (CADR (ASSOC 'FONT SPEC))
`(FONT ,(CADR (ASSOC 'FONT SPEC))
PROTECTED ON)
'(PROTECTED ON))]
[add CH# (NCHARS (CADR (ASSOC 'STRING SPEC])
(FIELD (SETQ CH# (MB.FIELD.CREATE SPEC MENUTSTREAM CH#)))
(MENU (* ;
(SETQ OBJ (MB.NWAY.CREATE SPEC))
(TEDIT.INSERT.OBJECT OBJ MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(TEXT (* ; "Arbitrary protected text.")
[TEDIT.INSERT MENUTSTREAM (CADR (ASSOC 'STRING SPEC))
CH#
(CL:IF (CADR (ASSOC 'FONT SPEC))
`(FONT ,(CADR (ASSOC 'FONT SPEC))
PROTECTED ON)
'(PROTECTED ON))]
[add CH# (NCHARS (CADR (ASSOC 'STRING SPEC])
(FIELD (SETQ CH# (MB.FIELD.CREATE SPEC MENUTSTREAM CH#)))
(MENU (* ;
 "Real menu, except the selection sticks")
(\TEDIT.THELP "NOT IMPLEMENTED")
(TEDIT.INSERT.OBJECT (MB.CREATE.FULLMENU (CADR SPEC))
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(if (STRINGP TYPE)
then (TEDIT.INSERT MENUTSTREAM TYPE CH# '(PROTECTED ON))
(add CH# (NCHARS TYPE))
elseif (FIXP TYPE)
then (* ; "TYPE spaces")
(TEDIT.INSERT MENUTSTREAM (ALLOCSTRING TYPE (CHARCODE SPACE))
CH#
'(PROTECTED ON))
(add CH# TYPE)
elseif (LISTP TYPE)
then
(* ;; "Form to be evaluated")
(\TEDIT.THELP "NOT IMPLEMENTED")
(TEDIT.INSERT.OBJECT (MB.CREATE.FULLMENU (CADR SPEC))
MENUTSTREAM CH# '(PROTECTED OFF))
(add CH# 1))
(if (STRINGP TYPE)
then (TEDIT.INSERT MENUTSTREAM TYPE CH# '(PROTECTED ON))
(add CH# (NCHARS TYPE))
elseif (FIXP TYPE)
then (* ; "TYPE spaces")
(TEDIT.INSERT MENUTSTREAM (ALLOCSTRING TYPE (CHARCODE SPACE))
CH#
'(PROTECTED ON))
(add CH# TYPE)
elseif (LISTP TYPE)
then
(* ;; "Form to be evaluated")
(add CH# (EVAL TYPE))
else (\ILLEGAL.ARG DESC))) finally (RETURN CH#])
(add CH# (EVAL TYPE))
else (\ILLEGAL.ARG DESC))) finally (\TEDIT.SHOWSEL NIL NIL MENUTSTREAM)
(* ;
 "User has to click to get a selection")
(SETSEL (TEXTSEL (GETTSTR MENUTSTREAM TEXTOBJ))
SET NIL)
(RETURN CH#)))])
(MB.DELETE
[LAMBDA (IDENTIFIERS MENUSTREAM) (* ; "Edited 8-Nov-2024 08:58 by rmk")
@ -168,7 +171,8 @@
(CAR CHNOS])
(MB.GET
[LAMBDA (IDENTIFIERS MENUSTREAM RETURNS START BEFORE) (* ; "Edited 13-Dec-2024 09:24 by rmk")
[LAMBDA (IDENTIFIERS MENUSTREAM RETURNS START BEFORE) (* ; "Edited 11-Jan-2025 20:49 by rmk")
(* ; "Edited 13-Dec-2024 09:24 by rmk")
(* ; "Edited 2-Dec-2024 09:41 by rmk")
(* ; "Edited 7-Nov-2024 22:20 by rmk")
(* ; "Edited 22-Oct-2024 22:02 by rmk")
@ -251,9 +255,9 @@
(ERROR R " is not a button return"))
finally (CL:UNLESS (CDR RETURNS)
(RETURN (CAR $$VAL)))])
(CL:IF (LITATOM IDENTIFIERS)
(CADR RESULT)
RESULT)))])
(CL:IF (LISTP IDENTIFIERS)
RESULT
(CADR RESULT))))])
(MB.GET.MBARG
[LAMBDA (IDPC MENUSTREAM) (* ; "Edited 17-Dec-2024 11:54 by rmk")
@ -315,6 +319,8 @@
(MB.BUTTONEVENTINFN
[LAMBDA (OBJ MENUSTREAM SEL RELX RELY SELWINDOW HOSTSTREAM BUTTON)
(* ; "Edited 12-Jan-2025 13:03 by rmk")
(* ; "Edited 28-Dec-2024 20:21 by rmk")
(* ; "Edited 22-Aug-2024 16:26 by rmk")
(* ; "Edited 20-Aug-2024 10:04 by rmk")
(* ; "Edited 20-Jul-2024 15:26 by rmk")
@ -323,8 +329,10 @@
(* ;; "Called when a mouse-button is down inside the object, RELX and RELY are in the objects coordinate system. Decline unless it is a normal left-button selection within the object.")
(TEDIT.PROMPTCLEAR MENUSTREAM)
(if [OR (EQ BUTTON 'RIGHT)
(SHIFTDOWNP 'CTRL)
(SHIFTDOWNP 'SHIFT)
(LET [(OBJBOX (IMAGEOBJPROP OBJ 'BOUNDBOX]
(OR (ILESSP RELX 0)
(ILESSP RELY 0)
@ -515,7 +523,11 @@
'INVERT))])
(MB.CREATE
[LAMBDA (SPEC IMAGEFNS) (* ; "Edited 18-Oct-2024 10:27 by rmk")
[LAMBDA (SPEC IMAGEFNS) (* ; "Edited 12-Jan-2025 12:35 by rmk")
(* ; "Edited 9-Jan-2025 16:51 by rmk")
(* ; "Edited 6-Jan-2025 00:19 by rmk")
(* ; "Edited 4-Jan-2025 16:29 by rmk")
(* ; "Edited 18-Oct-2024 10:27 by rmk")
(* ; "Edited 6-Oct-2024 16:59 by rmk")
(* ; "Edited 5-Oct-2024 11:51 by rmk")
(* ; "Edited 29-Sep-2024 14:51 by rmk")
@ -532,25 +544,34 @@
(* ;; "Create a MENU BUTTON image object, and fill in its image and function-hook fields. ")
(for S PROP VAL (OBJ _ (IMAGEOBJCREATE NIL (OR IMAGEFNS (CADR (ASSOC 'IMAGEFNS SPEC))
MB.IMAGEFNS))) in SPEC
(for S PROP VAL IDENTIFIER LABEL (OBJ _ (IMAGEOBJCREATE NIL (OR IMAGEFNS
(CADR (ASSOC 'IMAGEFNS SPEC))
MB.IMAGEFNS))) in SPEC
eachtime (SETQ PROP (MKATOM (CAR S)))
(SETQ VAL (CADR S)) unless (EQ PROP 'IMAGEFNS)
do (SELECTQ PROP
(FONT [SETQ VAL (FONTCREATE (FONTCREATE VAL NIL NIL NIL 'DISPLAY])
((LABEL IDENTIFIER)
(SETQ VAL (MKATOM VAL)))
(LABEL (SETQ LABEL (SETQ VAL (MKSTRING VAL))))
(IDENTIFIER (SETQ IDENTIFIER VAL)
(GO $$ITERATE))
NIL)
(IMAGEOBJPROP OBJ PROP VAL)
finally (CL:UNLESS (IMAGEOBJPROP OBJ 'FONT)
(IMAGEOBJPROP OBJ 'FONT (FONTCREATE '(HELVETICA 8 BOLD)
NIL NIL NIL 'DISPLAY)))
(CL:UNLESS (IMAGEOBJPROP OBJ 'IDENTIFIER)
(if (SETQ VAL (IMAGEOBJPROP OBJ 'LABEL))
then [IMAGEOBJPROP OBJ 'IDENTIFIER
(U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab #\Newline #\:)
VAL]
else (ERROR (ERROR "Missing both IDENTIFIER and LABEL" SPEC))))
(if (NULL IDENTIFIER)
then (if LABEL
then [SETQ IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab
#\Newline #\:
)
LABEL]
else (ERROR (ERROR "Missing both IDENTIFIER and LABEL" SPEC)))
elseif (OR (LITATOM IDENTIFIER)
(SMALLP IDENTIFIER))
elseif (STRINGP IDENTIFIER)
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
else (\ILLEGAL.ARG VAL))
(IMAGEOBJPROP OBJ 'IDENTIFIER IDENTIFIER)
(CL:WHEN (IMAGEOBJPROP OBJ 'INITSTATE)
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP OBJ 'INITSTATE)))
(MB.SETIMAGE OBJ)
@ -569,12 +590,14 @@
(TEDIT.OBJECT.CHANGED TEXTOBJ OBJ])
(MB.INIT
[LAMBDA NIL (* ; "Edited 7-Dec-2024 09:05 by rmk")
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:49 by rmk")
(* ; "Edited 7-Dec-2024 09:05 by rmk")
(* ; "Edited 28-Aug-2024 23:34 by rmk")
(* ; "Edited 24-Aug-2024 11:00 by rmk")
(* ; "Edited 20-Aug-2024 15:23 by rmk")
(* ; "Edited 18-Feb-2024 14:15 by rmk")
(* jds "12-Feb-85 14:32")
(DECLARE (GLOBALVARS MB.IMAGEFNS))
(SETQ MB.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.DISPLAYFN)
(FUNCTION MB.SIZEFN)
(FUNCTION MB.PUTFN)
@ -611,10 +634,6 @@
(CL:UNLESS (IMAGEOBJPROP OBJ 'DELETABLE)
'DON'T])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MB.IMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MB.INIT)
@ -696,7 +715,8 @@
NIL])
(MB.3STATE.INIT
[LAMBDA NIL (* ; "Edited 7-Dec-2024 12:38 by rmk")
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:49 by rmk")
(* ; "Edited 7-Dec-2024 12:38 by rmk")
(* ; "Edited 18-Oct-2024 11:40 by rmk")
(* ; "Edited 25-Aug-2024 23:11 by rmk")
(* ; "Edited 20-Aug-2024 15:36 by rmk")
@ -704,6 +724,7 @@
(* ;; "Initialize the IMAGEFNS for 3-state menu button IMAGEOBJs")
(DECLARE (GLOBALVARS MB.3STATE.IMAGEFNS))
(SETQ MB.3STATE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.3STATE.DISPLAYFN)
(FUNCTION MB.SIZEFN)
(FUNCTION MB.PUTFN)
@ -778,10 +799,6 @@
(TEDIT.BACKTOMAIN MENUTSTREAM)))
'DON'T])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MB.3STATE.IMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MB.3STATE.INIT)
@ -799,7 +816,9 @@
(DEFINEQ
(MB.NWAY.CREATE
[LAMBDA (SPEC) (* ; "Edited 20-Dec-2024 22:17 by rmk")
[LAMBDA (SPEC) (* ; "Edited 9-Jan-2025 11:38 by rmk")
(* ; "Edited 4-Jan-2025 21:39 by rmk")
(* ; "Edited 20-Dec-2024 22:17 by rmk")
(* ; "Edited 22-Oct-2024 00:26 by rmk")
(* ; "Edited 29-Sep-2024 12:43 by rmk")
(* ; "Edited 31-Aug-2024 14:57 by rmk")
@ -824,6 +843,11 @@
(DONTAPPLY (CADR (ASSOC 'DONTAPPLY SPEC)))
(OBJ (IMAGEOBJCREATE NIL MB.NWAY.IMAGEFNS))
SPACING HEIGHT SUBOBJECTS)
(if (AND IDENTIFIER (LITATOM IDENTIFIER))
elseif (STRINGP IDENTIFIER)
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
else (\ILLEGAL.ARG IDENTIFIER))
(SETQ IDENTIFIER IDENTIFIER)
(SETQ SPACING (STRINGWIDTH " " FONT))
[SETQ HEIGHT (IPLUS 2 (FONTPROP FONT 'HEIGHT]
(CL:UNLESS (LISTP BUTTONS)
@ -986,7 +1010,9 @@
BOX])
(MB.NWAY.SELECT
[LAMBDA (OBJ SELECTED MENUWINDOW SEL) (* ; "Edited 29-Sep-2024 12:44 by rmk")
[LAMBDA (OBJ SELECTED MENUWINDOW SEL) (* ; "Edited 3-Jan-2025 12:56 by rmk")
(* ; "Edited 1-Jan-2025 12:30 by rmk")
(* ; "Edited 29-Sep-2024 12:44 by rmk")
(* ; "Edited 24-Aug-2024 15:28 by rmk")
(* ; "Edited 20-Aug-2024 15:13 by rmk")
(* ; "Edited 2-Aug-2024 00:28 by rmk")
@ -1002,29 +1028,37 @@
(CL:WHEN (AND SELECTED (NEQ SELECTED T)
(LITATOM SELECTED))
(SETQ SELECTED (MB.NWAY.FINDSUBOBJ SELECTED OBJ)))
(CL:UNLESS (EQ OLDSELECTED SELECTED) (* ; "Reclicking is a no-op. ")
(CL:WHEN (AND OLDSELECTED SELECTED) (* ;
(if (AND NIL (EQ OLDSELECTED SELECTED))
then (IMAGEOBJPROP OBJ 'STATE 'OFF) (* ;
 "Reclicking the current selection turns it off. ")
(IMAGEOBJPROP OBJ 'SELECTED NIL)
(CL:WHEN MENUWINDOW
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
(IMAGEOBJPROP OLDSELECTED 'Y)
NIL NIL 'INPUT 'REPLACE))
else (CL:WHEN (AND OLDSELECTED SELECTED) (* ;
 "Turn the old one off if it's changing")
(IMAGEOBJPROP OLDSELECTED 'STATE 'OFF)
(CL:WHEN MENUWINDOW
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
(IMAGEOBJPROP OLDSELECTED 'Y)
NIL NIL 'INPUT 'REPLACE))
(IMAGEOBJPROP OBJ 'STATE NIL)
(IMAGEOBJPROP OBJ 'SELECTED NIL))
(CL:WHEN (AND SELECTED (NEQ T SELECTED)) (* ; "Turn on the new one.")
(IMAGEOBJPROP SELECTED 'STATE 'ON)
(CL:WHEN MENUWINDOW
(BITBLT (IMAGEOBJPROP SELECTED 'BITCACHE)
0 0 MENUWINDOW (IMAGEOBJPROP SELECTED 'X)
(IMAGEOBJPROP SELECTED 'Y)
NIL NIL 'INVERT 'REPLACE))
(IMAGEOBJPROP OBJ 'SELECTED SELECTED)
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP SELECTED 'IDENTIFIER))
(CL:WHEN (IMAGEOBJPROP OBJ 'STATECHANGEFN)
(APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
OBJ SELECTED SEL MENUWINDOW))))])
(IMAGEOBJPROP OLDSELECTED 'STATE 'OFF)
(CL:WHEN MENUWINDOW
(BITBLT (IMAGEOBJPROP OLDSELECTED 'BITCACHE)
0 0 MENUWINDOW (IMAGEOBJPROP OLDSELECTED 'X)
(IMAGEOBJPROP OLDSELECTED 'Y)
NIL NIL 'INPUT 'REPLACE))
(IMAGEOBJPROP OBJ 'STATE NIL)
(IMAGEOBJPROP OBJ 'SELECTED NIL))
(CL:WHEN (AND SELECTED (NEQ T SELECTED)) (* ; "Turn on the new one.")
(IMAGEOBJPROP SELECTED 'STATE 'ON)
(CL:WHEN MENUWINDOW
(BITBLT (IMAGEOBJPROP SELECTED 'BITCACHE)
0 0 MENUWINDOW (IMAGEOBJPROP SELECTED 'X)
(IMAGEOBJPROP SELECTED 'Y)
NIL NIL 'INVERT 'REPLACE))
(IMAGEOBJPROP OBJ 'SELECTED SELECTED)
(IMAGEOBJPROP OBJ 'STATE (IMAGEOBJPROP SELECTED 'IDENTIFIER))
(CL:WHEN (IMAGEOBJPROP OBJ 'STATECHANGEFN)
(APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
OBJ SELECTED SEL MENUWINDOW)))])
(MB.NWAY.BUTTONEVENTINFN
[LAMBDA (OBJ MENUDS SEL RELX RELY SELWINDOW MENUTSTREAM BUTTON)
@ -1105,7 +1139,8 @@
NEWOBJ])
(MB.NWAY.INIT
[LAMBDA (BUTTONS FONT INITSTATE) (* ; "Edited 7-Dec-2024 09:05 by rmk")
[LAMBDA (BUTTONS FONT INITSTATE) (* ; "Edited 7-Jan-2025 22:50 by rmk")
(* ; "Edited 7-Dec-2024 09:05 by rmk")
(* ; "Edited 24-Aug-2024 23:11 by rmk")
(* ; "Edited 20-Aug-2024 16:41 by rmk")
(* ; "Edited 11-Aug-2024 17:13 by rmk")
@ -1113,6 +1148,7 @@
(* ;; "Selection happens in the BUTTEVENTINFN, no WHENOPERATEDONFN")
(DECLARE (GLOBALVARS MB.NWAY.IMAGEFNS))
(SETQ MB.NWAY.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.NWAY.DISPLAYFN)
(FUNCTION MB.NWAY.SIZEFN)
(FUNCTION MB.PUTFN)
@ -1155,7 +1191,8 @@
(RETURN (DREVERSE LINES])
(MB.NWAY.ADDITEM
[LAMBDA (OBJ NEWBUTTON) (* ; "Edited 20-Oct-2024 00:13 by rmk")
[LAMBDA (OBJ NEWBUTTON) (* ; "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")
(* ; "Edited 20-Aug-2024 15:46 by rmk")
@ -1169,7 +1206,7 @@
(CL:WHEN NEWBUTTON
(LET* [(SUBOBJECTS (IMAGEOBJPROP OBJ 'SUBOBJECTS))
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,(U-CASE NEWBUTTON))
[NEWSOBJ (MB.TOGGLE.CREATE `((IDENTIFIER ,NEWBUTTON)
(LABEL ,NEWBUTTON)
(FONT ,(IMAGEOBJPROP OBJ 'FONT]
(MAXITEMS/LINE (IMAGEOBJPROP OBJ 'MAXITEMS/LINE]
@ -1230,10 +1267,6 @@
(TEDIT.OBJECT.CHANGED MENUSTREAM OBJ PC))
PC])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MB.NWAY.IMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MB.NWAY.INIT)
@ -1286,7 +1319,8 @@
(BLTSHADE BLACKSHADE STREAM X Y XSIZE YSIZE 'INVERT))])
(MB.TOGGLE.INIT
[LAMBDA NIL (* ; "Edited 7-Dec-2024 12:33 by rmk")
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:50 by rmk")
(* ; "Edited 7-Dec-2024 12:33 by rmk")
(* ; "Edited 19-Oct-2024 23:21 by rmk")
(* ; "Edited 18-Oct-2024 13:27 by rmk")
(* ; "Edited 6-Oct-2024 23:43 by rmk")
@ -1294,6 +1328,7 @@
(* ; "Edited 24-Aug-2024 10:56 by rmk")
(* ; "Edited 20-Aug-2024 15:47 by rmk")
(* jds " 9-Feb-86 15:18")
(DECLARE (GLOBALVARS MB.TOGGLE.IMAGEFNS))
(SETQ MB.TOGGLE.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.TOGGLE.DISPLAYFN)
(FUNCTION MB.SIZEFN)
(FUNCTION MB.PUTFN)
@ -1418,10 +1453,6 @@
((DESELECTED HIGHLIGHTED UNHIGHLIGHTED))
NIL])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MB.TOGGLE.IMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MB.TOGGLE.INIT)
@ -1434,7 +1465,10 @@
(DEFINEQ
(MB.FIELD.CREATE
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 16-Dec-2024 13:33 by rmk")
[LAMBDA (SPEC MENUTSTREAM CH#) (* ; "Edited 11-Jan-2025 09:59 by rmk")
(* ; "Edited 9-Jan-2025 16:52 by rmk")
(* ; "Edited 5-Jan-2025 12:09 by rmk")
(* ; "Edited 16-Dec-2024 13:33 by rmk")
(* ; "Edited 9-Dec-2024 21:53 by rmk")
(* ; "Edited 4-Dec-2024 15:57 by rmk")
(* ; "Edited 20-Oct-2024 23:43 by rmk")
@ -1462,22 +1496,24 @@
[FIELDFONT (FONTCREATE (OR (CADR (ASSOC 'FIELDFONT SPEC))
'(HELVETICA 8]
PRE POST FIELDLOOKS PREFIXOBJ SUFFIXOBJ REMAINDER)
(* ;; "Collect any other properties to put on the prefix")
(if (NULL IDENTIFIER)
then (if PRELABEL
then [SETQ IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab #\Newline
#\:)
PRELABEL]
else (ERROR (ERROR "Missing both IDENTIFIER and PRELABEL" SPEC)))
elseif (OR (LITATOM IDENTIFIER)
(SMALLP IDENTIFIER))
elseif (STRINGP IDENTIFIER)
then (SETQ IDENTIFIER (MKATOM IDENTIFIER))
else (\ILLEGAL.ARG IDENTIFIER))
(push SPEC (LIST 'IDENTIFIER IDENTIFIER))
(SETQ REMAINDER (for S in SPEC unless (MEMB (CAR S)
'(INITSTATE PRELABEL POSTLABEL IDENTIFIER
LABELFONT FIELDFONT)) collect S))
(* ;; "SPEC could specify a prelabel font different from a field font")
(CL:UNLESS IDENTIFIER
(if PRELABEL
then [push SPEC (LIST IDENTIFIER (U-CASE (MKATOM (CL:STRING-TRIM '(#\Space #\Tab
#\Newline
#\:)
PRELABEL]
else (ERROR "NO IDENTIFIER FOR FIELD")))
[SETQ PRE `((,FIELDFONT " {"]
(CL:WHEN PRELABEL
(push PRE (LIST LABELFONT PRELABEL)))
@ -1504,10 +1540,12 @@
(TEDIT.INSERT.OBJECT PREFIXOBJ MENUTSTREAM CH# FIELDFONT)
(add CH# 1)
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**)) (* ; "Initial entry")
[TEDIT.INSERT MENUTSTREAM (MKSTRING INITSTATE)
CH#
`(FONT ,FIELDFONT]
(add CH# (NCHARS INITSTATE)))
(add CH# (if (EQ 'IMAGEOBJ (CADR (ASSOC 'FIELDTYPE SPEC)))
then [TEDIT.INSERT.OBJECT INITSTATE MENUTSTREAM CH#
`(FONT ,FIELDFONT]
1
else [TEDIT.INSERT MENUTSTREAM INITSTATE CH# `(FONT ,FIELDFONT]
(NCHARS INITSTATE))))
(TEDIT.INSERT.OBJECT SUFFIXOBJ MENUTSTREAM CH# FIELDFONT)
(add CH# 1])
@ -1547,7 +1585,9 @@
XKERN _ 0])
(MB.FIELD.PREFIXCREATE
[LAMBDA (SPEC PRE FIELDLOOKS) (* ; "Edited 9-Dec-2024 21:53 by rmk")
[LAMBDA (SPEC PRE FIELDLOOKS) (* ; "Edited 11-Jan-2025 09:58 by rmk")
(* ; "Edited 4-Jan-2025 16:53 by rmk")
(* ; "Edited 9-Dec-2024 21:53 by rmk")
(* ; "Edited 7-Dec-2024 09:01 by rmk")
(* ; "Edited 4-Dec-2024 17:48 by rmk")
(* ; "Edited 8-Nov-2024 08:36 by rmk")
@ -1577,12 +1617,12 @@
(IMAGEOBJPROP OBJ SPEC 'SETSTATEFN (FUNCTION MB.FIELD.SETSTATEFN)))
(IMAGEOBJPROP OBJ 'FIELDLOOKS FIELDLOOKS)
(for S in SPEC unless (MEMB (CAR S)
'(PRELABEL POSTLABEL LABELFONT FIELDFONT))
'(PRELABEL POSTLABEL LABELFONT IDENTIFIER FIELDFONT))
do (IMAGEOBJPROP OBJ (CAR S)
(CADR S)))
(CL:WHEN (AND EMPTYVALUE (EQ INITSTATE (CADR EMPTYVALUE)))
(SETQ INITSTATE '**EMPTY**))
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**)) (* ; "Can SELECTION be initialized?")
(CL:WHEN (AND INITSTATE (NEQ INITSTATE '**EMPTY**))
(CL:UNLESS (SELECTQ FIELDTYPE
(NUMBER (NUMBERP INITSTATE))
(SYMBOL (LITATOM INITSTATE))
@ -1594,9 +1634,12 @@
((TEXT STRING)
(STRINGP INITSTATE))
(IMAGEOBJ (IMAGEOBJP INITSTATE))
(SELECTION (OR (ATOM INITSTATE)
(STRINGP INITSTATE)))
NIL)
(\ILLEGAL.ARG INITSTATE))
(IMAGEOBJPROP OBJ 'INITSTATE INITSTATE))
(IMAGEOBJPROP OBJ 'IDENTIFIER (CADR (ASSOC 'IDENTIFIER SPEC)))
(IMAGEOBJPROP OBJ 'FIELDPREFIX T)
OBJ])
@ -1623,7 +1666,8 @@
OBJ])
(MB.FIELD.INIT
[LAMBDA NIL (* ; "Edited 7-Dec-2024 09:05 by rmk")
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:51 by rmk")
(* ; "Edited 7-Dec-2024 09:05 by rmk")
(* ; "Edited 4-Dec-2024 16:09 by rmk")
(* ; "Edited 22-Aug-2024 10:07 by rmk")
(* ; "Edited 20-Aug-2024 16:03 by rmk")
@ -1633,6 +1677,7 @@
(* ;; "The displayfn is NILL--field prefixes don't display")
(DECLARE (GLOBALVARS MB.FIELD.IMAGEFNS))
(SETQ MB.FIELD.IMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.FIELD.DISPLAYFN)
(FUNCTION MB.FIELD.IMAGEBOXFN)
(FUNCTION MB.PUTFN)
@ -1908,34 +1953,30 @@
(\TEDIT.THELP "UNRECOGNIZED FIELD TYPE" FIELDTYPE))
VAL])
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MB.FIELD.IMAGEFNS)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MB.FIELD.INIT)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3459 19034 (MB.ADD 3469 . 9058) (MB.DELETE 9060 . 9434) (MB.GET 9436 . 16099) (
MB.GET.MBARG 16101 . 17770) (TEDITMENU.STREAM 17772 . 18439) (TEDIT.BACKTOMAIN 18441 . 19032)) (19078
36844 (MB.BUTTONEVENTINFN 19088 . 20297) (MB.DISPLAYFN 20299 . 22358) (MB.SETIMAGE 22360 . 23528) (
MB.SIZEFN 23530 . 25078) (MB.WHENOPERATEDONFN 25080 . 27029) (MB.COPYFN 27031 . 27489) (MB.GETFN 27491
. 28452) (MB.PUTFN 28454 . 29554) (MB.SHOWSELFN 29556 . 31065) (MB.CREATE 31067 . 34052) (
MB.CHANGENAME 34054 . 34536) (MB.INIT 34538 . 35847) (MB.TRACK.UNTIL 35849 . 36544) (MB.DON'T 36546 .
36842)) (37069 46900 (MB.3STATE.CREATE 37079 . 37943) (MB.3STATE.DISPLAYFN 37945 . 38931) (
MB.3STATE.SHOWSELFN 38933 . 41244) (MB.3STATE.INIT 41246 . 42498) (MB.3STATE.SETSTATEFN 42500 . 43158)
(MB.3STATE.BUTTONEVENTINFN 43160 . 46898)) (47125 76244 (MB.NWAY.CREATE 47135 . 52645) (
MB.NWAY.DISPLAYFN 52647 . 53510) (MB.NWAY.WHENOPERATEDONFN 53512 . 55702) (MB.NWAY.SIZEFN 55704 .
59640) (MB.NWAY.SELECT 59642 . 62452) (MB.NWAY.BUTTONEVENTINFN 62454 . 65666) (MB.NWAY.NEWMENUBUTTON
65668 . 66380) (MB.NWAY.COPYFN 66382 . 67349) (MB.NWAY.INIT 67351 . 68685) (MB.NWAY.ARRANGEBUTTONS
68687 . 70658) (MB.NWAY.ADDITEM 70660 . 74422) (MB.NWAY.FINDSUBOBJ 74424 . 74938) (MB.NWAY.SETSTATEFN
74940 . 76242)) (76391 88119 (MB.TOGGLE.CREATE 76401 . 77396) (MB.TOGGLE.DISPLAYFN 77398 . 78881) (
MB.TOGGLE.INIT 78883 . 80523) (MB.SET.TOGGLE 80525 . 81726) (MB.TOGGLE.SETSTATEFN 81728 . 82568) (
MB.TOGGLE.BUTTONEVENTINFN 82570 . 86774) (MB.TOGGLE.WHENOPERATEDONFN 86776 . 88117)) (88270 119196 (
MB.FIELD.CREATE 88280 . 93015) (MB.FIELD.DISPLAYFN 93017 . 93808) (MB.FIELD.IMAGEBOXFN 93810 . 95292)
(MB.FIELD.PREFIXCREATE 95294 . 98846) (MB.FIELD.SUFFIXCREATE 98848 . 100508) (MB.FIELD.INIT 100510 .
102119) (MB.FIELD.WHENOPERATEDONFN 102121 . 103392) (MB.FIELD.GETSTATEFN 103394 . 107328) (
MB.FIELD.SETSTATEFN 107330 . 112025) (MB.FIELD.BUTTONEVENTINFN 112027 . 114332) (MB.FIELD.SIZEFN
114334 . 114574) (MB.FIELD.INSURETYPE 114576 . 119194)))))
(FILEMAP (NIL (3287 19809 (MB.ADD 3297 . 9726) (MB.DELETE 9728 . 10102) (MB.GET 10104 . 16874) (
MB.GET.MBARG 16876 . 18545) (TEDITMENU.STREAM 18547 . 19214) (TEDIT.BACKTOMAIN 19216 . 19807)) (19853
39094 (MB.BUTTONEVENTINFN 19863 . 21357) (MB.DISPLAYFN 21359 . 23418) (MB.SETIMAGE 23420 . 24588) (
MB.SIZEFN 24590 . 26138) (MB.WHENOPERATEDONFN 26140 . 28089) (MB.COPYFN 28091 . 28549) (MB.GETFN 28551
. 29512) (MB.PUTFN 29514 . 30614) (MB.SHOWSELFN 30616 . 32125) (MB.CREATE 32127 . 36150) (
MB.CHANGENAME 36152 . 36634) (MB.INIT 36636 . 38097) (MB.TRACK.UNTIL 38099 . 38794) (MB.DON'T 38796 .
39092)) (39256 49246 (MB.3STATE.CREATE 39266 . 40130) (MB.3STATE.DISPLAYFN 40132 . 41118) (
MB.3STATE.SHOWSELFN 41120 . 43431) (MB.3STATE.INIT 43433 . 44844) (MB.3STATE.SETSTATEFN 44846 . 45504)
(MB.3STATE.BUTTONEVENTINFN 45506 . 49244)) (49401 79998 (MB.NWAY.CREATE 49411 . 55382) (
MB.NWAY.DISPLAYFN 55384 . 56247) (MB.NWAY.WHENOPERATEDONFN 56249 . 58439) (MB.NWAY.SIZEFN 58441 .
62377) (MB.NWAY.SELECT 62379 . 65949) (MB.NWAY.BUTTONEVENTINFN 65951 . 69163) (MB.NWAY.NEWMENUBUTTON
69165 . 69877) (MB.NWAY.COPYFN 69879 . 70846) (MB.NWAY.INIT 70848 . 72339) (MB.NWAY.ARRANGEBUTTONS
72341 . 74312) (MB.NWAY.ADDITEM 74314 . 78176) (MB.NWAY.FINDSUBOBJ 78178 . 78692) (MB.NWAY.SETSTATEFN
78694 . 79996)) (80077 91964 (MB.TOGGLE.CREATE 80087 . 81082) (MB.TOGGLE.DISPLAYFN 81084 . 82567) (
MB.TOGGLE.INIT 82569 . 84368) (MB.SET.TOGGLE 84370 . 85571) (MB.TOGGLE.SETSTATEFN 85573 . 86413) (
MB.TOGGLE.BUTTONEVENTINFN 86415 . 90619) (MB.TOGGLE.WHENOPERATEDONFN 90621 . 91962)) (92045 124215 (
MB.FIELD.CREATE 92055 . 97492) (MB.FIELD.DISPLAYFN 97494 . 98285) (MB.FIELD.IMAGEBOXFN 98287 . 99769)
(MB.FIELD.PREFIXCREATE 99771 . 103707) (MB.FIELD.SUFFIXCREATE 103709 . 105369) (MB.FIELD.INIT 105371
. 107138) (MB.FIELD.WHENOPERATEDONFN 107140 . 108411) (MB.FIELD.GETSTATEFN 108413 . 112347) (
MB.FIELD.SETSTATEFN 112349 . 117044) (MB.FIELD.BUTTONEVENTINFN 117046 . 119351) (MB.FIELD.SIZEFN
119353 . 119593) (MB.FIELD.INSURETYPE 119595 . 124213)))))
STOP

BIN
library/tedit/TEDIT-BUTTONS.LCOM
View File

Binary file not shown.

65
library/tedit/TEDIT-LOOKS
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Dec-2024 15:27:12" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;359 160454
(FILECREATED " 5-Jan-2025 23:31:37" {MEDLEY}<library>tedit>TEDIT-LOOKS.;14 160989
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.CHARLOOKS.CHANGE.FONT)
:CHANGES-TO (FNS \TEDIT.CHANGE.PARALOOKS.NEW)
:PREVIOUS-DATE "22-Dec-2024 11:42:48" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;357)
:PREVIOUS-DATE "22-Dec-2024 15:27:12" {MEDLEY}<library>tedit>TEDIT-LOOKS.;13)
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@ -2141,7 +2141,8 @@ CONS pair of default width and LIST of TAB record instances")
(\TEDIT.SHOWSEL NIL T TEXTOBJ)))])
(\TEDIT.CHANGE.PARALOOKS.NEW
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 31-Aug-2024 15:00 by rmk")
[LAMBDA (NEWLOOKS OLDFMTSPEC TEXTOBJ) (* ; "Edited 5-Jan-2025 16:02 by rmk")
(* ; "Edited 31-Aug-2024 15:00 by rmk")
(* ; "Edited 29-Aug-2024 11:13 by rmk")
(* ; "Edited 23-Aug-2024 23:41 by rmk")
(* ; "Edited 11-Aug-2024 21:22 by rmk")
@ -2187,7 +2188,13 @@ CONS pair of default width and LIST of TAB record instances")
(STYLE (FSETPARA NEWFMTSPEC FMTSTYLE VAL))
(CHARSTYLES (FSETPARA NEWFMTSPEC FMTCHARSTYLES VAL))
(COLUMN (FSETPARA NEWFMTSPEC FMTCOLUMN VAL))
(TABS (FSETPARA NEWFMTSPEC FMTTABS VAL))
(TABS [if (LISTP (CAR VAL))
then (FSETPARA NEWFMTSPEC FMTTABS VAL)
else (* ;
 "Could be the old (DEF . TABS) format")
(FSETPARA NEWFMTSPEC FMTTABS (CDR VAL))
(CL:WHEN (CAR VAL)
(FSETPARA NEWFMTSPEC FMTDEFAULTTAB (CAR VAL)))])
(DEFAULTTAB (FSETPARA NEWFMTSPEC FMTDEFAULTTAB VAL))
NIL) finally (RETURN NEWFMTSPEC])
@ -2568,28 +2575,28 @@ CONS pair of default width and LIST of TAB record instances")
(ADDTOVAR LAMA \TEDIT.CHARLOOK.FEATURE)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (22860 24621 (\TEDIT.CHARLOOKS.DEFPRINT 22870 . 24001) (\TEDIT.FMTSPEC.DEFPRINT 24003 .
24619)) (24725 25710 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24735 . 25332) (\TEDIT.CREATE.FACE.MENU 25334 .
25506) (\TEDIT.CREATE.SIZE.MENU 25508 . 25708)) (26600 26789 (\TEDIT.CHARLOOK.FEATUREP 26610 . 26787))
(27091 56841 (\TEDIT.CHARLOOKS.FROM.FONT 27101 . 28911) (\TEDIT.EQCLOOKS 28913 . 31882) (
\TEDIT.SAMECLOOKS 31884 . 36154) (TEDIT.CARETLOOKS 36156 . 37198) (TEDIT.COPY.LOOKS 37200 . 40483) (
\TEDIT.UNPARSE.CHARLOOKS.LIST 40485 . 43198) (\TEDIT.MODIFYLOOKS 43200 . 45194) (TEDIT.NEW.FONT 45196
. 45643) (\TEDIT.CARETLOOKS.VERIFY 45645 . 46482) (\TEDIT.CARETPIECE 46484 . 46789) (
\TEDIT.GET.INSERT.CHARLOOKS 46791 . 49527) (\TEDIT.GET.TERMSA.WIDTHS 49529 . 49945) (
\TEDIT.PARSE.CHARLOOKS.LIST 49947 . 51147) (\TEDIT.CHARLOOK.FEATURE 51149 . 56839)) (56842 71973 (
\TEDIT.TRANSLATE.ASCIICHARS 56852 . 65951) (\TEDIT.CONVERT.TO.FORMATTED 65953 . 71971)) (73163 80398 (
\TEDIT.UNIQUIFY.CHARLOOKS 73173 . 74833) (\TEDIT.UNIQUIFY.PARALOOKS 74835 . 76102) (
\TEDIT.UNIQUIFY.ALL 76104 . 77961) (\TEDIT.FLUSH.UNUSED.LOOKS 77963 . 80396)) (80431 91527 (
TEDIT.LOOKS 80441 . 82830) (TEDIT.GET.LOOKS 82832 . 84861) (TEDIT.SUBLOOKS 84863 . 88891) (
TEDIT.FINDLOOKS 88893 . 91525)) (91528 111971 (\TEDIT.CHANGE.CHARLOOKS 91538 . 99274) (
\TEDIT.CHANGE.CHARLOOKS.NEW 99276 . 103010) (\TEDIT.CHARLOOKS.CHANGE.FONT 103012 . 107289) (
\TEDIT.LOOKS 107291 . 110620) (\TEDIT.FONTCOPY 110622 . 111969)) (112014 141681 (\TEDIT.EQFMTSPEC
112024 . 115781) (TEDIT.GET.PARALOOKS 115783 . 119520) (\TEDIT.PARSE.PARALOOKS.LIST 119522 . 126596) (
TEDIT.PARALOOKS 126598 . 127604) (\TEDIT.CHANGE.PARALOOKS 127606 . 134253) (
\TEDIT.CHANGE.PARALOOKS.NEW 134255 . 137339) (TEDIT.COPY.PARALOOKS 137341 . 140015) (\TEDIT.PARABOUNDS
140017 . 141679)) (141741 149288 (TEDIT.SUBPARALOOKS 141751 . 145535) (SAMEPARALOOKS 145537 . 149286)
) (149327 149905 (\TEDIT.MARK.REVISION 149337 . 149903)) (149942 158994 (\TEDIT.APPLY.STYLES 149952 .
153517) (\TEDIT.APPLY.PARASTYLES 153519 . 155868) (TEDIT.STYLESHEET 155870 . 156937) (
TEDIT.POP.STYLESHEET 156939 . 157607) (TEDIT.PUSH.STYLESHEET 157609 . 158349) (TEDIT.ADD.STYLESHEET
158351 . 158992)))))
(FILEMAP (NIL (22855 24616 (\TEDIT.CHARLOOKS.DEFPRINT 22865 . 23996) (\TEDIT.FMTSPEC.DEFPRINT 23998 .
24614)) (24720 25705 (\TEDIT.CREATE.DEFAULT.FMTSPEC 24730 . 25327) (\TEDIT.CREATE.FACE.MENU 25329 .
25501) (\TEDIT.CREATE.SIZE.MENU 25503 . 25703)) (26595 26784 (\TEDIT.CHARLOOK.FEATUREP 26605 . 26782))
(27086 56836 (\TEDIT.CHARLOOKS.FROM.FONT 27096 . 28906) (\TEDIT.EQCLOOKS 28908 . 31877) (
\TEDIT.SAMECLOOKS 31879 . 36149) (TEDIT.CARETLOOKS 36151 . 37193) (TEDIT.COPY.LOOKS 37195 . 40478) (
\TEDIT.UNPARSE.CHARLOOKS.LIST 40480 . 43193) (\TEDIT.MODIFYLOOKS 43195 . 45189) (TEDIT.NEW.FONT 45191
. 45638) (\TEDIT.CARETLOOKS.VERIFY 45640 . 46477) (\TEDIT.CARETPIECE 46479 . 46784) (
\TEDIT.GET.INSERT.CHARLOOKS 46786 . 49522) (\TEDIT.GET.TERMSA.WIDTHS 49524 . 49940) (
\TEDIT.PARSE.CHARLOOKS.LIST 49942 . 51142) (\TEDIT.CHARLOOK.FEATURE 51144 . 56834)) (56837 71968 (
\TEDIT.TRANSLATE.ASCIICHARS 56847 . 65946) (\TEDIT.CONVERT.TO.FORMATTED 65948 . 71966)) (73158 80393 (
\TEDIT.UNIQUIFY.CHARLOOKS 73168 . 74828) (\TEDIT.UNIQUIFY.PARALOOKS 74830 . 76097) (
\TEDIT.UNIQUIFY.ALL 76099 . 77956) (\TEDIT.FLUSH.UNUSED.LOOKS 77958 . 80391)) (80426 91522 (
TEDIT.LOOKS 80436 . 82825) (TEDIT.GET.LOOKS 82827 . 84856) (TEDIT.SUBLOOKS 84858 . 88886) (
TEDIT.FINDLOOKS 88888 . 91520)) (91523 111966 (\TEDIT.CHANGE.CHARLOOKS 91533 . 99269) (
\TEDIT.CHANGE.CHARLOOKS.NEW 99271 . 103005) (\TEDIT.CHARLOOKS.CHANGE.FONT 103007 . 107284) (
\TEDIT.LOOKS 107286 . 110615) (\TEDIT.FONTCOPY 110617 . 111964)) (112009 142216 (\TEDIT.EQFMTSPEC
112019 . 115776) (TEDIT.GET.PARALOOKS 115778 . 119515) (\TEDIT.PARSE.PARALOOKS.LIST 119517 . 126591) (
TEDIT.PARALOOKS 126593 . 127599) (\TEDIT.CHANGE.PARALOOKS 127601 . 134248) (
\TEDIT.CHANGE.PARALOOKS.NEW 134250 . 137874) (TEDIT.COPY.PARALOOKS 137876 . 140550) (\TEDIT.PARABOUNDS
140552 . 142214)) (142276 149823 (TEDIT.SUBPARALOOKS 142286 . 146070) (SAMEPARALOOKS 146072 . 149821)
) (149862 150440 (\TEDIT.MARK.REVISION 149872 . 150438)) (150477 159529 (\TEDIT.APPLY.STYLES 150487 .
154052) (\TEDIT.APPLY.PARASTYLES 154054 . 156403) (TEDIT.STYLESHEET 156405 . 157472) (
TEDIT.POP.STYLESHEET 157474 . 158142) (TEDIT.PUSH.STYLESHEET 158144 . 158884) (TEDIT.ADD.STYLESHEET
158886 . 159527)))))
STOP

BIN
library/tedit/TEDIT-LOOKS.LCOM
View File

Binary file not shown.

178
library/tedit/TEDIT-MENU
View File

@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Dec-2024 21:29:07" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;426 169660
(FILECREATED "12-Jan-2025 12:21:33" {MEDLEY}<library>tedit>TEDIT-MENU.;22 170476
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.CHANGE.PAGELOOKS)
:CHANGES-TO (FNS MARGINBAR.INIT MB.MARGINBAR.BUTTONEVENTINFN MB.MARGINBAR.SELFN.TABS
\TEDIT.PARAMENU.CREATE)
:PREVIOUS-DATE "22-Dec-2024 00:24:03" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;425)
:PREVIOUS-DATE " 9-Jan-2025 16:40:33" {MEDLEY}<library>tedit>TEDIT-MENU.;20)
(PRETTYCOMPRINT TEDIT-MENUCOMS)
@ -403,13 +404,15 @@
(RETURN OBJ])
(MB.MARGINBAR.BUTTONEVENTINFN
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 7-Dec-2024 21:21 by rmk")
[LAMBDA (OBJ MENUDS SEL RELX RELY MENUTSTREAM) (* ; "Edited 11-Jan-2025 21:28 by rmk")
(* ; "Edited 7-Dec-2024 21:21 by rmk")
(* ; "Edited 25-Aug-2024 09:12 by rmk")
(* ; "Edited 1-Aug-2024 22:56 by rmk")
(* ; "Edited 23-Jul-2024 00:44 by rmk")
(* ; "Edited 18-Jul-2024 17:08 by rmk")
(* ; "Edited 26-Feb-2024 11:44 by rmk")
(* ; "Edited 12-Jun-90 18:59 by mitani")
(TEDIT.PROMPTCLEAR MENUTSTREAM)
(* ;; "Let the user adjust margins and tabs using the mouse. Do the adjustment based on the region of the margin bar that mouse starts out in: left marging, first line, right margin, tabs")
@ -420,8 +423,8 @@
(OL1 L1)
(LN (fetch MARLN of OBJDATUM))
(OLN LN)
(R (fetch MARR of OBJDATUM))
(OR R)
(RMARG (fetch MARR of OBJDATUM))
(OLDRMARG RMARG)
(TABS (fetch MARTABS of OBJDATUM))
(UNIT (fetch MARUNIT of OBJDATUM))
(CLIP (create REGION
@ -429,9 +432,9 @@
BOTTOM _ 0
WIDTH _ (fetch XSIZE of IMAGEBOX)
HEIGHT _ (fetch YSIZE of IMAGEBOX)))
(RIGHTLIM (IDIFFERENCE (fetch (REGION WIDTH) of (DSPCLIPPINGREGION NIL MENUDS))
4)))
(if (INSIDE? (create REGION
(PWIDTH (PANEWIDTH (WFROMDS MENUDS)))
(RIGHTLIM (IDIFFERENCE PWIDTH 4)))
[if (INSIDE? (create REGION
LEFT _ (IDIFFERENCE (MSCALE (ABS L1)
UNIT)
2)
@ -449,7 +452,7 @@
 "Right mouse button UNsets the margin.")
(SETQ L1 (MINUS L1)))
(CL:UNLESS (EQP OL1 L1)
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
(SETQ OL1 L1)))
elseif (INSIDE? (create REGION
LEFT _ (IDIFFERENCE (MSCALE (ABS LN)
@ -469,26 +472,22 @@
 "Right mouse button UNsets the margin.")
(SETQ LN (MINUS LN)))
(CL:UNLESS (EQP OLN LN)
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
(SETQ OLN LN)))
elseif (OR (INSIDE? (create REGION
LEFT _ (IDIFFERENCE (IMIN (MSCALE (ABS R)
LEFT _ (IDIFFERENCE (IMIN (MSCALE (ABS RMARG)
UNIT)
(fetch XSIZE of IMAGEBOX)
(fetch (REGION WIDTH)
of (DSPCLIPPINGREGION NIL MENUDS)
))
PWIDTH)
16)
BOTTOM _ 26
WIDTH _ 16
HEIGHT _ 32)
RELX RELY)
(AND (ZEROP (IABS (FIXR R)))
(AND (ZEROP (IABS (FIXR RMARG)))
(INSIDE? (create REGION
LEFT _ (IDIFFERENCE (IMIN (fetch XSIZE of IMAGEBOX)
(fetch (REGION WIDTH)
of (DSPCLIPPINGREGION NIL
MENUDS)))
PWIDTH)
16)
BOTTOM _ 26
WIDTH _ 16
@ -498,14 +497,14 @@
(while (AND (MOUSESTATE (OR LEFT MIDDLE RIGHT))
(INSIDE? CLIP (LASTMOUSEX MENUTSTREAM)
(LASTMOUSEY MENUTSTREAM)))
do (SETQ R (MAX 0 (MDESCALE (LASTMOUSEX MENUTSTREAM)
UNIT)))
do (SETQ RMARG (MAX 0 (MDESCALE (LASTMOUSEX MENUTSTREAM)
UNIT)))
(CL:WHEN (\TEDIT.MOUSESTATE RIGHT) (* ;
 "Right mouse button UNsets the margin.")
(SETQ R (MINUS R)))
(CL:UNLESS (EQP OR R)
(MARGINBAR MENUTSTREAM L1 LN R TABS UNIT T RIGHTLIM)
(SETQ OR R)))
(SETQ RMARG (MINUS RMARG)))
(CL:UNLESS (EQP OLDRMARG RMARG)
(MARGINBAR MENUTSTREAM L1 LN RMARG TABS UNIT T RIGHTLIM)
(SETQ OLDRMARG RMARG)))
elseif (INSIDE? (create REGION
LEFT _ 0
BOTTOM _ 0
@ -513,34 +512,35 @@
HEIGHT _ 16)
RELX RELY)
then (* ; "We're in the tab ruler region")
(replace MARTABS of OBJDATUM with (MB.MARGINBAR.SELFN.TABS OBJDATUM MENUDS
MENUTSTREAM)))
(if (EQ 'OFF (MB.GET 'TABTYPE MENUTSTREAM 'STATE NIL T))
then (TEDIT.PROMPTPRINT MENUTSTREAM "Please choose one of the tab types" T)
else (replace MARTABS of OBJDATUM with (MB.MARGINBAR.SELFN.TABS OBJDATUM MENUDS
MENUTSTREAM]
(replace MARL1 of OBJDATUM with L1)
(replace MARLN of OBJDATUM with LN)
(replace MARR of OBJDATUM with R)
(replace MARR of OBJDATUM with RMARG)
(TEDIT.BACKTOMAIN MENUTSTREAM))
T])
'DON'T])
(MB.MARGINBAR.SELFN.TABS
[LAMBDA (OBJDATUM SELWINDOW STREAM) (* ; "Edited 24-Aug-2024 21:40 by rmk")
[LAMBDA (OBJDATUM SELWINDOW STREAM) (* ; "Edited 11-Jan-2025 10:47 by rmk")
(* ; "Edited 24-Aug-2024 21:40 by rmk")
(* ; "Edited 2-Aug-2024 08:18 by rmk")
(* ;; "Mouse is down in the tab region of the marginbar. Creates, moves, or deletes a tab, depending on the mouse button. Returns the modified TABS list. UNIT was only partially implemented, tabs are assumed to be in picas and are scaled to points (PTSPERPICA=12).")
(* ;; "Mouse is down in the tab region of the marginbar. Creates, moves, or deletes a tab, depending on the mouse button. Returns the modified TABS list. UNIT was only partially implemented, tabs are assumed to be in piecas and are scaled to points (PTSPERPICA=12).")
(LET* ((TABS (fetch MARTABS of OBJDATUM))
(UNIT (fetch MARUNIT of OBJDATUM))
[SCALEDTABS (CL:WHEN (LISTP (fetch MARTABS of OBJDATUM))
(* ;
[SCALEDTABS (for TAB in (LISTP (fetch MARTABS of OBJDATUM))
collect (MSCALE (fetch TABX of TAB)
(fetch MARUNIT of OBJDATUM]
TAB TABX) (* ;
 "Only scale the tabs if there are any, and they're not neutralized.")
(for TAB in (fetch MARTABS of OBJDATUM)
collect (MSCALE (fetch TABX of TAB)
(fetch MARUNIT of OBJDATUM))))]
TAB TABX)
[if (MOUSESTATE LEFT)
then (* ; "MOVE a tab")
[SETQ TAB (for TABX in SCALEDTABS as TAB in TABS
smallest (ABS (IDIFFERENCE TABX (LASTMOUSEX STREAM]
(AND TAB (MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB))
(CL:WHEN TAB (MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB))
elseif (MOUSESTATE MIDDLE)
then (* ; "ADD/CHANGE a tab")
(CL:WHEN (EQ (fetch MARTABS of OBJDATUM)
@ -551,13 +551,10 @@
(* ;;
 "Make the tab region look non-neutral, too, so that tabs look OK on it. ")
(DSPFILL (create REGION
LEFT _ 2
BOTTOM _ 1
HEIGHT _ 8
WIDTH _ (IDIFFERENCE (fetch (REGION WIDTH)
of (DSPCLIPPINGREGION NIL SELWINDOW))
4))
(DSPFILL (CREATEREGION 2 1 8 (IDIFFERENCE (fetch (REGION WIDTH)
of (DSPCLIPPINGREGION NIL
SELWINDOW))
4))
WHITESHADE
'REPLACE SELWINDOW))
(if (AND [SETQ TAB (for TABX in SCALEDTABS as TAB in TABS
@ -573,10 +570,9 @@
SELWINDOW))
(MB.MARGINBAR.SHOWTAB STREAM TAB UNIT 'PAINT)
(MB.MARGINBAR.TABTRACK STREAM OBJDATUM TAB)
elseif [OR (NOT TAB)
(NOT (EQP (fetch TABX of TAB)
(MDESCALE (LASTMOUSEX STREAM)
UNIT]
elseif [NOT (AND TAB (EQP (fetch TABX of TAB)
(MDESCALE (LASTMOUSEX STREAM)
UNIT]
then (* ; "Really create a new tab")
(SETQ TAB (create TAB
TABX _ (MDESCALE (LASTMOUSEX STREAM)
@ -884,19 +880,22 @@
(SETQ OLDX X])
(MARGINBAR.INIT
[LAMBDA NIL (* ; "Edited 25-Aug-2024 09:11 by rmk")
[LAMBDA NIL (* ; "Edited 12-Jan-2025 12:05 by rmk")
(* ; "Edited 7-Jan-2025 22:48 by rmk")
(* ; "Edited 25-Aug-2024 09:11 by rmk")
(* ; "Edited 17-Jul-2024 21:58 by rmk")
(* jds " 9-Feb-86 15:18")
(DECLARE (GLOBALVARS MARGINBARIMAGEFNS))
(SETQ MARGINBARIMAGEFNS (IMAGEFNSCREATE (FUNCTION MB.MARGINBAR.DISPLAYFN)
(FUNCTION MB.MARGINBAR.SIZEFN)
(FUNCTION MB.MARGINBAR.PUTFN)
(FUNCTION MB.MARGINBAR.GETFN)
(FUNCTION MB.COPYFN)
(FUNCTION MB.MARGINBAR.BUTTONEVENTINFN)
(FUNCTION MB.DON'T)
(FUNCTION MB.DON'T)
'NILL
'NILL
'NILL
'NILL
(FUNCTION MB.DON'T)
'NILL
'NILL
'NILL
@ -1472,7 +1471,8 @@
(DEFINEQ
(\TEDIT.PARAMENU.CREATE
[LAMBDA NIL (* ; "Edited 8-Nov-2024 08:35 by rmk")
[LAMBDA NIL (* ; "Edited 9-Jan-2025 16:38 by rmk")
(* ; "Edited 8-Nov-2024 08:35 by rmk")
(* ; "Edited 20-Oct-2024 23:46 by rmk")
(* ; "Edited 6-Oct-2024 15:35 by rmk")
(* ; "Edited 29-Sep-2024 12:53 by rmk")
@ -1641,7 +1641,8 @@
'PARALOOKS])
(\TEDIT.PARAMENU.FILLIN
[LAMBDA (MENUSTREAM FMTSPEC) (* ; "Edited 21-Oct-2024 00:33 by rmk")
[LAMBDA (MENUSTREAM FMTSPEC) (* ; "Edited 9-Jan-2025 12:15 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
(* ; "Edited 29-Sep-2024 12:53 by rmk")
(* ; "Edited 31-Aug-2024 11:29 by rmk")
(* ; "Edited 25-Aug-2024 23:48 by rmk")
@ -1653,8 +1654,7 @@
(* ;; "For the paragraph menu SHOW command, fills in the with values drawn from the FMTSPEC of the main documents selectiont. The strategy is to iterate through the image objects in the MENUTEXTOBJ and figure out from their property what aspect of FMTSPEC they depict.")
(for PC OBJ VAL PROP SETSTATEFN inpieces (\TEDIT.FIRSTPIECE (fetch (TEXTSTREAM TEXTOBJ)
of MENUSTREAM))
(for PC OBJ VAL PROP SETSTATEFN inpieces (\TEDIT.FIRSTPIECE (GETTSTR MENUSTREAM TEXTOBJ))
when [SETQ SETSTATEFN (AND (SETQ OBJ (POBJ PC))
(SETQ PROP (IMAGEOBJPROP OBJ 'IDENTIFIER))
(IMAGEOBJPROP OBJ 'SETSTATEFN]
@ -1759,7 +1759,8 @@
,@(\TEDIT.CHARMENU.SPEC TSTREAM])
(\TEDIT.CHARMENU.SPEC
[LAMBDA (TSTREAM) (* ; "Edited 22-Dec-2024 00:22 by rmk")
[LAMBDA (TSTREAM) (* ; "Edited 9-Jan-2025 16:34 by rmk")
(* ; "Edited 22-Dec-2024 00:22 by rmk")
(* ; "Edited 20-Dec-2024 12:27 by rmk")
(* ; "Edited 17-Dec-2024 14:32 by rmk")
(* ; "Edited 8-Nov-2024 08:35 by rmk")
@ -1820,6 +1821,7 @@
(MAXITEMS/LINE 7))
EOL
(TOGGLE (LABEL Other)
(IDENTIFIER OTHER)
(IGNORE T)
(STATECHANGEFN \TEDIT.OTHER.STATECHANGEFN)
(SELECTFN \TEDIT.OTHER.SELECTFN
@ -1831,8 +1833,7 @@
(FIELDTYPE SYMBOL)
(EMPTYVALUE NIL))
EOL
(FIELD (IDENTIFIER SIZE)
(PRELABEL "Size:")
(FIELD (PRELABEL "Size:")
(FIELDTYPE NUMBER))
3
(NWAY (IDENTIFIER OFFSETTYPE)
@ -1886,7 +1887,8 @@
NEWLOOKS])
(\TEDIT.CHARMENU.FILLIN
[LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 20-Dec-2024 12:18 by rmk")
[LAMBDA (STARTINGPC CHARLOOKS MENUSTREAM) (* ; "Edited 9-Jan-2025 12:14 by rmk")
(* ; "Edited 20-Dec-2024 12:18 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
(* ; "Edited 20-Oct-2024 00:03 by rmk")
(* ; "Edited 29-Sep-2024 12:53 by rmk")
@ -1933,7 +1935,8 @@
NIL)
(DISTANCE (CL:UNLESS (ZEROP (FGETCLOOKS CHARLOOKS CLOFFSET))
(ABS (FGETCLOOKS CHARLOOKS CLOFFSET))))
(\TEDIT.THELP (IMAGEOBJPROP OBJ 'IDENTIFIER]
(\TEDIT.THELP "Unrecognized button identifier" (IMAGEOBJPROP OBJ
'IDENTIFIER]
(* ;; "Eventually, replace SHOULDNT with SETQ SETSTATEFN NIL")
@ -2116,7 +2119,8 @@
(DEFINEQ
(\TEDIT.PAGEMENU.CREATE
[LAMBDA (TSTREAM) (* ; "Edited 17-Dec-2024 00:08 by rmk")
[LAMBDA (TSTREAM) (* ; "Edited 9-Jan-2025 16:39 by rmk")
(* ; "Edited 17-Dec-2024 00:08 by rmk")
(* ; "Edited 20-Oct-2024 23:47 by rmk")
(* ; "Edited 6-Oct-2024 15:35 by rmk")
(* ; "Edited 29-Sep-2024 12:53 by rmk")
@ -2658,28 +2662,28 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5359 51317 (DRAWMARGINSCALE 5369 . 8828) (MARGINBAR 8830 . 15955) (MARGINBAR.CREATE
15957 . 19376) (MB.MARGINBAR.BUTTONEVENTINFN 19378 . 27046) (MB.MARGINBAR.SELFN.TABS 27048 . 32411) (
MB.MARGINBAR.SELFN.TABS.KIND 32413 . 33348) (MARGINBAR.GETSTATEFN 33350 . 37228) (MARGINBAR.SETSTATEFN
37230 . 37440) (MARGINBAR.NEUTRALIZE 37442 . 37855) (MARGINBAR.LOOKS 37857 . 40963) (
MB.MARGINBAR.SIZEFN 40965 . 41568) (MB.MARGINBAR.DISPLAYFN 41570 . 44631) (MDESCALE 44633 . 45173) (
MSCALE 45175 . 45505) (MB.MARGINBAR.SHOWTAB 45507 . 47830) (MB.MARGINBAR.TABTRACK 47832 . 49217) (
MARGINBAR.INIT 49219 . 50289) (\TEDIT.FMTSPECTOMARBAR 50291 . 51315)) (52211 58428 (\TEDIT.MENU.START
52221 . 57852) (\TEDIT.MENU.BUTTONEVENTFN 57854 . 58426)) (58747 66451 (\TEDIT.MENU.CREATE 58757 .
60568) (\TEDIT.MENU.PARSE 60570 . 64259) (\TEDIT.MENU.NEUTRALIZE 64261 . 66114) (
\TEDITMENU.RECORD.UNFORMATTED 66116 . 66449)) (66516 87885 (\TEDIT.DEFAULTMENU.CREATE 66526 . 73541) (
\TEDIT.EXPANDED.MENU 73543 . 74834) (\TEDIT.DEFAULTMENU.FN 74836 . 77980) (\TEDIT.DEFAULTMENU.ACTIONFN
77982 . 87326) (TEDIT.MENUSTREAM 87328 . 87883)) (87947 105274 (\TEDIT.PARAMENU.CREATE 87957 . 96359)
(\TEDIT.APPLY.PARALOOKS 96361 . 97249) (\TEDIT.SHOW.PARALOOKS 97251 . 100034) (
\TEDIT.EXPANDEDPARA.MENU 100036 . 100810) (\TEDIT.PARAMENU.FILLIN 100812 . 105272)) (105336 132225 (
\TEDIT.CHARMENU.CREATE 105346 . 108192) (\TEDIT.CHARMENU.SPEC 108194 . 114349) (\TEDIT.CHARMENU.PARSE
114351 . 117519) (\TEDIT.CHARMENU.FILLIN 117521 . 121697) (\TEDIT.SHOW.CHARLOOKS 121699 . 124806) (
\TEDIT.EXPANDEDCHAR.MENU 124808 . 125732) (\TEDIT.APPLY.CHARLOOKS 125734 . 126731) (
\TEDIT.OFFSETTYPE.STATEFN 126733 . 128696) (\TEDIT.OTHER.STATECHANGEFN 128698 . 130098) (
\TEDIT.OTHER.SELECTFN 130100 . 132223)) (132287 163414 (\TEDIT.PAGEMENU.CREATE 132297 . 144343) (
\TEDIT.SHOW.PAGELOOKS 144345 . 146140) (\TEDIT.PAGEMENU.FILLIN 146142 . 147692) (
\TEDIT.PAGEREGION.UNPARSE 147694 . 156884) (\TEDIT.APPLY.PAGELOOKS 156886 . 158649) (
\TEDIT.CHANGE.PAGELOOKS 158651 . 162570) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 162572 . 163412)) (163415
169218 (\TEDIT.PAGEMENU.CREATE.HEADINGS 163425 . 166237) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 166239
. 167664) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 167666 . 169216)))))
(FILEMAP (NIL (5446 51561 (DRAWMARGINSCALE 5456 . 8915) (MARGINBAR 8917 . 16042) (MARGINBAR.CREATE
16044 . 19463) (MB.MARGINBAR.BUTTONEVENTINFN 19465 . 27104) (MB.MARGINBAR.SELFN.TABS 27106 . 32346) (
MB.MARGINBAR.SELFN.TABS.KIND 32348 . 33283) (MARGINBAR.GETSTATEFN 33285 . 37163) (MARGINBAR.SETSTATEFN
37165 . 37375) (MARGINBAR.NEUTRALIZE 37377 . 37790) (MARGINBAR.LOOKS 37792 . 40898) (
MB.MARGINBAR.SIZEFN 40900 . 41503) (MB.MARGINBAR.DISPLAYFN 41505 . 44566) (MDESCALE 44568 . 45108) (
MSCALE 45110 . 45440) (MB.MARGINBAR.SHOWTAB 45442 . 47765) (MB.MARGINBAR.TABTRACK 47767 . 49152) (
MARGINBAR.INIT 49154 . 50533) (\TEDIT.FMTSPECTOMARBAR 50535 . 51559)) (52455 58672 (\TEDIT.MENU.START
52465 . 58096) (\TEDIT.MENU.BUTTONEVENTFN 58098 . 58670)) (58991 66695 (\TEDIT.MENU.CREATE 59001 .
60812) (\TEDIT.MENU.PARSE 60814 . 64503) (\TEDIT.MENU.NEUTRALIZE 64505 . 66358) (
\TEDITMENU.RECORD.UNFORMATTED 66360 . 66693)) (66760 88129 (\TEDIT.DEFAULTMENU.CREATE 66770 . 73785) (
\TEDIT.EXPANDED.MENU 73787 . 75078) (\TEDIT.DEFAULTMENU.FN 75080 . 78224) (\TEDIT.DEFAULTMENU.ACTIONFN
78226 . 87570) (TEDIT.MENUSTREAM 87572 . 88127)) (88191 105647 (\TEDIT.PARAMENU.CREATE 88201 . 96712)
(\TEDIT.APPLY.PARALOOKS 96714 . 97602) (\TEDIT.SHOW.PARALOOKS 97604 . 100387) (
\TEDIT.EXPANDEDPARA.MENU 100389 . 101163) (\TEDIT.PARAMENU.FILLIN 101165 . 105645)) (105709 132932 (
\TEDIT.CHARMENU.CREATE 105719 . 108565) (\TEDIT.CHARMENU.SPEC 108567 . 114832) (\TEDIT.CHARMENU.PARSE
114834 . 118002) (\TEDIT.CHARMENU.FILLIN 118004 . 122404) (\TEDIT.SHOW.CHARLOOKS 122406 . 125513) (
\TEDIT.EXPANDEDCHAR.MENU 125515 . 126439) (\TEDIT.APPLY.CHARLOOKS 126441 . 127438) (
\TEDIT.OFFSETTYPE.STATEFN 127440 . 129403) (\TEDIT.OTHER.STATECHANGEFN 129405 . 130805) (
\TEDIT.OTHER.SELECTFN 130807 . 132930)) (132994 164230 (\TEDIT.PAGEMENU.CREATE 133004 . 145159) (
\TEDIT.SHOW.PAGELOOKS 145161 . 146956) (\TEDIT.PAGEMENU.FILLIN 146958 . 148508) (
\TEDIT.PAGEREGION.UNPARSE 148510 . 157700) (\TEDIT.APPLY.PAGELOOKS 157702 . 159465) (
\TEDIT.CHANGE.PAGELOOKS 159467 . 163386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 163388 . 164228)) (164231
170034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 164241 . 167053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 167055
. 168480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 168482 . 170032)))))
STOP

BIN
library/tedit/TEDIT-MENU.LCOM
View File

Binary file not shown.

73
library/tedit/TEDIT-SCREEN
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Dec-2024 22:16:22" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;845 185725
(FILECREATED " 6-Jan-2025 23:41:58" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;847 185662
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.FORMATLINE)
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES \TEDIT.VALID.LINES)
:PREVIOUS-DATE "19-Dec-2024 11:51:04" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;840)
:PREVIOUS-DATE "24-Dec-2024 22:16:22" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;845)
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
@ -2322,7 +2322,8 @@
1)])
(\TEDIT.UPDATE.LINES
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 7-Dec-2024 21:52 by rmk")
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 6-Jan-2025 23:37 by rmk")
(* ; "Edited 7-Dec-2024 21:52 by rmk")
(* ; "Edited 29-Nov-2024 22:56 by rmk")
(* ; "Edited 26-Nov-2024 03:35 by rmk")
(* ; "Edited 22-Nov-2024 17:57 by rmk")
@ -2353,10 +2354,6 @@
else (CL:UNLESS FIRSTCHANGEDCHNO (SETQ FIRSTCHANGEDCHNO 1))
(CL:UNLESS NCHARSCHANGED
(SETQ NCHARSCHANGED (FGETTOBJ TEXTOBJ TEXTLEN)))]
(* ;;
 "If DONTDISPLAY, we ensure lines that are properly formatted and positioned but not displayed.")
(\TEDIT.SHOWSEL NIL NIL TEXTOBJ)
(for PANE VALIDS LASTVALID NEXTVALID LASTGAPLINE UPPERBITMAPLINES BITMAPLINES inpanes TEXTOBJ
when (SETQ VALIDS (\TEDIT.VALID.LINES PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON
@ -2535,6 +2532,7 @@
(\TEDIT.VALID.LINES
[LAMBDA (PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON TSTREAM)
(* ; "Edited 6-Jan-2025 15:19 by rmk")
(* ; "Edited 22-Nov-2024 16:54 by rmk")
(* ; "Edited 20-Nov-2024 12:37 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
@ -2602,31 +2600,28 @@
(CL:UNLESS SUFFIXLINE
(\TEDIT.THELP "NO SUFFIXLINE")
(RETURN NIL))
(SETQ FIRSTVISIBLECHNO (FGETLD PREFIXLINE LCHARLIM))
(SETQ LASTVISIBLECHNO (SUB1 (FGETLD SUFFIXLINE LCHAR1)))
(CL:WHEN (IGREATERP FIRSTCHANGEDCHNO LASTVISIBLECHNO)
(* ;
 "Change after previously visible lines")
(CL:UNLESS (ILEQ LASTCHANGEDCHNO (TEXTLEN TEXTOBJ))
(RETURN NIL)) (* ;
 "Unless adding past the end, nothing to do ")
(* ;
 "Change is after PANE, nothing to do")
(RETURN NIL))
(* ;; "Adding at the end of the document: insert a new line")
(SETQ FIRSTCHANGEDLINE (\TEDIT.FORMATLINE TEXTOBJ FIRSTCHANGEDCHNO))
(LINKLD (FGETLD SUFFIXLINE PREVLINE)
FIRSTCHANGEDLINE)
(LINKLD FIRSTCHANGEDLINE SUFFIXLINE)) (* ;
 "Change is after PANE, nothing to do")
(* ;;; "Change is visible in PANE, there's gotta be a FIRSTCHANGEDLINE")
(\TEDIT.INSERTLINE (\TEDIT.FORMATLINE TEXTOBJ FIRSTCHANGEDCHNO)
SUFFIXLINE))
(SETQ FIRSTVISIBLECHNO (FGETLD PREFIXLINE LCHARLIM))
(SETQ FIRSTCHANGEDLINE (find L inlines (FGETLD PREFIXLINE NEXTLINE)
suchthat (FWITHINLINEP FIRSTCHANGEDCHNO L)))
suchthat (FWITHINLINEP FIRSTVISIBLECHNO L)))
(CL:UNLESS FIRSTCHANGEDLINE (* ; "Changes are not visible")
(RETURN NIL))
(* ;; "Updates may be required in lines before the FIRSTCHANGEDLINE, if words jump around.")
(* ;; "Change is visible in PANE, look for the last valid line (in PANE).")
(SETQ LASTVALIDLINE (\TEDIT.LASTVALIDLINE FIRSTCHANGEDLINE FIRSTCHANGEDCHNO PANE TSTREAM))
(SETQ LASTVALIDLINE (\TEDIT.LASTVALIDLINE FIRSTCHANGEDLINE FIRSTVISIBLECHNO PANE TSTREAM))
(* ;; "Now for the after-change lines")
@ -2854,21 +2849,21 @@
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (27979 30195 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 27989 . 30193)) (37600 118360 (
\TEDIT.FORMATLINE 37610 . 72350) (\TEDIT.FORMATLINE.SETUP.PARA 72352 . 77175) (
\TEDIT.FORMATLINE.HORIZONTAL 77177 . 81573) (\TEDIT.FORMATLINE.VERTICAL 81575 . 83792) (
\TEDIT.FORMATLINE.JUSTIFY 83794 . 89815) (\TEDIT.FORMATLINE.TABS 89817 . 97617) (\TEDIT.SCALE.TABS
97619 . 98410) (\TEDIT.FORMATLINE.PURGE.SPACES 98412 . 99839) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
99841 . 100742) (\TEDIT.FORMATLINE.EMPTY 100744 . 105430) (\TEDIT.FORMATLINE.UPDATELOOKS 105432 .
111554) (\TEDIT.FORMATLINE.LASTLEGAL 111556 . 115096) (\TEDIT.LINES.ABOVE 115098 . 118358)) (118477
120392 (\TLVALIDATE 118487 . 120390)) (120586 141750 (\TEDIT.DISPLAYLINE 120596 . 134043) (
\TEDIT.DISPLAYLINE.TABS 134045 . 136668) (\TEDIT.LINECACHE 136670 . 137398) (\TEDIT.CREATE.LINECACHE
137400 . 138236) (\TEDIT.BLTCHAR 138238 . 140865) (\TEDIT.DIACRITIC.SHIFT 140867 . 141748)) (142365
185702 (\TEDIT.BACKFORMAT 142375 . 144929) (\TEDIT.PREVIOUS.LINEBREAK 144931 . 147654) (
\TEDIT.UPDATE.LINES 147656 . 152101) (\TEDIT.PANE.CREATELINES 152103 . 155095) (
\TEDIT.SUFFIXLINE.CREATE 155097 . 156472) (\TEDIT.LINES.BELOW 156474 . 160836) (\TEDIT.MEASURED.LINES
160838 . 162610) (\TEDIT.VALID.LINES 162612 . 171255) (\TEDIT.LASTVALIDLINE 171257 . 176079) (
\TEDIT.NEXTVALIDLINE 176081 . 177383) (\TEDIT.CLEARPANE.BELOW.LINE 177385 . 179491) (\TEDIT.INSERTLINE
179493 . 180879) (\TEDIT.LINE.BOTTOM 180881 . 183877) (\TEDIT.SHOW.AT.BOTTOMP 183879 . 184989) (
\TEDIT.SHOW.AT.TOPP 184991 . 185700)))))
(FILEMAP (NIL (28000 30216 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28010 . 30214)) (37621 118381 (
\TEDIT.FORMATLINE 37631 . 72371) (\TEDIT.FORMATLINE.SETUP.PARA 72373 . 77196) (
\TEDIT.FORMATLINE.HORIZONTAL 77198 . 81594) (\TEDIT.FORMATLINE.VERTICAL 81596 . 83813) (
\TEDIT.FORMATLINE.JUSTIFY 83815 . 89836) (\TEDIT.FORMATLINE.TABS 89838 . 97638) (\TEDIT.SCALE.TABS
97640 . 98431) (\TEDIT.FORMATLINE.PURGE.SPACES 98433 . 99860) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
99862 . 100763) (\TEDIT.FORMATLINE.EMPTY 100765 . 105451) (\TEDIT.FORMATLINE.UPDATELOOKS 105453 .
111575) (\TEDIT.FORMATLINE.LASTLEGAL 111577 . 115117) (\TEDIT.LINES.ABOVE 115119 . 118379)) (118498
120413 (\TLVALIDATE 118508 . 120411)) (120607 141771 (\TEDIT.DISPLAYLINE 120617 . 134064) (
\TEDIT.DISPLAYLINE.TABS 134066 . 136689) (\TEDIT.LINECACHE 136691 . 137419) (\TEDIT.CREATE.LINECACHE
137421 . 138257) (\TEDIT.BLTCHAR 138259 . 140886) (\TEDIT.DIACRITIC.SHIFT 140888 . 141769)) (142386
185639 (\TEDIT.BACKFORMAT 142396 . 144950) (\TEDIT.PREVIOUS.LINEBREAK 144952 . 147675) (
\TEDIT.UPDATE.LINES 147677 . 152103) (\TEDIT.PANE.CREATELINES 152105 . 155097) (
\TEDIT.SUFFIXLINE.CREATE 155099 . 156474) (\TEDIT.LINES.BELOW 156476 . 160838) (\TEDIT.MEASURED.LINES
160840 . 162612) (\TEDIT.VALID.LINES 162614 . 171192) (\TEDIT.LASTVALIDLINE 171194 . 176016) (
\TEDIT.NEXTVALIDLINE 176018 . 177320) (\TEDIT.CLEARPANE.BELOW.LINE 177322 . 179428) (\TEDIT.INSERTLINE
179430 . 180816) (\TEDIT.LINE.BOTTOM 180818 . 183814) (\TEDIT.SHOW.AT.BOTTOMP 183816 . 184926) (
\TEDIT.SHOW.AT.TOPP 184928 . 185637)))))
STOP

BIN
library/tedit/TEDIT-SCREEN.LCOM
View File

Binary file not shown.

74
library/tedit/TEDIT-STREAM
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Dec-2024 00:24:17" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;835 172312
(FILECREATED "12-Jan-2025 12:16:57" {MEDLEY}<library>tedit>TEDIT-STREAM.;8 172473
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.TEXTPROP)
:CHANGES-TO (FNS COPYTEXTSTREAM)
:PREVIOUS-DATE "20-Dec-2024 12:19:41" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;834)
:PREVIOUS-DATE "22-Dec-2024 00:24:17" {MEDLEY}<library>tedit>TEDIT-STREAM.;7)
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
@ -1345,7 +1345,8 @@
TSTREAM))])
(COPYTEXTSTREAM
[LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 17-Mar-2024 12:41 by rmk")
[LAMBDA (ORIGINAL CROSSCOPY) (* ; "Edited 12-Jan-2025 12:16 by rmk")
(* ; "Edited 17-Mar-2024 12:41 by rmk")
(* ; "Edited 16-Mar-2024 10:03 by rmk")
(* ; "Edited 16-Jan-2024 12:27 by rmk")
(* ; "Edited 22-Sep-2023 20:48 by rmk")
@ -1365,10 +1366,13 @@
 "Create an empty textstream into which the pieces can be hammered")
[SETQ NEWSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL (COPY (FGETTOBJ TEXTOBJ EDITPROPS]
(SETQ NEWTEXTOBJ (TEXTOBJ NEWSTREAM))
(for PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) do (\TEDIT.INSERTPIECE (\TEDIT.COPYPIECE
PC TEXTOBJ NEWTEXTOBJ
NIL 'COPY)
NIL NEWTEXTOBJ))
(for PC NEWPC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ)
do (SETQ NEWPC (\TEDIT.COPYPIECE PC TEXTOBJ NEWTEXTOBJ NIL 'COPY))
(CL:UNLESS NEWPC
(CL:IF (EQ OBJECT.PTYPE (PTYPE PC))
(ERROR "Image object does not allow copying" (POBJ PC))
(ERROR "Piece cannot be copied " PC)))
(\TEDIT.INSERTPIECE NEWPC NIL NEWTEXTOBJ))
(FSETTOBJ NEWTEXTOBJ FORMATTEDP (FGETTOBJ TEXTOBJ FORMATTEDP))
(FSETTOBJ NEWTEXTOBJ DEFAULTCHARLOOKS (FGETTOBJ TEXTOBJ DEFAULTCHARLOOKS))
(FSETTOBJ NEWTEXTOBJ FMTSPEC (FGETTOBJ TEXTOBJ FMTSPEC))
@ -2839,31 +2843,31 @@
(ADDTOVAR LAMA TEXTPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (36657 67258 (\TEDIT.TEXTBIN 36667 . 47417) (\TEDIT.TEXTPEEKBIN 47419 . 52969) (
\TEDIT.TEXTBACKFILEPTR 52971 . 58644) (\TEDIT.TEXTBOUT 58646 . 63048) (\TEDIT.INSTALL.FILEBUFFER 63050
. 67256)) (68156 72204 (\TEDIT.TEXTOUTCHARFN 68166 . 69722) (\TEDIT.TEXTINCCODEFN 69724 . 70463) (
\TEDIT.TEXTBACKCCODEFN 70465 . 71057) (\TEDIT.TEXTFORMATBYTESTREAM 71059 . 71762) (
\TEDIT.TEXTFORMATBYTESTRING 71764 . 72202)) (72251 82942 (OPENTEXTSTREAM 72261 . 78678) (
COPYTEXTSTREAM 78680 . 82165) (TEDIT.STREAMCHANGEDP 82167 . 82469) (TXTFILE 82471 . 82940)) (82943
112098 (\TEDIT.REOPENTEXTSTREAM 82953 . 84305) (\TEDIT.OPENTEXTSTREAM.PIECES 84307 . 88737) (
\TEDIT.OPENTEXTSTREAM.PROPS 88739 . 89841) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 89843 . 94778) (
\TEDIT.OPENTEXTSTREAM.WINDOW 94780 . 97461) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 97463 . 99990) (
\TEDIT.OPENTEXTFILE 99992 . 101705) (\TEDIT.CREATE.TEXTSTREAM 101707 . 102641) (\TEDIT.REOPEN.STREAM
102643 . 104979) (\TEDIT.TEXTINIT 104981 . 112096)) (112136 113324 (\TEDIT.TTYBOUT 112146 . 113322)) (
113442 131819 (\TEDIT.TEXTCLOSEF 113452 . 114776) (\TEDIT.TEXTDSPFONT 114778 . 115748) (
\TEDIT.TEXTEOFP 115750 . 117505) (\TEDIT.TEXTGETEOFPTR 117507 . 117830) (\TEDIT.TEXTSETEOFPTR 117832
. 118922) (\TEDIT.TEXTGETFILEPTR 118924 . 121646) (\TEDIT.TEXTSETFILEINFO 121648 . 122156) (
\TEDIT.TEXTOPENF 122158 . 123089) (\TEDIT.TEXTSETEOF 123091 . 123707) (\TEDIT.TEXTSETFILEPTR 123709 .
125750) (\TEDIT.TEXTDSPXPOSITION 125752 . 126769) (\TEDIT.TEXTDSPYPOSITION 126771 . 127512) (
\TEDIT.TEXTLEFTMARGIN 127514 . 127891) (\TEDIT.TEXTRIGHTMARGIN 127893 . 130968) (
\TEDIT.TEXTDSPCHARWIDTH 130970 . 131274) (\TEDIT.TEXTDSPSTRINGWIDTH 131276 . 131582) (
\TEDIT.TEXTDSPLINEFEED 131584 . 131817)) (132866 153517 (\TEDIT.DELETE.SELPIECES 132876 . 136303) (
\TEDIT.INSERTCH 136305 . 144099) (\TEDIT.INSERTCH.HISTORY 144101 . 147565) (\TEDIT.INSERTEOL 147567 .
149392) (\TEDIT.INSERTCH.INSERTION 149394 . 152231) (\TEDIT.INSERTCH.EXTEND 152233 . 153515)) (153518
155022 (\TEDIT.NEXTCHANGEABLE.CHNO 153528 . 154243) (\TEDIT.LASTCHANGEABLE.CHNO 154245 . 155020)) (
155023 156727 (\SETUPGETCH 155033 . 156725)) (156785 161243 (\TEDIT.INSTALL.PIECE 156795 . 161241)) (
161281 169493 (TEXTPROP 161291 . 161638) (GETTEXTPROP 161640 . 161884) (PUTTEXTPROP 161886 . 162143) (
GETTEXTPROPS 162145 . 162589) (PUTTEXTPROPS 162591 . 163495) (\TEDIT.TEXTPROP 163497 . 169491)) (
169494 171564 (\TEDIT.TEXTOBJ.PROPNAMES 169504 . 170456) (\TEDIT.TEXTOBJ.PROPFETCHFN 170458 . 170974)
(\TEDIT.TEXTOBJ.PROPSTOREFN 170976 . 171562)))))
(FILEMAP (NIL (36650 67251 (\TEDIT.TEXTBIN 36660 . 47410) (\TEDIT.TEXTPEEKBIN 47412 . 52962) (
\TEDIT.TEXTBACKFILEPTR 52964 . 58637) (\TEDIT.TEXTBOUT 58639 . 63041) (\TEDIT.INSTALL.FILEBUFFER 63043
. 67249)) (68149 72197 (\TEDIT.TEXTOUTCHARFN 68159 . 69715) (\TEDIT.TEXTINCCODEFN 69717 . 70456) (
\TEDIT.TEXTBACKCCODEFN 70458 . 71050) (\TEDIT.TEXTFORMATBYTESTREAM 71052 . 71755) (
\TEDIT.TEXTFORMATBYTESTRING 71757 . 72195)) (72244 83103 (OPENTEXTSTREAM 72254 . 78671) (
COPYTEXTSTREAM 78673 . 82326) (TEDIT.STREAMCHANGEDP 82328 . 82630) (TXTFILE 82632 . 83101)) (83104
112259 (\TEDIT.REOPENTEXTSTREAM 83114 . 84466) (\TEDIT.OPENTEXTSTREAM.PIECES 84468 . 88898) (
\TEDIT.OPENTEXTSTREAM.PROPS 88900 . 90002) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90004 . 94939) (
\TEDIT.OPENTEXTSTREAM.WINDOW 94941 . 97622) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 97624 . 100151) (
\TEDIT.OPENTEXTFILE 100153 . 101866) (\TEDIT.CREATE.TEXTSTREAM 101868 . 102802) (\TEDIT.REOPEN.STREAM
102804 . 105140) (\TEDIT.TEXTINIT 105142 . 112257)) (112297 113485 (\TEDIT.TTYBOUT 112307 . 113483)) (
113603 131980 (\TEDIT.TEXTCLOSEF 113613 . 114937) (\TEDIT.TEXTDSPFONT 114939 . 115909) (
\TEDIT.TEXTEOFP 115911 . 117666) (\TEDIT.TEXTGETEOFPTR 117668 . 117991) (\TEDIT.TEXTSETEOFPTR 117993
. 119083) (\TEDIT.TEXTGETFILEPTR 119085 . 121807) (\TEDIT.TEXTSETFILEINFO 121809 . 122317) (
\TEDIT.TEXTOPENF 122319 . 123250) (\TEDIT.TEXTSETEOF 123252 . 123868) (\TEDIT.TEXTSETFILEPTR 123870 .
125911) (\TEDIT.TEXTDSPXPOSITION 125913 . 126930) (\TEDIT.TEXTDSPYPOSITION 126932 . 127673) (
\TEDIT.TEXTLEFTMARGIN 127675 . 128052) (\TEDIT.TEXTRIGHTMARGIN 128054 . 131129) (
\TEDIT.TEXTDSPCHARWIDTH 131131 . 131435) (\TEDIT.TEXTDSPSTRINGWIDTH 131437 . 131743) (
\TEDIT.TEXTDSPLINEFEED 131745 . 131978)) (133027 153678 (\TEDIT.DELETE.SELPIECES 133037 . 136464) (
\TEDIT.INSERTCH 136466 . 144260) (\TEDIT.INSERTCH.HISTORY 144262 . 147726) (\TEDIT.INSERTEOL 147728 .
149553) (\TEDIT.INSERTCH.INSERTION 149555 . 152392) (\TEDIT.INSERTCH.EXTEND 152394 . 153676)) (153679
155183 (\TEDIT.NEXTCHANGEABLE.CHNO 153689 . 154404) (\TEDIT.LASTCHANGEABLE.CHNO 154406 . 155181)) (
155184 156888 (\SETUPGETCH 155194 . 156886)) (156946 161404 (\TEDIT.INSTALL.PIECE 156956 . 161402)) (
161442 169654 (TEXTPROP 161452 . 161799) (GETTEXTPROP 161801 . 162045) (PUTTEXTPROP 162047 . 162304) (
GETTEXTPROPS 162306 . 162750) (PUTTEXTPROPS 162752 . 163656) (\TEDIT.TEXTPROP 163658 . 169652)) (
169655 171725 (\TEDIT.TEXTOBJ.PROPNAMES 169665 . 170617) (\TEDIT.TEXTOBJ.PROPFETCHFN 170619 . 171135)
(\TEDIT.TEXTOBJ.PROPSTOREFN 171137 . 171723)))))
STOP

BIN
library/tedit/TEDIT-STREAM.LCOM
View File

Binary file not shown.

128
library/tedit/TEDIT-WINDOW
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Dec-2024 23:43:52" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;739 230830
(FILECREATED " 6-Jan-2025 23:41:44" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;742 231603
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.SHIFTLINES)
:PREVIOUS-DATE "13-Dec-2024 09:00:10" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;738)
:PREVIOUS-DATE "29-Dec-2024 20:07:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;741)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@ -18,8 +18,8 @@
(MACROS PANEPROPS PANEPREFIX PANESUFFIX PANETOPLINE
PANECARET PANESTREAM PANETOBJ PANEBOTTOMLINE
\TEDIT.PREFIX.LCHARLIM)
(MACROS PANETOP PANEWIDTH PANELEFT PANEBOTTOM
PANEHEIGHT PANEREGION)
(MACROS PANETOP PANEWIDTH PANELEFT PANERIGHT
PANEBOTTOM PANEHEIGHT PANEREGION)
(I.S.OPRS inpanes backpanes)
(MACROS ALLBUTTONSUP)))
(INITRECORDS TEDITCARET PANEPROPS)
@ -263,6 +263,9 @@
(PUTPROPS PANELEFT MACRO [(PANE PREG)
(fetch (REGION LEFT) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
(PUTPROPS PANERIGHT MACRO [(PANE PREG)
(fetch (REGION RIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
(PUTPROPS PANEBOTTOM MACRO [(PANE PREG)
(fetch (REGION BOTTOM) of (OR PREG (DSPCLIPPINGREGION NIL PANE])
@ -1946,7 +1949,8 @@
PROMPTWINDOW])
(TEDIT.PROMPTPRINT
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 26-Nov-2023 10:10 by rmk")
[LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 29-Dec-2024 14:45 by rmk")
(* ; "Edited 26-Nov-2023 10:10 by rmk")
(* ; "Edited 10-Sep-2023 00:27 by rmk")
(* ; "Edited 30-Jul-2023 08:52 by rmk")
(* ; "Edited 9-Jul-2023 12:37 by rmk")
@ -1956,29 +1960,31 @@
(* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow). Optionally clear the window first.")
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM))
(LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM T))
PWINDOW MAINWINDOW)
(CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
[SETQ PWINDOW (CAR (NLSETQ (SELECTQ PWINDOW
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
(GETPROMPTWINDOW MAINWINDOW)))
(NIL (CL:WHEN TEXTSTREAM
[GETPROMPTWINDOW MAINWINDOW NIL NIL
(NOT (GETTEXTPROP TEXTOBJ
'PWINDOW.ON.DEMAND]))
PWINDOW]) (* ;
(if TEXTOBJ
then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
[SETQ PWINDOW
(CAR (NLSETQ (SELECTQ PWINDOW
(DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
(GETPROMPTWINDOW MAINWINDOW)))
(NIL (CL:WHEN TEXTSTREAM
[GETPROMPTWINDOW MAINWINDOW NIL NIL
(NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND]))
PWINDOW]) (* ;
 "Try to find an editor's prompt window for our message")
(COND
((WINDOWP PWINDOW) (* ;
(COND
((WINDOWP PWINDOW) (* ;
 "We found a window to use. Print the message.")
(CL:WHEN CLEAR? (CLEARW PWINDOW))
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
(PRIN1 MSG PWINDOW))
(T (* ;
(CL:WHEN CLEAR? (CLEARW PWINDOW))
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
(PRIN1 MSG PWINDOW))
(T (* ;
 "Failing all else, use global PROMPTWINDOW.")
(FRESHLINE PROMPTWINDOW)
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
(printout PROMPTWINDOW MSG])
(FRESHLINE PROMPTWINDOW)
(CL:WHEN FLASH? (FLASHWINDOW PWINDOW 1 75))
(printout PROMPTWINDOW MSG)))
else (PROMPTPRINT MSG])
(TEDIT.PROMPTCLEAR
[LAMBDA (TEXTSTREAM FONT) (* ; "Edited 14-Mar-98 12:52 by rmk:")
@ -2869,6 +2875,7 @@
(\TEDIT.SHIFTLINES
[LAMBDA (PREVLINE NEXTLINE PANE TEXTOBJ BITMAPLINES SCROLLING)
(* ; "Edited 6-Jan-2025 23:37 by rmk")
(* ; "Edited 17-Dec-2024 23:40 by rmk")
(* ; "Edited 3-Dec-2024 16:08 by rmk")
(* ; "Edited 1-Dec-2024 11:31 by rmk")
@ -2985,8 +2992,13 @@
(\TEDIT.CLEARPANE.BELOW.LINE PREVLINE PANE TEXTOBJ)
(SETQ LASTVISIBLE (\TEDIT.LINES.BELOW PREVLINE PANE TEXTOBJ))
(CL:WHEN (IGEQ (FGETLD PREVLINE YBOT)
(PANETOP PANE)) (* ;
 "If PREVLINE isn't visible, link in its next")
(LINKLD (PANEPREFIX PANE)
NEXTLINE))
(\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTVISIBLE)
(\TEDIT.FIXSEL SEL TEXTOBJ NIL PANE))
(\TEDIT.FIXSEL NIL TEXTOBJ NIL PANE))
(CL:WHEN SCROLLING
(* ;; "If scrolling up or down, we brute force wipe out whatever is above PREVLINE. If not scrolling, those are the lines from the top to lastvalid that are preserved.")
@ -3644,37 +3656,37 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (18257 19153 (TEDIT.DEFER.UPDATES 18267 . 19151)) (19154 42196 (\TEDIT.CREATEW 19164 .
25879) (\TEDIT.WINDOW.SETUP 25881 . 29994) (\TEDIT.MINIMAL.WINDOW.SETUP 29996 . 38198) (
\TEDIT.CLEARPANE 38200 . 38917) (\TEDIT.FILL.PANES 38919 . 42194)) (42197 64911 (\TEDIT.CURSORMOVEDFN
42207 . 47080) (\TEDIT.CURSOROUTFN 47082 . 47527) (\TEDIT.ACTIVE.WINDOWP 47529 . 48580) (
\TEDIT.EXPANDFN 48582 . 49145) (\TEDIT.MAINW 49147 . 50427) (\TEDIT.MAINSTREAM 50429 . 50696) (
\TEDIT.PRIMARYPANE 50698 . 51468) (\TEDIT.PANELIST 51470 . 51966) (\TEDIT.NEWREGIONFN 51968 . 54484) (
\TEDIT.SET.WINDOW.EXTENT 54486 . 59740) (\TEDIT.SHRINK.ICONCREATE 59742 . 62282) (\TEDIT.SHRINKFN
62284 . 62693) (\TEDIT.PANEREGION 62695 . 64909)) (64943 96398 (\TEDIT.BUTTONEVENTFN 64953 . 77506) (
\TEDIT.BUTTONEVENTFN.DOOPERATION 77508 . 84231) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84233 . 86075) (
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86077 . 89314) (\TEDIT.BUTTONEVENTFN.INACTIVE 89316 . 91658) (
\TEDIT.BUTTONEVENTFN.INTITLE 91660 . 93495) (\TEDIT.COPYINSERTFN 93497 . 94629) (\TEDIT.FOREIGN.COPY
94631 . 96396)) (96399 113508 (\TEDIT.PANE.SPLIT 96409 . 100888) (\TEDIT.SPLITW 100890 . 108349) (
\TEDIT.UNSPLITW 108351 . 112165) (\TEDIT.LINKPANES 112167 . 112930) (\TEDIT.UNLINKPANE 112932 . 113506
)) (114865 115756 (TEDITWINDOWP 114875 . 115754)) (115793 118896 (TEDIT.GETINPUT 115803 . 118246) (
\TEDIT.MAKEFILENAME 118248 . 118894)) (118945 127055 (TEDIT.PROMPTWINDOW 118955 . 119269) (
TEDIT.PROMPTPRINT 119271 . 121707) (TEDIT.PROMPTCLEAR 121709 . 123428) (TEDIT.PROMPTFLASH 123430 .
125362) (\TEDIT.PROMPT.PAGEFULLFN 125364 . 127053)) (127293 136119 (\TEXTSTREAM.TITLE 127303 . 127993)
(\TEDIT.DEFAULT.TITLE 127995 . 130374) (\TEDIT.WINDOW.TITLE 130376 . 132545) (\TEXTSTREAM.FILENAME
132547 . 134217) (\TEDIT.UPDATE.TITLE 134219 . 136117)) (136162 144365 (TEDIT.DEACTIVATE.WINDOW 136172
. 141965) (\TEDIT.RESHAPEFN 141967 . 144137) (\TEDIT.REPAINTFN 144139 . 144363)) (144366 186365 (
\TEDIT.SCROLLFN 144376 . 146621) (\TEDIT.SCROLLCH.TOP 146623 . 148734) (\TEDIT.SCROLLCH.BOTTOM 148736
. 153066) (\TEDIT.SCROLLUP 153068 . 158587) (\TEDIT.TOPLINE.YTOP 158589 . 160258) (\TEDIT.SCROLLDOWN
160260 . 167092) (\TEDIT.SCROLL.CARET 167094 . 169932) (\TEDIT.VISIBLECARETP 169934 . 172228) (
\TEDIT.VISIBLECHARP 172230 . 173321) (\TEDIT.BITMAPLINES 173323 . 177243) (\TEDIT.SETPANE.TOPLINE
177245 . 178036) (\TEDIT.SHIFTLINES 178038 . 186363)) (186366 197235 (\TEDIT.ONSCREEN? 186376 . 190927
) (\TEDIT.ONSCREEN.REGION 190929 . 194580) (\TEDIT.AFTERMOVEFN 194582 . 195479) (OFFSCREENP 195481 .
197233)) (197277 199894 (\TEDIT.PROCIDLEFN 197287 . 198824) (\TEDIT.PROCENTRYFN 198826 . 199271) (
\TEDIT.PROCEXITFN 199273 . 199892)) (199973 213127 (\TEDIT.DOWNCARET 199983 . 200776) (
\TEDIT.FLASHCARET 200778 . 202889) (\TEDIT.UPCARET 202891 . 203995) (TEDIT.NORMALIZECARET 203997 .
207215) (\TEDIT.SETCARET 207217 . 212497) (\TEDIT.CARET 212499 . 213125)) (213161 224800 (
TEDIT.ADD.MENUITEM 213171 . 215462) (TEDIT.DEFAULT.MENUFN 215464 . 222012) (TEDIT.REMOVE.MENUITEM
222014 . 223011) (\TEDIT.CREATEMENU 223013 . 223578) (\TEDIT.MENU.WHENHELDFN 223580 . 224485) (
\TEDIT.MENU.WHENSELECTEDFN 224487 . 224798)))))
(FILEMAP (NIL (18414 19310 (TEDIT.DEFER.UPDATES 18424 . 19308)) (19311 42353 (\TEDIT.CREATEW 19321 .
26036) (\TEDIT.WINDOW.SETUP 26038 . 30151) (\TEDIT.MINIMAL.WINDOW.SETUP 30153 . 38355) (
\TEDIT.CLEARPANE 38357 . 39074) (\TEDIT.FILL.PANES 39076 . 42351)) (42354 65068 (\TEDIT.CURSORMOVEDFN
42364 . 47237) (\TEDIT.CURSOROUTFN 47239 . 47684) (\TEDIT.ACTIVE.WINDOWP 47686 . 48737) (
\TEDIT.EXPANDFN 48739 . 49302) (\TEDIT.MAINW 49304 . 50584) (\TEDIT.MAINSTREAM 50586 . 50853) (
\TEDIT.PRIMARYPANE 50855 . 51625) (\TEDIT.PANELIST 51627 . 52123) (\TEDIT.NEWREGIONFN 52125 . 54641) (
\TEDIT.SET.WINDOW.EXTENT 54643 . 59897) (\TEDIT.SHRINK.ICONCREATE 59899 . 62439) (\TEDIT.SHRINKFN
62441 . 62850) (\TEDIT.PANEREGION 62852 . 65066)) (65100 96555 (\TEDIT.BUTTONEVENTFN 65110 . 77663) (
\TEDIT.BUTTONEVENTFN.DOOPERATION 77665 . 84388) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84390 . 86232) (
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86234 . 89471) (\TEDIT.BUTTONEVENTFN.INACTIVE 89473 . 91815) (
\TEDIT.BUTTONEVENTFN.INTITLE 91817 . 93652) (\TEDIT.COPYINSERTFN 93654 . 94786) (\TEDIT.FOREIGN.COPY
94788 . 96553)) (96556 113665 (\TEDIT.PANE.SPLIT 96566 . 101045) (\TEDIT.SPLITW 101047 . 108506) (
\TEDIT.UNSPLITW 108508 . 112322) (\TEDIT.LINKPANES 112324 . 113087) (\TEDIT.UNLINKPANE 113089 . 113663
)) (115022 115913 (TEDITWINDOWP 115032 . 115911)) (115950 119053 (TEDIT.GETINPUT 115960 . 118403) (
\TEDIT.MAKEFILENAME 118405 . 119051)) (119102 127403 (TEDIT.PROMPTWINDOW 119112 . 119426) (
TEDIT.PROMPTPRINT 119428 . 122055) (TEDIT.PROMPTCLEAR 122057 . 123776) (TEDIT.PROMPTFLASH 123778 .
125710) (\TEDIT.PROMPT.PAGEFULLFN 125712 . 127401)) (127641 136467 (\TEXTSTREAM.TITLE 127651 . 128341)
(\TEDIT.DEFAULT.TITLE 128343 . 130722) (\TEDIT.WINDOW.TITLE 130724 . 132893) (\TEXTSTREAM.FILENAME
132895 . 134565) (\TEDIT.UPDATE.TITLE 134567 . 136465)) (136510 144713 (TEDIT.DEACTIVATE.WINDOW 136520
. 142313) (\TEDIT.RESHAPEFN 142315 . 144485) (\TEDIT.REPAINTFN 144487 . 144711)) (144714 187138 (
\TEDIT.SCROLLFN 144724 . 146969) (\TEDIT.SCROLLCH.TOP 146971 . 149082) (\TEDIT.SCROLLCH.BOTTOM 149084
. 153414) (\TEDIT.SCROLLUP 153416 . 158935) (\TEDIT.TOPLINE.YTOP 158937 . 160606) (\TEDIT.SCROLLDOWN
160608 . 167440) (\TEDIT.SCROLL.CARET 167442 . 170280) (\TEDIT.VISIBLECARETP 170282 . 172576) (
\TEDIT.VISIBLECHARP 172578 . 173669) (\TEDIT.BITMAPLINES 173671 . 177591) (\TEDIT.SETPANE.TOPLINE
177593 . 178384) (\TEDIT.SHIFTLINES 178386 . 187136)) (187139 198008 (\TEDIT.ONSCREEN? 187149 . 191700
) (\TEDIT.ONSCREEN.REGION 191702 . 195353) (\TEDIT.AFTERMOVEFN 195355 . 196252) (OFFSCREENP 196254 .
198006)) (198050 200667 (\TEDIT.PROCIDLEFN 198060 . 199597) (\TEDIT.PROCENTRYFN 199599 . 200044) (
\TEDIT.PROCEXITFN 200046 . 200665)) (200746 213900 (\TEDIT.DOWNCARET 200756 . 201549) (
\TEDIT.FLASHCARET 201551 . 203662) (\TEDIT.UPCARET 203664 . 204768) (TEDIT.NORMALIZECARET 204770 .
207988) (\TEDIT.SETCARET 207990 . 213270) (\TEDIT.CARET 213272 . 213898)) (213934 225573 (
TEDIT.ADD.MENUITEM 213944 . 216235) (TEDIT.DEFAULT.MENUFN 216237 . 222785) (TEDIT.REMOVE.MENUITEM
222787 . 223784) (\TEDIT.CREATEMENU 223786 . 224351) (\TEDIT.MENU.WHENHELDFN 224353 . 225258) (
\TEDIT.MENU.WHENSELECTEDFN 225260 . 225571)))))
STOP

BIN
library/tedit/TEDIT-WINDOW.LCOM
View File

Binary file not shown.

BIN
library/tedit/TEDIT.LCOM
View File

Binary file not shown.