github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-27 07:07:39 +00:00
Code Issues Projects Releases Wiki Activity
Files
81640cd59445ddcaad64baa46db6b9cd04bbdbb3
Interlisp.medley/library/tedit/TEDIT-SELECTION.LCOM
rmkaplan 406b509b38 Rmk185 tedit window and process glitches (#2604) 
* Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed.

* Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection.

* A few other minor bug fixes
---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
2026-05-20 18:51:55 -07:00

421 lines
31 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-May-2026 10:48:32" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-SELECTION.;743)
"11-May-2026 13:30:12" brecompiled exprs%: \TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.SECONDARYSEL.OFF in
"FULL 11-May-2026 ..." dated "11-May-2026 13:30:21")
(FILECREATED "15-May-2026 10:48:32" {MEDLEY}<library>TEDIT>TEDIT-SELECTION.;743 162591 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF) (VARS
TEDIT-SELECTIONCOMS) :PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}<library>tedit>TEDIT-SELECTION.;741
)
\TEDIT.SELECTION.DEFPRINT :D8
(P 3 LOC P 2 INFO P 1 WHICH P 0 TEXTOBJ I 0 SEL) ¸@i
1H²@HÉð•g„oY@Êjð³N@Éo@É o@Ék
o@Ékð•o†l
„oZ@ [oIoJoKoKo
h(179 CONCAT 141 LOC 128 CONCAT 122 CHARACTER 93 NTHCHAR 6 TEXTOBJ)
(104 SELECTION 85 SELECTION 72 SELECTION 59 SELECTION 46 SELECTION 33 SEL 26 SELECTION 19 TEXTOBJ)
( 173 "}" 166 "/" 159 " " 153 " " 147 "{SEL:" 134 "unset" 114 "_" 98 " " 79 "-" 66 "-" 39 "")
\TEDIT.SET.GLOBAL.SELECTIONS :D8
(P 1 S I 1 SOURCESEL I 0 SELOPERATION) ß@gð©@dgðœ¿A gð›A @dgðœ¿A gð›A @dgðœ¿A ³co1HµhY ³GI`dkÏ¿dk¿dnÿÿ¿djÏ¿dg¿hdºdJ¿hd»dK¿dj¿
¿HX°ªo (220 \TEDIT.THELP 204 SETTOPVAL 134 BOUNDP 105 \TEDIT.COPYSEL 83 \TEDIT.COPYSEL 64 \TEDIT.COPYSEL 42 \TEDIT.COPYSEL 23 \TEDIT.COPYSEL)
(173 LEFT 142 |SELECTIONTYPE#| 110 TEDIT.DELETESELECTION 96 DELETE 88 TEDIT.COPYLOOKSSELECTION 75 COPYLOOKS 69 TEDIT.MOVESELECTION 55 MOVE 47 TEDIT.SHIFTEDSELECTION 34 COPY 28 TEDIT.SELECTION 14 PENDINGDEL 5 NORMAL)
( 215 "UNKNOWN SELOPERATION" 118 (TEDIT.SELECTION TEDIT.SHIFTEDSELECTION TEDIT.COPYLOOKSSELECTION TEDIT.MOVESELECTION TEDIT.DELETESELECTION))
\TEDIT.SELECTED.PIECES :D8
(P 6 PC P 1 SELPIECES P 0 TEXTOBJ I 5 FNARG2 I 4 FNARG1 I 3 PIECEMAPFN I 2 CROSSCOPY I 1 SEL I 0 TSTREAM) ˜@Ñ@‡@ÉAµHÉhH BœIg@ €IQJµ°8¿JɾJÉ_¿C™NHDElC€N½LµMh\»NdOð–KM&¼°õɾ°Õ(69 \TEDIT.SELPIECES.COPY 52 \TEDIT.SELPIECES 4 NOTUSED)
(147 PIECE 102 PIECE 93 PIECE 84 SELPIECES 63 COPY 45 SELECTION 38 TEXTOBJ 26 TEXTOBJ 19 STREAM 10 TEXTOBJ)
()
\TEDIT.FIND.PROTECTED.END :D8
(P 3 PC P 2 START-OF-PIECE I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) HB@ÉHdIñ‘¿Ib A@i ˆJjKÉÙÔºKÉ
d²»JBñ´KÉ Ê jð³ÚJ(27 \TEDIT.CHTOPC)
(61 CHARLOOKS 47 PIECE)
()
\TEDIT.FIND.PROTECTED.START :D8
(P 1 PC P 0 START-OF-PIECE I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) 5 A@i ˆHIÉÔ¸IÉd²¹BHñ´IÉ Ê jð³ÜH(10 \TEDIT.CHTOPC)
(42 CHARLOOKS 28 PIECE)
()
\TEDIT.WORD.BOUND :D8
(P 0 READSA I 2 CH I 1 PREVCH I 0 TEXTOBJ) rA3 ²lB3 ²g@ÉDµ`ÉAlÿñ²HÉ€ŸAHÉ€
µj‚HAÂBlÿñ²HÉ€ŸBHÉ€
µj‚HBÂðhði(99 GETHASH 63 GETHASH)
(92 CHARTABLE 82 CHARTABLE 56 CHARTABLE 46 CHARTABLE 29 READTABLEP 24 TEDIT.WORDBOUND.READTABLE 15 TEXTOBJ)
()
\TEDIT.EXTEND.SEL :D8
(P 5 TEMP P 4 NCHLIM P 3 NCH# P 2 CCHLIM P 1 CCH# P 0 TEXTOBJ I 3 EVENIFPROTECTED I 2 TSTREAM I 1 CURSEL I 0 NEWSEL) m@Êjð’±cAÊjð’±YBÑB‡BÉAÉAÉ
@É@É
5C³:KJñ˜HJK ŽILñ² HILkÙ ]²@IhghM
¿@É»@É
¼@jÏ¿jdðhðJKñ³ AIhghL
¿@JhghL±ŒLdIñ³ ¿AKhghJ
¿@KhghI°gJÙ¾jNñ¡N‚jNÙKIÙ_¿jOñ¢OƒjOÙñ²%AKhghJ
¿@kÏ¿@IhghK°#AIhghL
¿@kÏ¿@LhghJ
¿AÉ@Éð¤Ah¿@B
@dÊjðhðhðB @jÏ¿jdðhðAB
h(360 \TEDIT.FIXSEL 342 \TEDIT.SHOWSEL 325 \TEDIT.FIXSEL 304 \TEDIT.UPDATE.SEL 281 \TEDIT.UPDATE.SEL 246 \TEDIT.UPDATE.SEL 184 \TEDIT.UPDATE.SEL 147 \TEDIT.UPDATE.SEL 106 \TEDIT.UPDATE.SEL 87 \TEDIT.FIND.PROTECTED.END 71 \TEDIT.FIND.PROTECTED.START)
(296 RIGHT 273 RIGHT 261 LEFT 238 LEFT 193 LEFT 176 LEFT 156 RIGHT 139 RIGHT 98 LEFT 41 TEXTOBJ 34 STREAM 25 TEXTOBJ)
()
\TEDIT.SCAN.LINE :D8
(P 15 CHARCL P 14 CHARW P 13 CHAR P 12 CS P 10 RIGHTHALF P 9 THISLINE P 8 PASTRIGHT P 7 SELCHAR P 6 DCH P 5 XLIM P 4 X0 P 3 CHNO P 2 CLOOKS P 1 CHARSLOT P 0 TEXTOBJ I 6 WORDSELFLG I 5 BUTTON I 4 TSTREAM I 3 SELOPERATION I 2 NEWSEL I 1 X I 0 LINE) Ò@BBgDÑD‡DÉ¡
HÉ8_@OÉð¬D@É@ b€@É
]AdMñ¡¿db@É[A@Éñ_—@ÉkÙb¿OQOdÙ¿OÉ_¿OÉ_ ¿OÉ_¿OÉ_¿OÉ_¿OO ð³MOÔ½AMñ¢O<18>KkÔ»OlÐ_°ÏhYd´‚±*Oµ
AMIÉâÙýñhð_IÉZdÊ jð’±Egð’±ÿCgð’±ôdÊjð³oh_¿IlÐQOdÙ¿OÉ_¿OÉ_ ¿OÉ_¿OÉ_¿OÉ_¿OO ð³"MOÔ½KkÔ»OÊjð•Oµi‰OlÐ_°Èh°{JÊjð³ri_¿ImúÐQOdÃœ¿OÉmúÐ_¿OÉ_ ¿OÉ_¿OÉ_¿OÉ_¿MjOÙÔ½KmÿÔ»OÊjð”IlЈOdO ð“¿h‡múÐ_°ÄhYµhɺIÉ_JÊ jð®j¾BCgð²5k°3HÉjð’j°F³CgðžHÊ:jð—Oÿk¾BCgð‘k€jÏ¿BK@Éð“@ɨO•g„gBNjð‘M„MIÉÙBMBKBN BNBÉØ
BO§O €hBgBkÏ¿kjðhðF²"Bɳ@Ê&jð²JÊ jð›AHOBI
B(718 \TEDIT.SCAN.LINE.WORD 660 IMAGEOBJP 71 \TEDIT.FORMATLINE)
(670 CHAR 613 LEFT 607 RIGHT 579 NORMAL 569 IMAGEOBJ 553 NORMAL 529 NORMAL 430 THISLINE 415 THISLINE 406 THISLINE 310 THISLINE 298 THISLINE 289 THISLINE 257 DELETE 246 RIGHT 141 THISLINE 129 THISLINE 120 THISLINE 57 THISLINE 41 TEXTOBJ 34 STREAM 25 TEXTOBJ 17 CHAR 11 SELECTION 5 LINEDESCRIPTOR)
()
\TEDIT.SCAN.LINE.WORD :D8
(P 17 CHARCL P 16 CHARW P 15 CHAR P 14 CSLOT P 12 PREVCHAR P 10 CHARCL P 9 CHARW P 8 CHAR P 7 CSLOT P 5 LASTCHAR P 3 XLIM P 2 X0 P 1 CHLIM P 0 CH# I 4 CHARSLOT I 3 NEWSEL I 2 THISLINE I 1 TEXTOBJ I 0 X) tCCÉgðªo ¿CÉCÉ
CÉCÉDÉDmúÐR NdÛ¿BÉmúÐ_¿BÉ_¿OÉ_¿OÉ_¿OÉ_¿Oó0AOM ³%OÊ jð²JjOÙÔºHmÿÔ¸O½OdO𢱫¿DÉDlÐROdÙ¿OÉ_¿BÉ_$¿OÉ_¿OÉ_ ¿OÉ_"¿OO$ð³OóAOO ¨O"Ê jð³LCgCHCI
CIHÙ CJCKCDÉÊjð²lKJÙñ³2@KJØâýñ³)g°'múÐ_±ÿ
KO Ô»IkÔ¹O_¿OlÐ_±ÿjg\L(252 \TEDIT.WORD.BOUND 124 \TEDIT.WORD.BOUND 25 \TEDIT.THELP)
(365 LEFT 326 RIGHT 269 WORD 240 IMAGEOBJ 200 THISLINE 189 THISLINE 180 THISLINE 113 IMAGEOBJ 80 THISLINE 66 THISLINE 58 THISLINE 13 CHAR 5 SELECTION)
( 20 "Can only expand CHAR selections to WORD selections")
\TEDIT.XYTOSEL :D8
(P 4 SELFN P 3 PARALASTCHNO P 2 PARAFIRSTCHNO P 1 LINE P 0 TEXTOBJ I 8 REGIONTYPE I 7 CURSEL I 6 BUTTON I 5 PANE I 4 SELOPERATION I 3 TSTREAM I 2 NEWSEL I 1 Y I 0 X) Ï BBjÏ¿jdðhðCÑC‡CÉA@AEH Y´‚±²Ggð­Gdg𢱇¿IÉkØHÉñ²IÉAñœIÉkØb¿I@BDCFddgðŸ¿GÉo
ˆgð´i
¢±ãBÉ¢±ÜG¢±ÖGhCh ¿CBI@AEDF
±¹gð²<HÊ8jð¦BjÏhBIÉhghIÉkØ
¿Bg¿Bh¿BkÏ°vGgð²bHÊ8jð²½Bh¿HIÉi ºHIÉi »BJhIÉJÙKkØIÉÙñ¥g„ghKkØ
¿Bh¿Bg¿Bkωo ¿BÊjð’±ÿVHg
\²HBDglLgð’±ÿ,BjÏ¿jdðhðBC
B(459 \TEDIT.FIXSEL 415 GETTEXTPROP 393 \TEDIT.THELP 362 \TEDIT.UPDATE.SEL 322 \TEDIT.PARA.LAST 310 \TEDIT.PARA.FIRST 255 \TEDIT.UPDATE.SEL 208 \TEDIT.SELECT.OBJECT 193 \TEDIT.SHOWSEL 166 \TEDIT.SCAN.LINE 150 MEMB 50 \TEDIT.XYTOSEL.LINE)
(436 DON'T 426 TENTATIVE 410 SELFN 374 PARA 352 RIGHT 346 LEFT 284 PARA 262 LINE 243 LEFT 216 LINE 156 MIDDLE 133 RIGHT 113 LINEDESCRIPTOR 102 LINEDESCRIPTOR 86 LINEDESCRIPTOR 74 PANE 64 TEXT 38 TEXTOBJ 31 STREAM 22 TEXTOBJ 5 SELECTION)
( 388 "Unknown text/line-bar region?" 145 (WORD PARA))
\TEDIT.REGIONTYPE :D8
(L (1 TEXTOBJ 0 CURSEL)) CAÉgð¥g`dkð›¿Aɲglð²@Ÿ@Éo
µg(56 MEMB)
(64 LINE 35 PARA 20 LASTMOUSEBUTTONS 14 TEXT 7 LINE)
( 51 (LINE PARA))
\TEDIT.XYTOSEL.INLINEP :D8
(I 3 TEXTOBJ I 2 PANE I 1 Y I 0 X) @ABC H´@HÉÙlñ¡Hh(8 \TEDIT.XYTOSEL.LINE)
NIL
()
\TEDIT.XYTOSEL.LINE :D8
(P 0 L I 3 TEXTOBJ I 2 PANE I 1 Y I 0 X) —Bg
Éd¥B
@A ´I0Bg
É<02>HYɵ)HBg
Éð³<H²7IdÉCÉýñ³-ÉXÉAñ³ÄHÉkØHÉÙZjð­JµH ²ùIh(143 \FZEROP 79 GETWINDOWPROP 48 GETWINDOWPROP 32 INSIDEP 25 DSPCLIPPINGREGION 10 GETWINDOWPROP)
(111 LINEDESCRIPTOR 84 PANEPROPS 74 PANEPROPS 63 LINEDESCRIPTOR 53 PANEPROPS 43 PANEPROPS 15 PANEPROPS 5 PANEPROPS)
()
\TEDIT.FIXSEL :D8
(P 20 L P 19 PBOTTOM P 18 L P 17 LN P 16 L1 P 15 XLIM P 14 X0 P 13 PENDLINE P 12 PSTARTLINE P 11 PANE P 7 LASTCHNO P 6 FIRSTCHNO P 0 TEXTOBJ I 2 ONLYPANE I 1 TSTREAM I 0 SEL) :AÑA‡AÉ1@µHÉb¿HÉ¢±ö@Êjð’±ìHÊXjð¢±â@É@É@ɹkIñ¡I€k@É
kÙºkJñ¡J€kH•M_ ¿L_"¿OdÔ¿Oɵ±¥_¿O"¢±›O ¢±”B™OdBð¢±v¿Og
Éɵ°6_$¿O h¿O"h¿O$ÉkØNñ<4E>O$ÉOñ¥O$µi‹O$ɵGh_¢±O³_NOÉýñ³VNOÉkØýñ´LO´HAONOÉ»dKñ¡¿K@É jð²@Égð°_$°”NHÉñ´OÉÉ _¿@O¿hO
!O°O(ÉO&ñ£O*°O(_*ɵ:O*µO_¤O_¿O³SOOÉýñ³IOOÉkØýñ²=O²9@É jð²O°%_(¿OO(ÉkØýñ²<C3B1>O(°¸AOOi _¿@O¿O O¿O"O¿OOOh_¿Oµ Oh_¿Og
ɵ @O&°ã_¿O _ ¿O"_"±þN(535 GETWINDOWPROP 478 \TEDIT.CHTOLINEX 353 DSPCLIPPINGREGION 336 \TEDIT.CHTOLINEX 170 GETWINDOWPROP)
(540 PANEPROPS 530 PANEPROPS 448 LINEDESCRIPTOR 383 LINEDESCRIPTOR 314 LINEDESCRIPTOR 306 RIGHT 236 LINEDESCRIPTOR 193 LINEDESCRIPTOR 182 LINEDESCRIPTOR 175 PANEPROPS 165 PANEPROPS 115 TEXTOBJ 37 SELECTION 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.CHTOLINEX :D8
(P 9 CHARCL P 8 CHARW P 7 CHAR P 6 CHARSLOT P 4 CHNO P 3 X P 2 X P 1 THISLINE P 0 TEXTOBJ I 3 AFTER I 2 CH# I 1 LINE I 0 TSTREAM) ô A@Ñ@‡@ÉHÉ8¹AIÉðª@AÉA ¿C<C2BF>BAÉÙjð“AÉC«BAÉÙjð“AÉ
AÉ
AÉIS
MdØ¿MɾIÉ_¿NÉ_¿NÉ_¿NÉ_¿OŸlÀOñ©OlÏñ£j_¿NOð³#LdBÙjðš¿C•KNÉÔKkÔ¼KOÔ»NlÐ^°µBAÉÙjð´AÉkØHÉñ´AÉAÉ
ð´AÉ
(63 \TEDIT.FORMATLINE)
(126 THISLINE 117 THISLINE 109 THISLINE 49 THISLINE 36 TEXTOBJ 27 TEXTOBJ 20 STREAM 11 TEXTOBJ 5 LINEDESCRIPTOR)
()
\TEDIT.RESET.EXTEND.PENDING.DELETE :D8
(P 0 TEXTOBJ I 0 TSTREAM) K@Ñ@‡@Éhd@h HÉg
HjÏF¿jdðhð(56 \TEDIT.SET.SEL.LOOKS 33 \TEDIT.SHOWSEL)
(62 TEXTOBJ 51 NORMAL 46 SELECTION 39 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.SET.SEL.LOOKS :D8
(I 1 OPERATION I 0 SEL) î@Adgð²¿@nÿÿ¿@k¿@kϱÄgð²@nww¿@k¿@jϱ¨Adgð²¿@nww¿@l¿@jϱˆgð²@nÿÿ¿@n@¿@jÏ°jAdgð²¿@nÿÿ¿@n@¿@jÏ°Jgð²@nÿÿ¿@n@¿@kÏ°-Adgð²¿@nÿÿ¿@n@¿@kÏ‹›oA
¿@A@(229 \TEDIT.THELP)
(193 INVERTED 162 PENDINGDEL 132 DELETE 101 MOVE 71 COPYLOOKS 41 COPY 12 NORMAL 5 SELECTION)
( 223 "UNKNOWN SELECTION OPERATION")
\TEDIT.SHOWSEL :D8
(P 7 LN P 6 L1 P 5 PANE P 0 TEXTOBJ I 4 DONTFIX I 3 ONLYPANE I 2 TSTREAM I 1 ON I 0 SEL)  BÑB‡BÉ@µHÉb@Êjð’±ÛA@Êjðhðð’±ÍHÊXjð´‚±ÂHÉ´‚±¹AšD¨@BC ¿@ɲB@HÉJA•g„g ¿°q@É@ÉH3LdÓ¿Lɵ°V½Kµ°O¾Jµ°G_¿C–MdCð²(¿N²O²@É jð¬HNOM@
¿@MHA ¿Mg
ɵ@Ašk‰½K»Jº° jYÏ¿Ijðhðh(227 GETWINDOWPROP 215 \TEDIT.SETCARET 205 \TEDIT.SHOWSEL.HILIGHT 123 \TEDIT.OPERATE.OBJECT 94 \TEDIT.FIXSEL)
(232 PANEPROPS 222 PANEPROPS 143 TEXTOBJ 118 UNHIGHLIGHTED 112 HIGHLIGHTED 37 SELECTION 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.NOSEL :D8
(I 2 ONLYPANE I 1 SEL I 0 TSTREAM) Ah@B (8 \TEDIT.SHOWSEL)
NIL
()
\TEDIT.SEL.OFF :D8
(I 2 ONLYPANE I 1 SEL I 0 TSTREAM) Ah@B (8 \TEDIT.SHOWSEL)
NIL
()
\TEDIT.SECONDARYSEL.OFF :D8
(P 0 TOBJ I 0 TSTREAM) "@ÉHÉ´HÉh@h Hhh(26 \TEDIT.SHOWSEL)
(5 STREAM)
()
\TEDIT.SEL.ON :D8
(I 3 DONTFIX I 2 ONLYPANE I 1 SEL I 0 TSTREAM)
Ai@BC
(10 \TEDIT.SHOWSEL)
NIL
()
\TEDIT.SHOWSEL.HILIGHT :D8
(P 8 DISTBELOW P 7 RIGHT P 6 LEFT P 5 L P 4 PBOTTOM P 3 SHADEHEIGHT P 2 SHADE P 1 LASTCHNO P 0 CH# I 4 SEL I 3 PANE I 2 LN I 1 L1 I 0 TEXTOBJ) ×
ABDÉDÉ
kÙDɵnÿÿDɵkhC
U j_¿Jnÿÿð™@Ê:jð¢l»A°\MÉ
¾IMÉýñ­IMÉkØýñ”M´D€MÉ_¿JCNMÉOÙONÙKMÉ _¿dOñ’¿Og
¿MdB𑿈ɵh]ÉLýñ³óHMÉýñ³ŠHMÉkØýñ¢±ÿM´‚±ÿyDɱÿu(143 BLTSHADE 40 DSPCLIPPINGREGION)
(182 LINEDESCRIPTOR 167 LINEDESCRIPTOR 156 LINEDESCRIPTOR 137 INVERT 79 LINEDESCRIPTOR 11 LINEDESCRIPTOR 5 LINEDESCRIPTOR)
()
\TEDIT.UPDATE.SEL :D8
(P 1 SEL P 0 TSTREAM I 5 CHLIM I 4 LOOKS I 3 POINT I 2 DCH I 1 CH# I 0 TSTREAM/SEL) 5 @ò7@Éò(@XÑH‡HÉÉY°/@Ó@Y°$@ß@XÉYŠoI
¿Aò)BªAÉb¿CªAÉb¿AÉb¿°?Ad²¿B¥Ab¿C¦Ab¿A³%A°ªIÉb¿B¨Eµ5IÉ b¿C¥IÉb¿kAñ›kb¿gb¿IAIB IBjð–Ak…AÙ°ÎABØ
ICIhIkÏ¿kjðhðD—ID
¿HšIiHhd
I(305 \TEDIT.SHOWSEL 291 \TEDIT.SET.SEL.LOOKS 108 \TEDIT.THELP)
(239 SELECTION 230 LEFT 193 SELECTION 149 TEDITHISTORYEVENT 138 TEDITHISTORYEVENT 125 TEDITHISTORYEVENT 115 TEDITHISTORYEVENT 95 SELECTION 88 TEXTOBJ 80 TEXTOBJ 69 SELECTION 60 SELECTION 53 TEXTOBJ 48 TEXTOBJ 41 STREAM 32 TEXTOBJ 23 TEXTOBJ 16 STREAM 8 STREAM)
( 102 "Not a text stream or selection")
\TEDIT.CARETLINE :D8
(I 2 TEXTOBJ I 1 PANE I 0 SEL) M@Êjð³?@Édgð™¿@AB gð˜@AB o@É
h(72 \TEDIT.THELP 53 \TEDIT.SEL.LN 37 \TEDIT.SEL.L1)
(65 SELECTION 43 RIGHT 26 LEFT 18 SELECTION 5 SELECTION)
( 59 "ILLEGAL POINT")
\TEDIT.SEL.L1 :D8
(P 3 P P 2 L I 2 TEXTOBJ I 1 PANE I 0 SEL) LA¥BÉJb¿@ÉB"Idò%¿IÉ°ºKAð‘JH¸Kg
ɵh»HµÜ°ù(56 GETWINDOWPROP)
(61 PANEPROPS 51 PANEPROPS 26 TEXTOBJ 13 SELECTION)
()
\TEDIT.SEL.LN :D8
(P 3 P P 2 L I 2 TEXTOBJ I 1 PANE I 0 SEL) LA¥BÉJb¿@ÉB"Idò%¿IÉ°ºKAð‘JH¸Kg
ɵh»HµÜ°ù(56 GETWINDOWPROP)
(61 PANEPROPS 51 PANEPROPS 26 TEXTOBJ 13 SELECTION)
()
\TEDIT.SEL.DELETEDCHARS :D8
(P 3 DCH P 2 E P 1 B P 0 LASTCHAR I 2 LEN I 1 FIRSTCHAR I 0 SELTOFIX) ”AÛAÉ b¿AÉb€ABØmÿØ@É@É
kÙ@É $AJñ‘hIHñ²-@@ÉjBÙÔ@@É
jBÙÔ\
L@IdAñ‘¿AAIñ«JHÙ½jMñ¡M<C2A1>j<EFBFBD>HJñ¢KB…KJAÙkØÙg (145 \TEDIT.UPDATE.SEL)
(140 LEFT 86 SELECTION 80 SELECTION 66 SELECTION 60 SELECTION 33 SELECTION 5 SELECTION)
()
\TEDIT.COPYSEL :D8
(I 1 TO I 0 FROM) @AµL`@
dhο@É HdI¿@É HdI¿@É HdI¿bA¿A@É¿A@É¿A@É¿A@É

¿A@É  ¿A@É ¿A@É ¿A@É ¿A@É¿A@Êjð¡k€jHIÏ¿I¿AhοA@É¿A@É¿A@É¿A@Êjð¡k€jHIÏ¿I¿A@É¿A@Êjð¡k€jHIÏ¿I¿A@ɱÿ>(156 COPY 144 COPY 132 COPY 68 COPY 50 COPY 32 COPY 19 NCREATE2)
(87 SELECTION 13 |SELECTIONTYPE#| 5 SELECTION)
()
\TEDIT.SEL.CHANGED? :D8
(I 1 OLDSEL I 0 NEWSEL) y@AAÊjðhð´a@ÉAÉÙjð´V@É
AÉ
Ùjð´K@É AÉ Ùjð´@@ÉAÉð´7@ÉAÉð´.@ÉAÉð´%@ÉAÉð´@ÊjðhðAÊjðhðð´ @ÉAÉðhðNIL
(11 SELECTION 5 SELECTION)
()
\TEDIT.SELECT.OBJECTA0001A0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 OBJ F 4 SELPANE F 5 NEWSEL F 6 BUTTON F 7 X F 8 SELOPERATION F 9 Y F 10 LINE F 11 SI::NLSETQ-VALUE) G i@Sg
ºST ÉUWUÉÙWWÉÙTdg
VWl Jhcg(51 GETWINDOWPROP 23 \INSUREWINDOW 15 IMAGEOBJPROP)
(68 :NORMAL 46 TEXTSTREAM 10 BUTTONEVENTINFN)
()
\TEDIT.SELECT.OBJECTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 NEWSEL F 5 LINE F 6 RESULT F 7 PANE F 8 *PROCEED-CASES*) /STÉUW `WI gð´Hc (31 \TEDIT.SELECT.OBJECTA0001A0002 11 \TEDIT.CLIP.OBJECT)
(37 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
()
\TEDIT.SELECT.OBJECT :D8
(P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 RESULT P 1 OBJ P 0 TEXTOBJ I 7 BUTTON I 6 SELOPERATION I 5 SELPANE I 4 Y I 3 X I 2 LINE I 1 NEWSEL I 0 TSTREAM F 6 LISPXHIST) Ø@Ñ@‡@ÉAÉV!g ¿$J²/Jgð³&Jdš¿gJ³Jgð­Jd²¿gJ›AjÏ¿jdðhðJgð®Jd²L¿gJ²A@gAÉk hi@ih
HhHÊ,jðhðið³Hi
HkÏ,¿kjðhðhJ¥AhhJ(188 \TEDIT.WINDOW.TITLE 165 \TEDIT.SHOWSEL 154 \TEDIT.UPDATE.LINES 51 SI::RESETUNWIND 46 \MVLIST 41 \TEDIT.SELECT.OBJECTA0001)
(145 CHANGED 135 CHANGED 122 CHANGED 101 DONT 88 DONT 78 DON'T 65 DON'T 36 SI::RESETUNWIND 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.SHOWSEL.OBJECTA0001A0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 ON F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 IMAGEFN) (i@RST•g„gVWlWhc
gNIL
(37 :NORMAL 19 UNHIGHLIGHTED 13 HIGHLIGHTED)
()
\TEDIT.SHOWSEL.OBJECTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 SEL F 5 *PROCEED-CASES* F 6 L1 F 7 PANE) +STÉVW `UI gð´H(30 \TEDIT.SHOWSEL.OBJECTA0001A0002 11 \TEDIT.CLIP.OBJECT)
(36 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
()
\TEDIT.SHOWSEL.OBJECT :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 IMAGEFN P 0 OBJ I 4 PANE I 3 ON I 2 L1 I 1 SEL I 0 TSTREAM F 5 LISPXHIST) `AÉAÉg
I´EDg
Éd¥D
AÉBÉ ´U!g ¿$(89 SI::RESETUNWIND 84 \MVLIST 79 \TEDIT.SHOWSEL.OBJECTA0001 63 INSIDE? 52 DSPCLIPPINGREGION 37 GETWINDOWPROP 20 IMAGEOBJPROP 4 NOTUSED)
(74 SI::RESETUNWIND 42 PANEPROPS 32 PANEPROPS 15 WHENOPERATEDONFN)
()
\TEDIT.CLIP.OBJECT :D8
(P 1 DS P 0 OBJBOX I 3 PANE I 2 LINE I 1 X I 0 OBJ F 3 SI::*RESETFORMS*) Ð@g
µ @C
C ÉgggIhhAhI
ØHÙI
hScgggIhhBÉhI
ØHÙI
hScgggIhhjdHhC
AÙºdJñ‘¿JHhI
hSc(198 DSPCLIPPINGREGION 172 DSPCLIPPINGREGION 131 DSPYOFFSET 119 DSPYOFFSET 74 DSPXOFFSET 61 DSPXOFFSET 25 \INSUREWINDOW 19 IMAGEBOX 10 IMAGEOBJPROP)
(153 OLDVALUE 148 DSPCLIPPINGREGION 143 PROGN 110 LINEDESCRIPTOR 96 OLDVALUE 91 DSPYOFFSET 86 PROGN 45 OLDVALUE 40 DSPXOFFSET 35 PROGN 5 BOUNDBOX)
()
\TEDIT.OPERATE.OBJECTA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 OPERATION F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 WHENOPERATEDONFN) #i@RS ÉTVWlWhc
g(11 \INSUREWINDOW)
(32 :NORMAL)
()
\TEDIT.OPERATE.OBJECTA0002A0003 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 OPERATION F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 WHENOPERATEDONFN) #i@RS ÉTVWlWhc
g(11 \INSUREWINDOW)
(32 :NORMAL)
()
\TEDIT.OPERATE.OBJECTA0002 :D8
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 SEL F 5 *PROCEED-CASES* F 6 L1 F 7 P) +STÉVW `UI gð´H(30 \TEDIT.OPERATE.OBJECTA0002A0003 11 \TEDIT.CLIP.OBJECT)
(36 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
()
\TEDIT.OPERATE.OBJECT :D8
(P 13 RESETSTATE P 12 SI::*RESETFORMS* P 11 LISPXHIST P 10 P P 9 L1 P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 LINE P 2 TEXTOBJ P 1 WHENOPERATEDONFN P 0 OBJ I 3 OPERATION I 2 PANE I 1 SEL I 0 TSTREAM F 14 *PROCEED-CASES* F 15 LISPXHIST) 9AÉHg
!@Ñ@‡@ɺh»I´‚±ðCdgð²I¿ABJ [´‚±Öhd@h AÉKÉB `WM Ai@hd
gð³CgðªCgð¢±<00>AÉJ"
Odòo¿OÉ°h_²JOg
Éd¦O
AÉOÉ ² W!
g ¿$O_¿Og
ɵh_¿Oµ<>°öoC
(310 \TEDIT.THELP 278 GETWINDOWPROP 255 SI::RESETUNWIND 250 \MVLIST 245 \TEDIT.OPERATE.OBJECTA0002 228 INSIDE? 216 DSPCLIPPINGREGION 200 GETWINDOWPROP 131 \TEDIT.SHOWSEL 118 \TEDIT.OPERATE.OBJECTA0001 98 MOVETO 86 \TEDIT.SHOWSEL 70 \TEDIT.SEL.L1 16 IMAGEOBJPROP)
(283 PANEPROPS 273 PANEPROPS 240 SI::RESETUNWIND 205 PANEPROPS 195 PANEPROPS 174 TEXTOBJ 154 DESELECTED 146 UNHIGHLIGHTED 137 HIGHLIGHTED 106 SI::NLSETQ-PROCEED-CASE 58 SELECTED 41 TEXTOBJ 34 STREAM 25 TEXTOBJ 11 WHENOPERATEDONFN)
( 304 "BAD WHENOPERATEDON OPERATION")
\TEDIT.SELPIECES :D8
(P 2 RIGHTPC P 1 LEFTPC P 0 FIRSTCHAR I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) Î
p@ò)@Êjð³@ɸ@É jð‘H‚@É
kÙb¿°;j¸mÿb¿°2@ò(@ɸ@ɵj@ɵjØkÙb¿<>@¸HBɼ»kKñhð´_KLñhð´XAHBÉ OOñhð´ OOñhð´=AkØB
ZHB
Y`dI¿JÉ
½dM¿AHÙkؾdN¿dH¿dA¿(161 \TEDIT.ALIGNEDPIECE 153 \TEDIT.ALIGNEDPIECE)
(167 |SELPIECESTYPE#| 83 TEDITHISTORYEVENT 72 TEDITHISTORYEVENT 63 TEDITHISTORYEVENT 55 TEDITHISTORYEVENT 8 SELECTION)
()
\TEDIT.SELPIECES.COPY :D8
(P 4 NEWFIRSTPIECE P 3 PREVPC P 2 NPC P 1 PC I 4 CHARLOOKS I 3 FROMTSTREAM I 2 TOTSTREAM I 1 OPERATION I 0 SELPIECES) @´hC£Bb¿@QHµ°D¿HɹHɽICBhA
Z¡hD”JD ¿Kµ)J\¿JKÎ
¿J»IdMð²#¿`@
dL¿dK¿J°ÓÉY°¯(94 NCREATE2 52 \TEDIT.COPYPIECE)
(122 PIECE 110 PIECE 88 |SELPIECESTYPE#| 40 PIECE 31 PIECE 22 SELPIECES)
()
\TEDIT.SELPIECES.CONCAT :D8
(I 2 TEXTOBJ I 1 SP2 I 0 SP1) r@É¡AAÉ¡@@ÉAÉAÉ@ÉÎ
`@ÉHdI¿AÉHdI¿@ÉAÉØHdI¿@ÉHdI¿AÉHdI¿NIL
(42 |SELPIECESTYPE#| 16 SELPIECES 5 SELPIECES)
()
\TEDIT.SELPIECES.CHARTRANSFORM :D8
(P 10 I P 8 CH P 7 STR P 6 I P 4 PCONTENTS P 3 PC P 1 INDEX P 0 TEXTOBJ I 3 TSTREAM I 2 OBJECTSTOO I 1 CHARFN I 0 SELPIECES) J CÑC‡CÉj@3Jµ±¿JÉ»JɽKɼKÊdlð¥dlð²3¿kLON
_²ONOIkÔYHlA ¿NkÔ¾°Û±½djð³dlð¯dl ðªdlð¥dl ð²|¿KÉ KÉkÙj
OOó³'OOkØKO
IkÔYlA ¿OkÔ_°ØOÊjð§O „OʇlDðšKlÏ¿KlˆKlÏ¿Kk¿KO°(lð²IkÔ¹B²KLIlA<00>oKÊ
¿KdMð‘@É[±þô(309 \TEDIT.THELP 231 %%ARRAY-TYPE-NUMBER 206 RPLCHARCODE 192 \TEDIT.PIECE.NTHCHARCODE 159 ALLOCSTRING 113 RPLCHARCODE 89 NTHCHARCODE)
(324 PIECE 55 PIECE 46 PIECE 37 SELPIECES 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 300 "ILLEGAL PIECE TYPE")
\TEDIT.SELPIECES.FROM.STRING :D8
(P 17 PREVPC P 16 STR P 15 PC P 11 LASTEOLPOS P 10 NCHARS P 3 EOLPOS P 2 FIRSTPIECE P 1 PTYPE P 0 BYTESPERCHAR I 4 PARALOOKS I 3 CHARLOOKS I 2 CHECKFOREOL I 1 TEXTOBJ I 0 STRING) «AC¥AÉ@b¿D¥AÉ:b¿Aµ kl‚ @ bdÊjð³d °Ê:jð³Ýib¿°×@ʇlDð•l¹l¸B¢±íg@
[¢±Ý@ jb@OkØK_ _ ¿`dIÏ¿dO ¿O ¼dL¿dC ¿dD¿dkÏ¿dOÎ
¿dj¿_O"µ{O_"¿g@OkØ µO»_¿OµSOh__¿OOñ³‚O mÿ
l
ð¦OjÏ¿`O½dM¿dO¿dO¿dk¿@ ¾dN¿O&_¿°²O¿°‚`dIÏ¿d@¿@ _¿dO¿dH¿dC ¿dD¿dj¿Z`dJ¿dJ¿@ _¿dO¿dk¿@ _¿dO¿(415 NCHARS 395 NCHARS 343 NCHARS 298 NCHARS 249 NTHCHARCODE 212 STRPOS 153 NCHARS 125 SUBSTRING 108 NCHARS 97 STRPOS 52 %%ARRAY-TYPE-NUMBER 36 CONCAT)
(378 |SELPIECESTYPE#| 325 |PIECETYPE#| 265 |SELPIECESTYPE#| 202 %
133 |PIECETYPE#| 91 %
5 TEXTOBJ)
()
\TEDIT.SELPIECES.TO.STRING :D8
(P 7 J P 4 PCONTENTS P 3 PC P 1 RESULT P 0 I I 2 TEXTOBJ I 1 OBJECTCHARCODE I 0 SELPIECES) k@É @3Jµ±ã¿JÉ»JɽKɼKÊdlð¥dlð²¿IHL ¿HKÉÔX±Ÿdjð³dkð³dlð¯dl ðªdlð¥dl ð²7¿LKÉ
¿KÉkONó³IHL ¿HkÔ¸OkÔ_°ä°Kdlð²'¿IHAµBg
bµl ¿HkÔX°lðšo <00>oKÊ
¿KdMð‘IÉ[±ÿ/(241 \TEDIT.THELP 226 \TEDIT.THELP 205 RPLCHARCODE 194 GETTEXTPROP 153 RPLCHARCODE 148 \INCCODE 126 SETFILEPTR 75 RPLSTRING 13 ALLOCSTRING)
(256 PIECE 189 OBJECTBYTE 46 PIECE 37 PIECE 28 SELPIECES 6 SELPIECES)
( 232 "ILLEGAL PIECE TYPE" 221 "SUBSTREAM PIECES NOT IMPLEMENTED")
TEDIT.XYTOCH :D8
(P 2 SCRSEL I 2 PANE I 1 Y I 0 X) Ü`dkÏ¿dk¿dnÿÿ¿djÏ¿dg¿hdHdI¿hdHdI¿dj¿@dgðš¿hB
°gðœhB
kÙ€@bAdgð²¿Bg
É kÙ°gð™hB
€Ab@AJBg
gBghg
JÊjð£JÉh(205 \TEDIT.XYTOSEL 182 GETWINDOWPROP 162 DSPCLIPPINGREGION 137 GETWINDOWPROP 106 DSPCLIPPINGREGION 89 DSPCLIPPINGREGION)
(199 TEXT 193 LEFT 187 NORMAL 177 TEXTSTREAM 153 BOTTOM 142 PANEPROPS 132 PANEPROPS 122 TOP 97 RIGHT 79 LEFT 35 LEFT 4 |SELECTIONTYPE#|)
()
TEDIT.SELPROP :D8
(P 3 NEWVALUE P 2 PROP P 1 SEL P 0 X) *elHñ–H ¿kaÓka°ka ÉlaJdgð–¿IɱÛgð•IÉ
±ÎJgð©Jdgð–¿IÉ ±¶gð•Iɱ©Jgð©Jdgð–¿Iɱ‘gð²IÉ jð”IÉ°}IÉ
kÙ°qJdgð›¿IÉI
°\gð”IÉ°PJdgð•¿IÉ°Agð”IÉ°5Jdgð•¿IÉ°&gð”IÉ°Jdgð™¿IÊjðhð„ Hlñ¢±la»Jdgð—¿IK±âgð©Jdgð›¿IhK ±Ægð²IKo
µK ±¤JgðªJdgð²¿IKo
µK °wgðŸIhKkØIÉÙ °`Jdgðž¿IhKIÉÙ °Hgð•IK°;Jdgð–¿IK°+gð˜IK
°Jdgðš¿IK‘k€jÏ„ ¿IÉ™IdÉ
¿(550 \TEDIT.FIXSEL 536 \ILLEGAL.ARG 509 \TEDIT.SET.SEL.LOOKS 464 \TEDIT.UPDATE.SEL 440 \TEDIT.UPDATE.SEL 415 \ILLEGAL.ARG 406 MEMB 370 \ILLEGAL.ARG 361 MEMB 338 \TEDIT.UPDATE.SEL 284 \ILLEGAL.ARG 192 TEDIT.GETPOINT 34 TEXTOBJ 14 \ILLEGAL.ARG)
(518 SET 500 SELOPERATION 486 SHADEHEIGHT 471 SHADE 449 CHLIM 424 CHLAST 390 SELKIND 381 KIND 346 POINT 327 DCH 318 LENGTH 303 CH# 267 SET 253 SELOPERATION 240 SHADEHEIGHT 226 SHADE 213 TEXTSTREAM 199 SELOBJ 180 POINTCH# 167 SELECTION 147 CHLAST 133 SELKIND 124 KIND 110 POINT 96 DCH 87 LENGTH 73 CHLIM 59 CH# 46 SELECTION 39 TEXTOBJ 22 SELECTION)
( 401 (CHAR WORD LINE PARA VOLATILE) 356 (LEFT RIGHT))
TEDIT.GETPOINT :D8
(P 0 TEXTOBJ I 1 SEL I 0 TSTREAM) s@ Ad3 ²HÉkØñ£kAñ•A A¥HÉb€AAÉdgð”¿AÉgð²AÉ Yjð¯IµAÉ
 ²÷AÉkØoAÉ
(112 \TEDIT.THELP 91 \FZEROP 31 \ILLEGAL.ARG 5 TEXTOBJ)
(67 RIGHT 55 LEFT 46 SELECTION)
( 104 "Selection's POINT is neither RIGHT nor LEFT.")
TEDIT.GETSEL :D8
(I 0 TSTREAM) 4@ bd É`H
d@οdh¿dh¿dh¿(29 NCREATE2 13 TEXTOBJ 5 TEXTSTREAM)
(23 |SELECTIONTYPE#|)
()
TEDIT.GETSEL.PARA :D8
(P 4 PCHLIM P 3 PCH# P 1 SEL P 0 TEXTOBJ I 0 TSTREAM) a@ !HɹHIÉ
HIÉ
kÙ
kØ`I
dK¿dL
¿LKÙºdJ ¿djÏ¿dkÏ¿(63 NCREATE2 46 \TEDIT.PARA.LAST 26 \TEDIT.PARA.FIRST 5 TEXTOBJ)
(57 |SELECTIONTYPE#| 37 SELECTION 19 SELECTION)
()
TEDIT.SCANSEL :D8
(P 0 SEL I 0 TSTREAM) 3@ bdÉÉHÊjð®@HÉkÙ
HÉ h(43 \TEDIT.TEXTSETFILEPTR 5 TEXTSTREAM)
(26 SELECTION 13 STREAM)
()
TEDIT.SET.SEL.LOOKS :D8
(P 1 TSTREAM P 0 WASON I 1 OPERATION I 0 SEL) 1@Êjðhð@ @hIh @A
@HI @(45 \TEDIT.SHOWSEL 37 \TEDIT.SET.SEL.LOOKS 30 \TEDIT.SHOWSEL 18 TEXTSTREAM)
(5 SELECTION)
()
TEDIT.SETSEL :D8
(P 3 PC P 2 TEXTLEN P 1 SEL P 0 TEXTOBJ I 6 OPERATION I 5 LEAVECARETLOOKS I 4 PENDINGDELFLG I 3 POINT I 2 LEN I 1 CH# I 0 TSTREAM) E@ bBŸjBñ›oB
¿@Ñ@‡@ÉQHɹHɺh[d@h AòAI
¿Ijϱ™Cdgð³gð³Cµ
gb‰o
¿jAñ—kJØAØb¿JjðžIkjg °QAJñžIJjg °>BJAÙkؼdLñ‘¿Lb¿IABC ¿IBkð´dÉH
[Êlð´KÉ¿HD‘k€j]ÏF¿MjðhðIF
E¯HHI
4¿Ii@ Hh@ (322 TEDIT.GETSEL 312 \TEDIT.SHOWSEL 301 \TEDIT.GET.INSERT.CHARLOOKS 286 \TEDIT.SET.SEL.LOOKS 243 \TEDIT.CHTOPC 222 \TEDIT.UPDATE.SEL 195 \TEDIT.UPDATE.SEL 176 \TEDIT.UPDATE.SEL 146 ERROR 93 \TEDIT.COPYSEL 78 \TEDIT.SHOWSEL 24 ERROR 5 TEXTSTREAM)
(294 TEXTOBJ 264 TEXTOBJ 235 SELECTION 190 RIGHT 171 LEFT 133 LEFT 122 RIGHT 114 LEFT 100 SELECTION 84 SELECTION 63 SELECTION 56 TEXTOBJ 47 TEXTOBJ 40 STREAM 31 TEXTOBJ)
( 141 "is an illegal POINT" 18 "Selection length cannot be negative")
TEDIT.SHOWSEL :D8
(I 2 SEL I 1 ONFLG I 0 TSTREAM) A™hd@h ¿BA@ (19 \TEDIT.SHOWSEL 10 \TEDIT.SHOWSEL)
NIL
()
TEDIT.SEL.AS.STRING :D8
(P 4 C P 3 I P 1 CH# P 0 RESULT I 3 CODEFOROBJECT I 2 LEN I 1 SEL/CH# I 0 TSTREAM) –@ bA³dÉÉb¿ AòAÉ b¿AÉ€A¹Bjð«Bd² šo Bl
X@IkÙ
BkKJó³ @ \ ’CµHKL ¿KkÔ[°ã¼°ðH(136 RPLCHARCODE 124 IMAGEOBJP 106 \TEDIT.TEXTSETFILEPTR 96 ALLOCSTRING 87 CONCAT 76 \FZEROP 5 TEXTSTREAM)
(56 SELECTION 45 SELECTION 37 SELECTION 23 TEXTOBJ 16 STREAM)
( 82 "")
TEDIT.SEL.AS.SEXPRA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TSTREAM F 3 RDTBL F 4 FLG F 5 SI::NLSETQ-VALUE) i@RST hc
g(12 READ)
(21 :NORMAL)
()
TEDIT.SEL.AS.SEXPR :D8
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 3 FLG I 2 RDTBL I 1 SEL I 0 TSTREAM F 4 *READTABLE* F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) O@ bdddA
BµT kÙ
`UioVI gð´H(64 TEDIT.SEL.AS.SEXPRA0001 37 \TEDIT.TEXTSETFILEPTR 30 \TEDIT.WORD.FIRST 25 TEDIT.ATOMBOUND.READTABLE 16 TEDIT.GETPOINT 5 TEXTSTREAM)
(70 :NORMAL 45 SI::NLSETQ-PROCEED-CASE)
( 53 (CL:ERROR . SI::NLSETQHANDLER))
TEDIT.SELECTALL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @j@ ÉkØg (21 TEDIT.SETSEL 7 TEXTOBJ)
(16 LEFT)
()
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
(RPAQQ TEDIT-SELECTIONCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS SELECTION SELPIECES) (
CONSTANTS (COPYSELSHADE 30583) (COPYLOOKSSELSHADE 30583) (EDITMOVESHADE BLACKSHADE) (EDITGRAY 32800))
(MACROS WITHINLINEP FWITHINLINEP LINESELECTEDP FLINESELECTEDP IBETWEENP) (MACROS GETSEL SETSEL FGETSEL
FSETSEL SELECTION!) (I.S.OPRS inselpieces) (MACROS GETSPC SETSPC FGETSPC FSETSPC SELPIECES!) (
GLOBALVARS TEDIT.EXTEND.PENDING.DELETE) (GLOBALVARS TEDIT.SELECTION TEDIT.SHIFTEDSELECTION
TEDIT.MOVESELECTION TEDIT.COPYLOOKSSELECTION TEDIT.DELETESELECTION))) (INITRECORDS SELECTION SELPIECES
) (FNS \TEDIT.SELECTION.DEFPRINT) (P (\TEDIT.SET.GLOBAL.SELECTIONS)) (FNS \TEDIT.SET.GLOBAL.SELECTIONS
) (FNS \TEDIT.SELECTED.PIECES \TEDIT.FIND.PROTECTED.END \TEDIT.FIND.PROTECTED.START \TEDIT.WORD.BOUND)
(INITVARS (TEDIT.EXTEND.PENDING.DELETE T)) (* ; "Setting for a %"Laurel%" mode") (COMS (* ;
"Selection manipulating code") (FNS \TEDIT.EXTEND.SEL \TEDIT.SCAN.LINE \TEDIT.SCAN.LINE.WORD
\TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.XYTOSEL.INLINEP \TEDIT.XYTOSEL.LINE) (FNS \TEDIT.FIXSEL
\TEDIT.CHTOLINEX) (FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS) (DECLARE%:
EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON \TEDIT.SEL.OFF))) (FNS \TEDIT.SHOWSEL
\TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT
\TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS) (FNS
\TEDIT.COPYSEL \TEDIT.SEL.CHANGED?)) (COMS (* ; "Image objects") (FNS \TEDIT.SELECT.OBJECT
\TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT \TEDIT.OPERATE.OBJECT)) (* ;; "SELPIECES") (FNS
\TEDIT.SELPIECES \TEDIT.SELPIECES.COPY \TEDIT.SELPIECES.CONCAT \TEDIT.SELPIECES.CHARTRANSFORM
\TEDIT.SELPIECES.FROM.STRING \TEDIT.SELPIECES.TO.STRING) (* ;; "User entries to the selection code") (
FNS TEDIT.XYTOCH TEDIT.SELPROP TEDIT.GETPOINT TEDIT.GETSEL TEDIT.GETSEL.PARA TEDIT.SCANSEL
TEDIT.SET.SEL.LOOKS TEDIT.SETSEL TEDIT.SHOWSEL TEDIT.SEL.AS.STRING TEDIT.SEL.AS.SEXPR TEDIT.SELECTALL)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA
TEDIT.SELPROP)))))
(/DECLAREDATATYPE (QUOTE SELECTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER FLAG FULLXPOINTER POINTER POINTER POINTER FLAG POINTER FLAG POINTER))
(QUOTE ((SELECTION 0 POINTER) (SELECTION 2 POINTER) (SELECTION 4 POINTER) (SELECTION 6 POINTER) (
SELECTION 8 POINTER) (SELECTION 10 POINTER) (SELECTION 12 POINTER) (SELECTION 14 POINTER) (SELECTION
16 POINTER) (SELECTION 18 POINTER) (SELECTION 20 POINTER) (SELECTION 20 (FLAGBITS . 0)) (SELECTION 22
FULLXPOINTER) (SELECTION 24 POINTER) (SELECTION 26 POINTER) (SELECTION 28 POINTER) (SELECTION 28 (
FLAGBITS . 0)) (SELECTION 30 POINTER) (SELECTION 30 (FLAGBITS . 0)) (SELECTION 32 POINTER))) (QUOTE 34
))
(DEFPRINT (QUOTE SELECTION) (FUNCTION \TEDIT.SELECTION.DEFPRINT))
(/DECLAREDATATYPE (QUOTE SELPIECES) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((
SELPIECES 0 POINTER) (SELPIECES 2 POINTER) (SELPIECES 4 POINTER) (SELPIECES 6 POINTER) (SELPIECES 8
POINTER))) (QUOTE 10))
(\TEDIT.SET.GLOBAL.SELECTIONS)
(RPAQ? TEDIT.EXTEND.PENDING.DELETE T)
NIL
Reference in New Issue View Git Blame Copy Permalink