github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-30 13:47:04 +00:00
Code Issues Projects Releases Wiki Activity

Proper error messages for meta-O and meta-D on empty selection (#1944)

Browse Source 
* Addresses #1943

* Better prompt messages for meta-O and meta-D

* Cleanup TEDIT.SETSEL

* Meta-O shows menu of types to edit

* Extra variable

* More cleaning of TEDIT.SETSEL
This commit is contained in:
rmkaplan
2025-01-20 12:03:20 -08:00
committed by GitHub
parent 4e11554156
commit 5eb8a7bd34
4 changed files with 108 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
library/tedit/TEDIT-FNKEYS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "26-Nov-2024 23:53:32" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;101 38718
(FILECREATED "18-Jan-2025 23:38:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;108 39841
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.KEY.FIND)
:CHANGES-TO (FNS \TEDIT.CALL.ED \TEDIT.MANPAGE)
:PREVIOUS-DATE "23-Nov-2024 16:29:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;100)
:PREVIOUS-DATE "29-Dec-2024 08:47:57" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;102)
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@@ -442,7 +442,9 @@
(TEDIT.SUBSTITUTE TEXTSTREAM NIL NIL T])
(\TEDIT.MANPAGE
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 25-Jun-2024 11:59 by rmk")
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 18-Jan-2025 21:48 by rmk")
(* ; "Edited 29-Dec-2024 08:40 by rmk")
(* ; "Edited 25-Jun-2024 11:59 by rmk")
(* ; "Edited 26-May-2024 21:53 by rmk")
(* ; "Edited 25-May-2024 14:50 by rmk")
@@ -450,12 +452,26 @@
(CL:UNLESS (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM)
'DINFOGRAPH)
(GENERIC.MAN.LOOKUP (TEDIT.SEL.AS.STRING TSTREAM SEL)))])
(TEDIT.PROMPTCLEAR TSTREAM)
[LET ((KEY (TEDIT.SEL.AS.STRING TSTREAM SEL)))
(if (OR (NULL KEY)
(EQ 0 (NCHARS KEY)))
then (TEDIT.PROMPTPRINT TSTREAM "Please select a man-page key" T T)
else (GENERIC.MAN.LOOKUP (TEDIT.SEL.AS.STRING TSTREAM SEL])])
(\TEDIT.CALL.ED
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 25-May-2024 15:03 by rmk")
(ED [MKATOM (CAR (MKLIST (TEDIT.SEL.AS.SEXPR TSTREAM SEL]
'(:DONTWAIT])
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 18-Jan-2025 23:38 by rmk")
(* ; "Edited 29-Dec-2024 08:46 by rmk")
(* ; "Edited 25-May-2024 15:03 by rmk")
(TEDIT.PROMPTCLEAR TSTREAM)
(LET [(SYMBOL (MKATOM (CAR (MKLIST (TEDIT.SEL.AS.SEXPR TSTREAM SEL]
(if (OR (NULL SYMBOL)
(EQ 0 (NCHARS SYMBOL)))
then (TEDIT.PROMPTPRINT TSTREAM "Please select a symbol to edit" T T)
elseif (TYPESOF SYMBOL)
then (ED SYMBOL `(:DONTWAIT :DISPLAY))
else (TEDIT.PROMPTPRINT TSTREAM (CONCAT SYMBOL " has no definitions to edit")
T T])
(\TEDIT.ONECHAR.BACKWARD
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
@@ -710,23 +726,23 @@
(TEDIT.SETSYNTAX (CAR ENTRY)
(CADR ENTRY]
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6220 28574 (\TEDIT.BOLD.SEL.OFF 6230 . 6568) (\TEDIT.BOLD.SEL.ON 6570 . 6898) (
\TEDIT.CENTER.SEL 6900 . 8416) (\TEDIT.CENTER.SEL.REV 8418 . 8714) (\TEDIT.DEFAULTS.CARET 8716 . 9209)
(\TEDIT.DEFAULTSSEL 9211 . 9658) (\TEDIT.SETDEFAULT.FROM.SEL 9660 . 10337) (\TEDIT.KEY.FIND 10339 .
15406) (\TEDIT.KEY.FIND.SEARCHSTRING 15408 . 16548) (\TEDIT.GET.TARGET.STRING 16550 . 18264) (
\TEDIT.KEY.FIND.BACKWARD 18266 . 18571) (\TEDIT.FINDAGAIN.BACKWARD 18573 . 18984) (\TEDIT.FINDAGAIN
18986 . 19277) (\TEDIT.ITALIC.SEL.OFF 19279 . 19531) (\TEDIT.ITALIC.SEL.ON 19533 . 19726) (
\TEDIT.LARGERSEL 19728 . 20016) (\TEDIT.LCASE.SEL 20018 . 21413) (\TEDIT.SHOWCARETLOOKS 21415 . 23015)
(\TEDIT.SMALLERSEL 23017 . 23308) (\TEDIT.SUBSCRIPTSEL 23310 . 23513) (\TEDIT.SUPERSCRIPTSEL 23515 .
23719) (\TEDIT.UCASE.SEL 23721 . 25060) (\TEDIT.UNDERLINE.SEL.OFF 25062 . 25260) (
\TEDIT.UNDERLINE.SEL.ON 25262 . 25458) (\TEDIT.STRIKEOUT.SEL.ON 25460 . 25656) (
\TEDIT.STRIKEOUT.SEL.OFF 25658 . 25856) (\TEDIT.SELECT.ALL 25858 . 26174) (\TEDIT.KEY.SUBSTITUTE 26176
. 26397) (\TEDIT.MANPAGE 26399 . 27155) (\TEDIT.CALL.ED 27157 . 27369) (\TEDIT.ONECHAR.BACKWARD 27371
. 27941) (\TEDIT.ONECHAR.FORWARD 27943 . 28572)) (28646 35157 (\TEDIT.BOLD.CARET.OFF 28656 . 29191) (
\TEDIT.BOLD.CARET.ON 29193 . 29725) (\TEDIT.ITALIC.CARET.OFF 29727 . 30264) (\TEDIT.ITALIC.CARET.ON
30266 . 30809) (\TEDIT.LARGER.CARET 30811 . 31346) (\TEDIT.SMALLER.CARET 31348 . 31885) (
\TEDIT.SUBSCRIPT.CARET 31887 . 32428) (\TEDIT.SUPERSCRIPT.CARET 32430 . 32972) (
\TEDIT.UNDERLINE.CARET.OFF 32974 . 33514) (\TEDIT.UNDERLINE.CARET.ON 33516 . 34054) (
\TEDIT.STRIKEOUT.CARET.OFF 34056 . 34596) (\TEDIT.STRIKEOUT.CARET.ON 34598 . 35155)) (35226 35928 (
\TK.DESCRIBEFONT 35236 . 35926)))))
(FILEMAP (NIL (6234 29697 (\TEDIT.BOLD.SEL.OFF 6244 . 6582) (\TEDIT.BOLD.SEL.ON 6584 . 6912) (
\TEDIT.CENTER.SEL 6914 . 8430) (\TEDIT.CENTER.SEL.REV 8432 . 8728) (\TEDIT.DEFAULTS.CARET 8730 . 9223)
(\TEDIT.DEFAULTSSEL 9225 . 9672) (\TEDIT.SETDEFAULT.FROM.SEL 9674 . 10351) (\TEDIT.KEY.FIND 10353 .
15420) (\TEDIT.KEY.FIND.SEARCHSTRING 15422 . 16562) (\TEDIT.GET.TARGET.STRING 16564 . 18278) (
\TEDIT.KEY.FIND.BACKWARD 18280 . 18585) (\TEDIT.FINDAGAIN.BACKWARD 18587 . 18998) (\TEDIT.FINDAGAIN
19000 . 19291) (\TEDIT.ITALIC.SEL.OFF 19293 . 19545) (\TEDIT.ITALIC.SEL.ON 19547 . 19740) (
\TEDIT.LARGERSEL 19742 . 20030) (\TEDIT.LCASE.SEL 20032 . 21427) (\TEDIT.SHOWCARETLOOKS 21429 . 23029)
(\TEDIT.SMALLERSEL 23031 . 23322) (\TEDIT.SUBSCRIPTSEL 23324 . 23527) (\TEDIT.SUPERSCRIPTSEL 23529 .
23733) (\TEDIT.UCASE.SEL 23735 . 25074) (\TEDIT.UNDERLINE.SEL.OFF 25076 . 25274) (
\TEDIT.UNDERLINE.SEL.ON 25276 . 25472) (\TEDIT.STRIKEOUT.SEL.ON 25474 . 25670) (
\TEDIT.STRIKEOUT.SEL.OFF 25672 . 25870) (\TEDIT.SELECT.ALL 25872 . 26188) (\TEDIT.KEY.SUBSTITUTE 26190
. 26411) (\TEDIT.MANPAGE 26413 . 27660) (\TEDIT.CALL.ED 27662 . 28492) (\TEDIT.ONECHAR.BACKWARD 28494
. 29064) (\TEDIT.ONECHAR.FORWARD 29066 . 29695)) (29769 36280 (\TEDIT.BOLD.CARET.OFF 29779 . 30314) (
\TEDIT.BOLD.CARET.ON 30316 . 30848) (\TEDIT.ITALIC.CARET.OFF 30850 . 31387) (\TEDIT.ITALIC.CARET.ON
31389 . 31932) (\TEDIT.LARGER.CARET 31934 . 32469) (\TEDIT.SMALLER.CARET 32471 . 33008) (
\TEDIT.SUBSCRIPT.CARET 33010 . 33551) (\TEDIT.SUPERSCRIPT.CARET 33553 . 34095) (
\TEDIT.UNDERLINE.CARET.OFF 34097 . 34637) (\TEDIT.UNDERLINE.CARET.ON 34639 . 35177) (
\TEDIT.STRIKEOUT.CARET.OFF 35179 . 35719) (\TEDIT.STRIKEOUT.CARET.ON 35721 . 36278)) (36349 37051 (
\TK.DESCRIBEFONT 36359 . 37049)))))
STOP

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

Binary file not shown.

150
library/tedit/TEDIT-SELECTION
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Dec-2024 14:29:31" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;638 151180
(FILECREATED "19-Jan-2025 08:36:30" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;643 149608
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.XYTOSEL)
:CHANGES-TO (FNS TEDIT.SETSEL)
:PREVIOUS-DATE " 6-Dec-2024 12:50:42" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;637)
:PREVIOUS-DATE " 8-Jan-2025 00:21:32" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;641)
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -1707,7 +1707,8 @@
`(PROGN (DSPCLIPPINGREGION OLDVALUE ,DS])
(\TEDIT.OPERATE.OBJECT
[LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 1-Dec-2024 11:55 by rmk")
[LAMBDA (TSTREAM SEL PANE OPERATION) (* ; "Edited 31-Dec-2024 17:24 by rmk")
(* ; "Edited 1-Dec-2024 11:55 by rmk")
(* ; "Edited 18-Oct-2024 13:44 by rmk")
(* ; "Edited 6-Oct-2024 23:09 by rmk")
(* ; "Edited 27-Aug-2024 10:03 by rmk")
@@ -1735,7 +1736,6 @@
(* ;; "Called from BUTTONEVENTFN.DOOPERATION. Execute once, in PANE. SHOWSEL and FIXSEL do the updates across other panes. This runs in PANE's coordinate system. We can't do it if we can't determine from SEL where OBJ is located in PANE.")
(CL:WHEN (SETQ LINE (\TEDIT.SEL.L1 SEL PANE TEXTOBJ))
(TEDIT.PROMPTCLEAR TSTREAM)
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
(MOVETO (FGETSEL SEL X0)
(FGETLD LINE YBASE)
@@ -2245,20 +2245,17 @@
(TEDIT.SETSEL
[LAMBDA (TSTREAM CH# LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION)
(* ; "Edited 19-Jan-2025 08:32 by rmk")
(* ; "Edited 8-Jan-2025 00:20 by rmk")
(* ; "Edited 26-Nov-2024 23:51 by rmk")
(* ; "Edited 30-Jul-2024 23:27 by rmk")
(* ; "Edited 7-Jul-2024 11:18 by rmk")
(* ; "Edited 15-Jun-2024 10:08 by rmk")
(* ; "Edited 23-May-2024 09:13 by rmk")
(* ; "Edited 19-May-2024 00:01 by rmk")
(* ; "Edited 29-Apr-2024 12:39 by rmk")
(* ; "Edited 15-Mar-2024 13:38 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 9-Mar-2024 12:04 by rmk")
(* ; "Edited 22-Sep-2023 18:09 by rmk")
(* ; "Edited 3-Aug-2023 23:12 by rmk")
(* ; "Edited 23-May-2023 16:50 by rmk")
(* ; "Edited 18-Apr-2023 23:54 by rmk")
(* ; "Edited 27-Mar-2023 13:07 by rmk")
(* ; "Edited 30-May-91 23:05 by jds")
@@ -2267,66 +2264,48 @@
(* ;; "For convenience, TSTREAM may be provided as an external selection (with its SELTEXTSTREAM as the actual TSTREAM). That selection is never installed in TSTREAM, to avoid circularity.")
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
(LET* ((TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
(CL:UNLESS OPERATION
(SETQ OPERATION (CL:IF PENDINGDELFLG
'PENDINGDEL
'NORMAL)))
(LET* ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ)))
(SEL (TEXTSEL TEXTOBJ))
(TEXTLEN (TEXTLEN TEXTOBJ))
PC)
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ) (* ; "First turn the old sel off.")
[COND
((type? SELECTION CH#) (* ;
 "He gave use a selection; just plug it in")
(\TEDIT.COPYSEL CH# SEL) (* ;
[if (type? SELECTION CH#)
then (* ;
 "He gave us a selection; just plug it in")
(\TEDIT.COPYSEL CH# SEL) (* ;
 "And make sure it can be turned on.")
(SETSEL SEL ONFLG NIL))
(T (* ;
(SETSEL SEL ONFLG NIL)
else (* ;
 "Documentation doesn't allow NIL, but DINFO.SHOWSEL passes it")
(SELECTQ POINT
(LEFT)
(RIGHT)
(NIL (SETQ POINT 'LEFT))
(ERROR POINT "is an illegal POINT")) (* ; "He fed us numbers; use them")
(SETQ LEN (IMAX 0 (OR LEN 0)))
(CL:WHEN (ILESSP CH# 0)
(SETQ CH# (IPLUS 1 TEXTLEN CH#))) (* ; "Length must be positive")
(SETQ CH# (IMIN (IMAX 1 CH#)
(ADD1 TEXTLEN))) (* ;
 "Starting character. If beyond TEXTLEN, then just after EOF")
(SETSEL SEL CH# CH#)
[SETSEL SEL CHLIM (IMAX CH# (IMIN (IPLUS CH# LEN)
(ADD1 TEXTLEN]
(* ;; "LEN may have been reduced by TEXTLEN")
(SETQ LEN (IDIFFERENCE (GETSEL SEL CHLIM)
(GETSEL SEL CH#)))
(SETSEL SEL DCH LEN)
(SETSEL SEL POINT (if (IGREATERP CH# TEXTLEN)
then 'LEFT
elseif POINT
else 'LEFT)) (* ; "Which side the caret should go on")
(FSETSEL SEL SELOBJ (CL:WHEN (EQ 1 LEN) (* ; "If CH# beyond TEXTLEN, LEN is 0")
(SETQ PC (\TEDIT.CHTOPC (GETSEL SEL CH#)
TEXTOBJ))
(CL:WHEN (EQ OBJECT.PTYPE (PTYPE PC))
(PCONTENTS PC)))]
[COND
[PENDINGDELFLG (* ;
 "This selection is to be a pending-deletion sel.")
(SETTOBJ TEXTOBJ BLUEPENDINGDELETE T) (* ;
 "Warn TEdit that there's a deletion pending")
(\TEDIT.SET.SEL.LOOKS SEL (OR OPERATION 'PENDINGDEL]
(T (* ;
 "This selection is to be a pending-deletion sel.")
(\TEDIT.RESET.EXTEND.PENDING.DELETE TEXTOBJ)
(\TEDIT.SET.SEL.LOOKS SEL (OR OPERATION 'NORMAL]
(SETSEL SEL SET T) (* ;
 "Mark the selection as valid for others to use")
(SELECTQ POINT
(LEFT)
(RIGHT)
(NIL (SETQ POINT 'LEFT))
(ERROR POINT "is an illegal POINT")) (* ; "He fed us numbers; use them")
(CL:WHEN (ILESSP CH# 0) (* ; "Negative => from end")
(SETQ CH# (IPLUS 1 TEXTLEN CH#)))
(if (EQ 0 TEXTLEN)
then (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT)
elseif (IGREATERP CH# TEXTLEN)
then (\TEDIT.UPDATE.SEL SEL TEXTLEN 0 'RIGHT)
else [SETQ LEN (IMIN LEN (ADD1 (IDIFFERENCE TEXTLEN CH#]
(\TEDIT.UPDATE.SEL SEL CH# LEN POINT)
(FSETSEL SEL SELOBJ (CL:WHEN (EQ 1 LEN)
(SETQ PC (\TEDIT.CHTOPC (GETSEL SEL CH#)
TEXTOBJ))
(CL:WHEN (EQ OBJECT.PTYPE (PTYPE PC))
(PCONTENTS PC)))]
(SETTOBJ TEXTOBJ BLUEPENDINGDELETE PENDINGDELFLG)
(\TEDIT.SET.SEL.LOOKS SEL OPERATION)
(CL:UNLESS LEAVECARETLOOKS (* ;
 "And set the insertion looks to follow.")
 "Set the insertion looks to follow.")
(SETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)))
(\TEDIT.FIXSEL SEL TEXTOBJ) (* ;
 "Update the selection's screen location")
(\TEDIT.SHOWSEL SEL T TEXTOBJ) (* ; "Highlight it on the screen")
(\TEDIT.FIXSEL SEL TEXTOBJ)
(\TEDIT.SHOWSEL SEL T TEXTOBJ)
SEL])
(TEDIT.SHOWSEL
@@ -2386,7 +2365,8 @@
RESULT])
(TEDIT.SEL.AS.SEXPR
[LAMBDA (TSTREAM SEL RDTBL FLG) (* ; "Edited 29-Apr-2024 10:49 by rmk")
[LAMBDA (TSTREAM SEL RDTBL FLG) (* ; "Edited 29-Dec-2024 08:47 by rmk")
(* ; "Edited 29-Apr-2024 10:49 by rmk")
(* ; "Edited 17-Mar-2024 12:05 by rmk")
(* ; "Edited 25-Dec-2023 18:52 by rmk")
(* ; "Edited 9-Jul-2023 09:37 by rmk")
@@ -2399,7 +2379,7 @@
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
[\TEDIT.TEXTSETFILEPTR TSTREAM (SUB1 (\TEDIT.WORD.FIRST TSTREAM (TEDIT.GETPOINT TSTREAM SEL)
(TEDIT.ATOMBOUND.READTABLE (OR RDTBL *READTABLE*]
(READ TSTREAM RDTBL FLG])
(CAR (NLSETQ (READ TSTREAM RDTBL FLG])
(TEDIT.SELECTALL
[LAMBDA (TEXTSTREAM TEXTOBJ SEL) (* ; "Edited 14-Jun-2023 16:58 by rmk")
@@ -2416,25 +2396,25 @@
(ADDTOVAR LAMA TEDIT.SELPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (15576 17397 (\TEDIT.SELECTION.DEFPRINT 15586 . 17395)) (17434 18939 (
\TEDIT.SET.GLOBAL.SELECTIONS 17444 . 18937)) (18940 24809 (\TEDIT.SELECTED.PIECES 18950 . 20470) (
\TEDIT.FIND.PROTECTED.END 20472 . 22141) (\TEDIT.FIND.PROTECTED.START 22143 . 24001) (
\TEDIT.WORD.BOUND 24003 . 24807)) (24943 58882 (\TEDIT.EXTEND.SEL 24953 . 32041) (\TEDIT.SCAN.LINE
32043 . 43671) (\TEDIT.SCAN.LINE.WORD 43673 . 49034) (\TEDIT.XYTOSEL 49036 . 56035) (\TEDIT.REGIONTYPE
56037 . 57056) (\TEDIT.XYTOSEL.INLINEP 57058 . 57513) (\TEDIT.XYTOSEL.LINE 57515 . 58880)) (58883
72045 (\TEDIT.FIXSEL 58893 . 68506) (\TEDIT.CHTOLINEX 68508 . 72043)) (72046 75583 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 72056 . 73029) (\TEDIT.SET.SEL.LOOKS 73031 . 75581)) (75584 91884 (
\TEDIT.SHOWSEL 75594 . 80054) (\TEDIT.SHOWSEL.HILIGHT 80056 . 84677) (\TEDIT.UPDATE.SEL 84679 . 88178)
(\TEDIT.CARETLINE 88180 . 88894) (\TEDIT.SEL.L1 88896 . 89402) (\TEDIT.SEL.LN 89404 . 89910) (
\TEDIT.SEL.DELETEDCHARS 89912 . 91882)) (91885 96591 (\TEDIT.COPYSEL 91895 . 94361) (
\TEDIT.SEL.CHANGED? 94363 . 96589)) (96622 109302 (\TEDIT.SELECT.OBJECT 96632 . 101138) (
\TEDIT.SHOWSEL.OBJECT 101140 . 103302) (\TEDIT.CLIP.OBJECT 103304 . 105308) (\TEDIT.OPERATE.OBJECT
105310 . 109300)) (109330 127559 (\TEDIT.SELPIECES 109340 . 113288) (\TEDIT.SELPIECES.COPY 113290 .
115328) (\TEDIT.SELPIECES.CONCAT 115330 . 117209) (\TEDIT.SELPIECES.CHARTRANSFORM 117211 . 120169) (
\TEDIT.SELPIECES.FROM.STRING 120171 . 125194) (\TEDIT.SELPIECES.TO.STRING 125196 . 127557)) (127612
151011 (TEDIT.XYTOCH 127622 . 130006) (TEDIT.SELPROP 130008 . 133764) (TEDIT.GETPOINT 133766 . 135686)
(TEDIT.GETSEL 135688 . 136422) (TEDIT.GETSEL.PARA 136424 . 137373) (TEDIT.SCANSEL 137375 . 138323) (
TEDIT.SET.SEL.LOOKS 138325 . 139704) (TEDIT.SETSEL 139706 . 145976) (TEDIT.SHOWSEL 145978 . 147258) (
TEDIT.SEL.AS.STRING 147260 . 149511) (TEDIT.SEL.AS.SEXPR 149513 . 150677) (TEDIT.SELECTALL 150679 .
151009)))))
(FILEMAP (NIL (15574 17395 (\TEDIT.SELECTION.DEFPRINT 15584 . 17393)) (17432 18937 (
\TEDIT.SET.GLOBAL.SELECTIONS 17442 . 18935)) (18938 24807 (\TEDIT.SELECTED.PIECES 18948 . 20468) (
\TEDIT.FIND.PROTECTED.END 20470 . 22139) (\TEDIT.FIND.PROTECTED.START 22141 . 23999) (
\TEDIT.WORD.BOUND 24001 . 24805)) (24941 58880 (\TEDIT.EXTEND.SEL 24951 . 32039) (\TEDIT.SCAN.LINE
32041 . 43669) (\TEDIT.SCAN.LINE.WORD 43671 . 49032) (\TEDIT.XYTOSEL 49034 . 56033) (\TEDIT.REGIONTYPE
56035 . 57054) (\TEDIT.XYTOSEL.INLINEP 57056 . 57511) (\TEDIT.XYTOSEL.LINE 57513 . 58878)) (58881
72043 (\TEDIT.FIXSEL 58891 . 68504) (\TEDIT.CHTOLINEX 68506 . 72041)) (72044 75581 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 72054 . 73027) (\TEDIT.SET.SEL.LOOKS 73029 . 75579)) (75582 91882 (
\TEDIT.SHOWSEL 75592 . 80052) (\TEDIT.SHOWSEL.HILIGHT 80054 . 84675) (\TEDIT.UPDATE.SEL 84677 . 88176)
(\TEDIT.CARETLINE 88178 . 88892) (\TEDIT.SEL.L1 88894 . 89400) (\TEDIT.SEL.LN 89402 . 89908) (
\TEDIT.SEL.DELETEDCHARS 89910 . 91880)) (91883 96589 (\TEDIT.COPYSEL 91893 . 94359) (
\TEDIT.SEL.CHANGED? 94361 . 96587)) (96620 109349 (\TEDIT.SELECT.OBJECT 96630 . 101136) (
\TEDIT.SHOWSEL.OBJECT 101138 . 103300) (\TEDIT.CLIP.OBJECT 103302 . 105306) (\TEDIT.OPERATE.OBJECT
105308 . 109347)) (109377 127606 (\TEDIT.SELPIECES 109387 . 113335) (\TEDIT.SELPIECES.COPY 113337 .
115375) (\TEDIT.SELPIECES.CONCAT 115377 . 117256) (\TEDIT.SELPIECES.CHARTRANSFORM 117258 . 120216) (
\TEDIT.SELPIECES.FROM.STRING 120218 . 125241) (\TEDIT.SELPIECES.TO.STRING 125243 . 127604)) (127659
149439 (TEDIT.XYTOCH 127669 . 130053) (TEDIT.SELPROP 130055 . 133811) (TEDIT.GETPOINT 133813 . 135733)
(TEDIT.GETSEL 135735 . 136469) (TEDIT.GETSEL.PARA 136471 . 137420) (TEDIT.SCANSEL 137422 . 138370) (
TEDIT.SET.SEL.LOOKS 138372 . 139751) (TEDIT.SETSEL 139753 . 144282) (TEDIT.SHOWSEL 144284 . 145564) (
TEDIT.SEL.AS.STRING 145566 . 147817) (TEDIT.SEL.AS.SEXPR 147819 . 149105) (TEDIT.SELECTALL 149107 .
149437)))))
STOP

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

Binary file not shown.