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-WINDOW.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

767 lines
62 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 "17-May-2026 13:04:08" ("compiled on " {MEDLEY}<library>tedit>TEDIT-WINDOW.;912)
"17-May-2026 12:59:11" brecompiled exprs%: \TEDIT.BUTTONEVENTFN in "FULL 17-May-2026 ..." dated
"17-May-2026 12:59:20")
(FILECREATED "17-May-2026 13:04:08" {MEDLEY}<library>tedit>TEDIT-WINDOW.;912 236525 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN) :PREVIOUS-DATE "17-May-2026 12:46:44"
{MEDLEY}<library>tedit>TEDIT-WINDOW.;911)
TEDIT.DEFER.UPDATES :D8
(P 0 TEXTOBJ I 1 AFTERPROPS I 0 TSTREAM F 1 SI::*RESETFORMS*) Q@ ggHogHhgHgAhhhHgi hQc(71 TEXTPROP 5 TEXTOBJ)
(65 DON'TUPDATE 46 QUOTE 40 PUTTEXTPROPS 31 \TEDIT.FILL.PANES 18 PUTTEXTPROP 13 PROGN)
( 24 ((QUOTE DON'TUPDATE) OLDVALUE))
\TEDIT.WINDOW.CREATE :D8
(P 7 PREPROMPT P 6 PWINDOW P 5 FILE P 4 REGION P 3 PROMPTPROP P 2 REGIONTYPE P 1 PHEIGHT P 0 TEXTOBJ I 2 PROPS I 1 TSTREAM I 0 WINDOW) îAÑA‡AÉjbHÉ,]@ ²U@g
ɲ@ ¿@g
i
¿@gBg'µ@ É(µ MB
¿Hg
µ
@d3@ð´@ZHg
[dgð³Dd ²K^g
°)Hg
µ
`µk` È
Ú ¹@ ³d@ ›@ hb¿°%AJI \LLLL_¿L\LjIÙÔ¿LMB
hdB
b¿LJ@ ¿@gOµi N³@Kgð³7@g
 ^³#@Hg
µ
`µk` ¾HNLNd¨d£d‘h^ ² Ngg ¿Ngi ¿H@AB @(488 \TEDIT.MINIMAL.WINDOW.SETUP 478 PUTWINDOWPROP 465 PUTWINDOWPROP 447 WINDOWP 420 GETPROMPTWINDOW 400 GETTEXTPROP 385 WINDOWP 379 GETWINDOWUSERPROP 356 PUTWINDOWPROP 339 REGISTER-TYPED-REGION 328 CREATEW 319 \TEDIT.DEFAULT.TITLE 269 \TEDIT.WINDOW.GETREGION 255 COPY 248 REGIONP 240 WINDOWP 233 HEIGHTIFWINDOW 225 FONTCREATE 205 GETTEXTPROP 188 WINDOWREGION 174 WINDOWP 158 GETTEXTPROP 136 GETTEXTPROP 124 PUTWINDOWPROP 119 \TEDIT.DEFAULT.TITLE 108 \INSUREWINDOW 86 \TEDIT.CLOSESPLITS 80 GETWINDOWPROP 68 TEDIT.KILL 53 GETWINDOWPROP 40 WINDOWP)
(472 TEDIT.PROMPTWINDOW 460 \TEDIT.PROMPT.PAGEFULLFN 455 PAGEFULLFN 427 TEXTOBJ 415 TEDIT.PROMPT.FONT 407 TEDIT.PROMPTWINDOW.HEIGHT 395 PROMPTWINDOWHEIGHT 374 PROMPTWINDOW 365 DON'T 346 TEDITCREATED 220 TEDIT.PROMPT.FONT 212 TEDIT.PROMPTWINDOW.HEIGHT 200 PROMPTWINDOWHEIGHT 183 REGION 165 DONT'T 153 PROMPTWINDOW 131 REGION-TYPE 99 TITLE 93 TITLE 75 TEXTSTREAM 58 STREAM 48 TEXTSTREAM 31 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.WINDOW.GETREGION :D8
(P 20 L P 19 CHNO P 18 H P 17 W P 16 IMAGESTREAM P 15 REG P 14 TEXTLEN P 13 I P 9 PARALOOKS P 7 HEIGHT P 6 WIDTH P 5 HEIGHTOVERHEAD P 4 WIDTHOVERHEAD P 0 TEXTOBJ I 2 PHEIGHT I 1 REGIONTYPE I 0 TSTREAM F 21 WBorder F 22 WindowTitleDisplayStream) S@É1`lW*ÖØHÊ:0jð¢j°`djñ¦¿`‚l$ØØBlW*ÖkØØW, È
Ø!Hg
µHÉX1 OµLO^Hg
_d”N’±ïlkHÉjd`LÙ`MÙ @ ²@@ É°6_Éjñ²OÉ_¿O•OOó”O_¿O_°†jdkOOó³ROO&ñ²K@O&hOO
_(ÉkØ_&¿O$O(É Ô_$¿N³O(É(ÉgðŸO"O(ɹdIñ¡¿I_"¿OkÔ_°­N§O"jð¢O"¾O©O$jð¤O$_¿N®lP@g
Ö¾O­l
@ È
Ö_¿NLÔ^OMÔ_ANOo µ‚±¼N`oê ºdJñ‘¿J^O`oê »dKñ‘¿K_o`
¿Aµo`
¿o`
@ ²6o`
¿lh` ¿@g
`
¿` NO
(592 GETREGION 584 TERPRI 573 PRIN1 563 GETTEXTPROP 551 TAB 537 PRIN1 520 TXTFILE 514 PRIN1 498 PRIN1 479 PRIN1 464 CLRPROMPT 450 FIXR 424 FIXR 401 GRAB-TYPED-REGION 371 FONTCREATE 358 FONTPROP 260 \TEDIT.FORMATLINE 226 DSPCREATE 170 \INSUREWINDOW 165 \TEDIT.PRIMARYPANE 157 \TEDIT.PRIMARYPANE 151 CREATEREGION 115 GETTEXTPROP 87 GETTEXTPROP 70 FONTCREATE)
(579 PROMPTWINDOW 568 PROMPTWINDOW 558 FILENAME 546 PROMPTWINDOW 532 PROMPTWINDOW 509 PROMPTWINDOW 493 PROMPTWINDOW 474 PROMPTWINDOW 439 SCREENHEIGHT 413 SCREENWIDTH 353 AVGCHARWIDTH 293 LEFT 195 PARALOOKS 182 PARALOOKS 144 SCREENHEIGHT 137 SCREENWIDTH 110 OPENHEIGHT 82 OPENWIDTH 46 \TEDIT.LINEREGION.WIDTH 36 \TEDIT.OP.WIDTH 15 \TEDIT.LINEREGION.WIDTH 5 STREAM)
( 527 " for " 504 " region" 488 "Tedit" 469 "Please specify a " 444 0.9 418 0.9 396 1.1)
\TEDIT.WINDOW.SETUP :D8
(P 15 LN P 14 L1 P 13 P P 9 LASTVISIBLE P 8 SEL P 7 MENUPROP P 0 TEXTOBJ I 4 LCHAR1 I 3 AFTERPANE I 2 PROPS I 1 TSTREAM I 0 PANE) 4@dCðœ¿o ¿@A aBg'! HÉ_¿h_¿OÙ@gO°O²@gO ¿@gh ¿A@Dd‘kÙ D³6HÉjð³/@g
ÉAk
ºYµ‚±ÔJµ‚±Á@g
ÉɲY@g
É@g
ÉÉ[ÉKÉÙh@
ؽ\dÉLM¿MØ¿@ @Ah@A C¢±¡OÉOÉH3O_¿O_¿OdÔ¿Oɵ°VIο±ÿ9J¿±ÿ&_¿O²6O²1OdCð²¿OhO¿OhO¿Og
ɵ'@gCg
¿OHÊ:jð²k°_¿O_¿O_°–j^Ï¿NjðhðOAC´@ hdAC´@ OiAC´@h
H@
(561 \TEDIT.SET.WINDOW.EXTENT 554 \TEDIT.SHOWSEL 539 \TEDIT.SHOWSEL 527 \TEDIT.FIXSEL 474 PUTWINDOWPROP 469 GETWINDOWUSERPROP 442 GETWINDOWPROP 312 \TEDIT.SUFFIXLINE.CREATE 307 \TEDIT.LINES.BELOW 297 \TEDIT.CLEARPANE 266 DSPCLIPPINGREGION 238 GETWINDOWPROP 215 GETWINDOWPROP 188 GETWINDOWPROP 162 \TEDIT.FORMATLINE 143 GETWINDOWPROP 122 \TEDIT.PANE.CREATELINES 109 PUTWINDOWPROP 96 PUTWINDOWPROP 28 TEXTOBJ 15 \TEDIT.THELP)
(464 PROMPTWINDOW 458 PROMPTWINDOW 447 PANEPROPS 437 PANEPROPS 384 LINEDESCRIPTOR 372 LINEDESCRIPTOR 357 TEXTOBJ 333 SELECTION 324 SELECTION 279 LINEDESCRIPTOR 250 LINEDESCRIPTOR 243 PANEPROPS 233 PANEPROPS 227 LINEDESCRIPTOR 220 PANEPROPS 210 PANEPROPS 200 LINEDESCRIPTOR 193 PANEPROPS 183 PANEPROPS 155 LINEDESCRIPTOR 148 PANEPROPS 138 PANEPROPS 103 TEDIT.MENU 89 TEDIT.MENU.COMMANDS 75 TEDIT.MENU 68 MENU 54 SELECTION 47 TEXTOBJ 37 MENU 22 WINDOW)
( 10 "PANE=AFTERPANE")
\TEDIT.MINIMAL.WINDOW.SETUP :D8
(P 6 PTAIL P 5 PREG P 4 DS P 3 PANEPROPS P 2 TEXTOBJ I 2 PROPS I 1 TSTREAM I 0 PANEWINDOW F 7 BXCARET F 8 \CARETRATE) >@AÑA‡AÉ`d@ο`di¿@ ÉHdI¿W HdI¿dW ¿dW
¿di¿lHdI¿lHdI¿HdI¿jddd HdI¿dj¿dj¿dj¿dj¿dj¿dj ¿"@gK @ É\J@ÎJ@gh @gA @gjddd nÿL
Jk NJdÉNÉ PgJÉP
jdldlhJÉP
Bg'd¥L
]KM ¿KM¿KM¿KMMØmÿØ¿KM¿KMMØmÿØ¿KM@gg @gg @gg @gg @gg @gg @gg @gg @gg @gg @g@ @g@ ɵg @g@g
µg @g@g
µBg'µg @gg @gg @gg @gg @ggi Ag
°d@NN µî@(821 WINDOWPROP 804 GETTEXTPROP 793 WINDOWADDPROP 776 WINDOWADDPROP 760 WINDOWADDPROP 744 WINDOWADDPROP 728 WINDOWADDPROP 712 PUTWINDOWPROP 691 GETWINDOWUSERPROP 674 PUTWINDOWPROP 662 GETWINDOWUSERPROP 645 PUTWINDOWPROP 631 \INSUREWINDOW 619 PUTWINDOWPROP 614 OFFSCREENP 602 PUTWINDOWPROP 586 PUTWINDOWPROP 570 PUTWINDOWPROP 554 PUTWINDOWPROP 538 PUTWINDOWPROP 522 PUTWINDOWPROP 506 PUTWINDOWPROP 490 PUTWINDOWPROP 474 PUTWINDOWPROP 458 PUTWINDOWPROP 342 DSPCLIPPINGREGION 327 DSPCLIPPINGREGION 308 DSPOPERATION 293 DSPCREATE 274 \TEDIT.CREATE.LINECACHE 267 DSPRIGHTMARGIN 258 PUTWINDOWPROP 253 CREATEREGION 238 PUTWINDOWPROP 226 PUTWINDOWPROP 207 \INSUREWINDOW 201 PUTWINDOWPROP 146 CREATEREGION 74 \CARET.CREATE 55 \INSUREWINDOW)
(799 WINDOWPROPS 787 TEDIT.DEACTIVATE.WINDOW 782 CLOSEFN 771 \TEDIT.NEWREGIONFN 766 NEWREGIONFN 755 \TEDIT.RESHAPEFN 750 RESHAPEFN 739 \TEDIT.EXPANDFN 734 EXPANDFN 723 \TEDIT.SHRINKFN 718 SHRINKFN 707 TEDIT.DEFAULT.MENUFN 699 TITLEMENUFN 686 TEDIT.TITLEMENUFN 680 TEDIT.TITLEMENUFN 669 \TEDIT.SHRINK.ICONCREATE 657 ICONFN 651 ICONFN 640 \TEDIT.SCROLLFN 625 SCROLLFN 608 OFFSCREEN 597 \TEDIT.PROCIDLEFN 592 WINDOWENTRYFN 581 \TEDIT.AFTERMOVEFN 576 AFTERMOVEFN 565 \TEDIT.REPAINTFN 560 REPAINTFN 549 \TEDIT.COPYINSERTFN 544 COPYINSERTFN 533 TEDIT 528 IMAGETYPE 517 \TEDIT.BUTTONEVENTFN 512 RIGHTBUTTONFN 501 \TEDIT.BUTTONEVENTFN 496 BUTTONEVENTFN 485 \TEDIT.CURSORINFN 480 CURSORINFN 469 \TEDIT.CURSOROUTFN 464 CURSOROUTFN 453 \TEDIT.CURSORMOVEDFN 448 CURSORMOVEDFN 439 PANEPROPS 418 PANEPROPS 406 PANEPROPS 387 PANEPROPS 376 PANEPROPS 363 PANEPROPS 349 PANEPROPS 333 REGION 300 PAINT 286 LINECACHE 244 TEDIT.CURSORREGION 232 TEXTSTREAM 220 PROCESS 195 PANEPROPS 43 |TEDITCARETTYPE#| 32 |PANEPROPSTYPE#| 27 TEXTOBJ 20 STREAM 11 TEXTOBJ 5 WINDOW)
()
\TEDIT.CLEARPANE :D8
(I 1 PBOTTOM I 0 PANE) RA«h@
b¿j@jAh@
@g
Éd¥@
HHØAÙg
(79 BLTSHADE 53 DSPCLIPPINGREGION 38 GETWINDOWPROP 24 DSPCLIPPINGREGION 8 DSPCLIPPINGREGION)
(73 REPLACE 43 PANEPROPS 33 PANEPROPS)
()
\TEDIT.FILL.PANES :D8
(P 4 P P 2 WASON P 1 SEL P 0 TEXTOBJ I 1 ONLYPANE I 0 TSTREAM) Á@ bdÑ@‡@É!Hd¢±›ÉYdÊjðhð´IÊjðhðZIjÏ¿jdðhðHKdòQ¿KÉ°K¼A–LdAð²1¿ILHg ¿L ¿L@hL@ ¿HL
¿Lg
ɵ·J´
Ii@Ah
(190 \TEDIT.SHOWSEL 166 GETWINDOWPROP 154 \TEDIT.SET.WINDOW.EXTENT 146 \TEDIT.SUFFIXLINE.CREATE 141 \TEDIT.LINES.BELOW 130 \TEDIT.CLEARPANE 123 \TEDIT.SETCARET 5 TEXTSTREAM)
(171 PANEPROPS 161 PANEPROPS 118 OFF 92 TEXTOBJ 62 SELECTION 47 SELECTION 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
()
\TEDIT.CURSORMOVEDFN :D8
(P 8 L P 5 LEFT P 4 LINE P 3 CURSORREG P 2 TEXTOBJ P 1 Y P 0 X I 0 PANE) <01> @ µ@g
´‚±s@ @ @g
Ü@g
°@g
É@g
DKHI ’±Hh@
^NØmÿØ`Ù]ýñ³HIh@
`Øýñ³4JÊ:0jð²,`mÿð³"` JgKMK`@g
ɈOÉd³M\d´KLÉ¿KLÉ ¿Ld“Éd¬@
`Ø]dHñ²2` JgKjKM_ÉIñ³žOµ¦i°£i JgKMKh@
_OØmÿØM`ØÙh(370 DSPCLIPPINGREGION 349 CURSOR 305 CURSOR 282 DSPCLIPPINGREGION 228 GETWINDOWPROP 192 CURSOR 152 DSPCLIPPINGREGION 123 DSPCLIPPINGREGION 111 INSIDE? 100 GETWINDOWPROP 77 GETWINDOWPROP 64 GETWINDOWPROP 47 GETWINDOWPROP 36 LASTMOUSEY 30 LASTMOUSEX 18 GETWINDOWPROP 5 WINDOWP)
(388 \TEDIT.LINEREGION.WIDTH 355 TEXT 328 LINEDESCRIPTOR 311 LINE 300 \TEDIT.LINECURSOR 288 \TEDIT.LINEREGION.WIDTH 243 LINEDESCRIPTOR 233 PANEPROPS 223 PANEPROPS 211 \TEDIT.OP.WIDTH 198 PANE 187 \TEDIT.SPLITCURSOR 177 \TEDIT.OP.WIDTH 159 \TEDIT.OP.BOTTOM 138 \TEDIT.OP.WIDTH 95 TEDIT.CURSORREGION 89 TEXTOBJ 82 STREAM 72 TEXTSTREAM 59 TEXTSTREAM 52 TEXTOBJ 42 TEXTSTREAM 13 TEXTSTREAM)
()
\TEDIT.CURSOROUTFN :D8
(I 0 PANE) ci @ µ@g
´H@g
Ü@g
°@g
Égg(67 GETWINDOWPROP 54 GETWINDOWPROP 37 GETWINDOWPROP 24 GETWINDOWPROP 11 WINDOWP 5 CURSOR)
(96 TEXT 89 TEXT 84 TEXTOBJ 79 TEXTOBJ 72 STREAM 62 TEXTSTREAM 49 TEXTSTREAM 42 TEXTOBJ 32 TEXTSTREAM 19 TEXTSTREAM)
()
\TEDIT.CURSORINFN :D8
(P 1 SECSEL P 0 TEXTOBJ I 0 PANE) Š@g
´}@g
Ü@g
°@g
É@ É.`ð•HÉYµ@g
ÉHÊ:jðhð ð²Ú@ (135 \TEDIT.BUTTONEVENTFN 126 \TEDIT.BUTTONEVENTFN.GETOPERATION 105 \TEDIT.SECONDARYSEL.OFF 100 GETWINDOWPROP 74 \INSUREWINDOW 53 GETWINDOWPROP 40 GETWINDOWPROP 23 GETWINDOWPROP 10 GETWINDOWPROP)
(111 SELECTION 95 TEXTSTREAM 81 \TTY.PROCESS 65 TEXTOBJ 58 STREAM 48 TEXTSTREAM 35 TEXTSTREAM 28 TEXTOBJ 18 TEXTSTREAM 5 TEXTSTREAM)
()
\TEDIT.ACTIVE.WINDOWP :D8
(P 0 TEXTOBJ I 0 W) -@i
HôHÉ0hð´@ É. (42 PROCESSP 35 \INSUREWINDOW 6 TEXTOBJ)
(23 TEXTOBJ 15 TEXTOBJ)
()
\TEDIT.EXPANDFN :D8
(I 0 W) @ É.´@ É. (22 TTY.PROCESS 15 \INSUREWINDOW 5 \INSUREWINDOW)
NIL
()
\TEDIT.MAINW :D8
(P 0 PRIM I 0 TSTREAM) @ Hdœg
µH(21 GETWINDOWUSERPROP 5 \TEDIT.PRIMARYPANE)
(16 MAINWINDOW)
()
\TEDIT.MAINSTREAM :D8
(P 0 MAINW I 0 TSTREAM) @ Hd™g
(21 GETWINDOWPROP 5 \TEDIT.MAINW)
(16 TEXTSTREAM)
()
\TEDIT.PRIMARYPANE :D8
(I 0 TSTREAM) @ É(5 TEXTOBJ)
(10 TEXTOBJ)
()
\TEDIT.PANELIST :D8
(P 4 P I 0 TSTREAM/PANE) _@ ²@g
ÉÑ@…@ AHdò(¿HÉ°"K&º‰\»JµùKhZ¹Lg
ɵäI(82 GETWINDOWPROP 39 TEXTOBJ 18 GETWINDOWPROP 5 WINDOWP)
(87 PANEPROPS 77 PANEPROPS 49 TEXTOBJ 30 TEXTOBJ 23 STREAM 13 TEXTSTREAM)
()
\TEDIT.NEWREGIONFN :D8
(P 3 YDELTA P 2 XDELTA P 1 MENUWIDTH P 0 %#OFMENUITEMS I 2 WINDOW I 1 MOVINGPOINT I 0 FIXEDPOINT) UA¡@@A@ÙZA@Ù[jJñ¬A@l Jñ¡JŽl ‹A@màJñ‘J<E28098>màØ¿jKñ¬A@l Kñ¡KŽl ‹A@màKñ‘K<E28098>màØANIL
NIL
()
\TEDIT.SET.WINDOW.EXTENT :D8
(P 9 YBOT P 8 EXTBOT P 7 EXTHEIGHT P 6 BOTCHAR P 5 TOPCHAR P 4 LASTLINE P 3 FIRSTLINE P 2 PBOTTOM P 1 PHEIGHT P 0 TEXTLEN I 1 PANE I 0 TEXTOBJ) 
@g
’±þA´‚±ö@ÉAg
É hA
Ag
ÉÉAg
ÉÉu KµH]L²HLÉ_¿dOñ’¿O¾LɆÉ°æH¾I_¿NHÙjð²MHÙjðœOkÙ_¿I_¿°7IOÙHÚNMÙdkñ¡¿kë _¿OIOÙHNÙÚNMÙdkñ¡¿kë Ù_¿AgjOkOñ¢O€k_¿hA
Oh h(264 PUTWINDOWPROP 249 DSPCLIPPINGREGION 217 FIXR 189 FIXR 87 GETWINDOWPROP 62 GETWINDOWPROP 49 DSPCLIPPINGREGION 35 GETWINDOWPROP 10 GETTEXTPROP)
(227 EXTENT 99 LINEDESCRIPTOR 92 PANEPROPS 82 PANEPROPS 74 LINEDESCRIPTOR 67 PANEPROPS 57 PANEPROPS 40 PANEPROPS 30 PANEPROPS 5 NOEXTENT)
()
\TEDIT.SHRINK.ICONCREATE :D8
(P 3 TSTREAM P 2 SHRINKFN P 1 ICONTITLE P 0 ICON I 2 ICON-POSITION I 1 ICON I 0 W F 4 TEDIT.TITLED.ICON.TEMPLATE F 5 TEDIT.ICON.FONT) Ä@g
@g
@g
@i
Kµ@g
ÉÊ8jð²âJ lñ³×gJªJ lñ³ÄIŸIK
³´I¢H³¯K ¹@gI ¿H›IhdH ¿°<C2BF>@gTIUBihg
 ¿±ÿn(190 PUTWINDOWPROP 185 TITLEDICONW 159 ICONTITLE 147 PUTWINDOWPROP 134 \TEDIT.FILENAME 121 STRING.EQUAL 116 \TEDIT.FILENAME 102 FLENGTH 83 FLENGTH 57 GETWINDOWUSERPROP 39 TEXTSTREAM 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(179 FILE 168 ICON 141 TEDIT.ICON.TITLE 93 SHRINKATTACHEDWINDOWS 70 TEXTOBJ 63 STREAM 52 ICON 27 SHRINKFN 16 TEDIT.ICON.TITLE 5 ICON)
()
\TEDIT.SHRINKFN :D8
(I 2 ICONW I 1 ICON I 0 W) @ É.`ð´i (21 TTY.PROCESS 5 \INSUREWINDOW)
(12 \TTY.PROCESS)
()
\TEDIT.PANEREGION :D8
(P 9 TDIFF P 8 RDIFF P 7 BDIFF P 6 LDIFF P 1 WREG P 0 PREG I 0 PANE) ²
h@
@ ÉBjdIñ³)Iñ³"IIØ`ñ³IIØ`ñ²mjIÙºjJñ¡J€jjIÙ»jKñ¡K€jIIØmÿØ`Ù¼jLñ¡L€jI`Ù½jMñ¡M€j HNØHOØHNOØÙHOOØÙ H(173 CREATEREGION 17 \INSUREWINDOW 11 DSPCLIPPINGREGION 4 NOTUSED)
(126 SCREENHEIGHT 107 SCREENWIDTH 64 SCREENHEIGHT 47 SCREENWIDTH)
()
\TEDIT.BUTTONEVENTFNA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 16 REGIONTYPE P 15 SECSEL P 14 READONLY P 13 PENDINGDEL P 12 NEWOPERATION P 11 CUROPERATION P 10 NEWSEL P 9 CURSEL P 8 TEXTOBJ P 7 PREG P 6 OLDY P 5 OLDX P 4 DS P 3 Y P 2 X P 1 TSTREAM P 0 TTYPROC I 0 SI::*CLEANUP-FORMS* F 19 PANE F 20 SI::*RESETFORMS* F 21 BXCARET F 22 BXHICARET) å`W&g
W& W& W& ÉodW&g
Éd¦W&
¸Id¢±”É_É0’±KW&O ’±qOW&
’±dOW&
’±W¿gOW*hOW,
hW(c(¿OÊ:jðhð_h
_¿OÉ_µ‚±×OI
_d¢±É_¿O _¿Oh¿OO
_ ¿¿¿W& ¿OO
_¿OO¿Ogð²"`lå_"jð’±7O"šO" ’±'ML ZÙjð²NL [Ùjð–OOð³‘OµW&g
Éd¦W&
JK ´‚±EJ½K¾OOð³^OhIh ¿OO
¿OO
¿Ogð²#OhIh ¿OOÉ
¿OiIhd
¿O_¿`dlð¢±Ò¿JKOIOW&gOO
¿OÊjð’±þÌ`²OO³KOgð²AOÊ:jð²8OhIh ¿Og
¿Og
¿OiIhd
¿i_¿OOIOo
±þ^É_gð_¿OdOð©¿I ¿Ogð¢±þgI
_µ‚±þ
hlðŸJKOIOW&g°`kð²JKOIOW&gOO
¿OÊjð’±ýáOO
¢±ýÔ`lå_$jð¬O$ŸO$ —OÉ¢±ý²OhIh ¿OO
¿OiIhd
±ý<C2B1>IÑI‡IÉh¿OÊjð²3OhIh ¿OÉg
¿hiIhd
hOOIW&OH
h(993 \TEDIT.BUTTONEVENTFN.DOOPERATION 975 \TEDIT.SHOWSEL 963 \TEDIT.SET.SEL.LOOKS 938 \TEDIT.SHOWSEL 885 \TEDIT.SHOWSEL 872 \TEDIT.COPYSEL 862 \TEDIT.SHOWSEL 843 \FZEROP 814 \TEDIT.SEL.CHANGED? 793 \TEDIT.XYTOSEL 730 \TEDIT.BUTTONEVENTFN.CURSEL.INIT 706 \TEDIT.SECONDARYSEL.OFF 676 \TEDIT.EXTEND.SEL 671 MEMB 649 \TEDIT.SHOWSEL 636 \TEDIT.SET.SEL.LOOKS 623 \TEDIT.SET.SEL.LOOKS 610 \TEDIT.SHOWSEL 558 \TEDIT.XYTOSEL 514 \TEDIT.SHOWSEL 501 \TEDIT.COPYSEL 479 \TEDIT.SHOWSEL 458 \TEDIT.SET.SEL.LOOKS 448 \TEDIT.SET.SEL.LOOKS 438 \TEDIT.SHOWSEL 411 INSIDEP 404 DSPCLIPPINGREGION 388 GETWINDOWPROP 360 LASTMOUSEY 347 LASTMOUSEX 336 \FZEROP 288 \TEDIT.BUTTONEVENTFN.GETOPERATION 278 \TEDIT.CURSORMOVEDFN 270 GETMOUSESTATE 264 BLOCK 256 \TEDIT.REGIONTYPE 238 \TEDIT.COPYSEL 219 \TEDIT.BUTTONEVENTFN.CURSEL.INIT 196 \TEDIT.BUTTONEVENTFN.GETOPERATION 170 \TEDIT.CARET 147 \CARET.DOWN 138 \TEDIT.PANE.SPLIT 125 \TEDIT.BUTTONEVENTFN.INACTIVE 112 \TEDIT.BUTTONEVENTFN.INTITLE 73 DSPCLIPPINGREGION 57 GETWINDOWPROP 37 \INSUREWINDOW 30 LASTMOUSEY 23 LASTMOUSEX 16 GETWINDOWPROP)
(958 NORMAL 953 SELECTION 946 TEXTOBJ 915 TEXTOBJ 910 TEXTOBJ 903 STREAM 894 TEXTOBJ 823 LASTMOUSEBUTTONS 783 MIDDLE 765 LASTMOUSEBUTTONS 758 LEFT 724 NORMAL 714 NORMAL 688 PENDINGDEL 631 PENDINGDEL 618 PENDINGDEL 588 NORMAL 575 TEDIT.EXTEND.PENDING.DELETE 548 RIGHT 525 LASTMOUSEBUTTONS 496 SELECTION 489 TEXTOBJ 466 NORMAL 393 PANEPROPS 383 PANEPROPS 313 LASTMOUSEBUTTONS 305 NORMAL 153 \TEDIT.CARET 94 TEXTOBJ 87 STREAM 62 PANEPROPS 52 PANEPROPS 11 TEXTSTREAM 4 \TTY.PROCESS)
( 666 (COPY COPYLOOKS) 44 -65536)
\TEDIT.BUTTONEVENTFN :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 PANE F 3 LISPXHIST) $@ S!g ¿$(29 SI::RESETUNWIND 24 \MVLIST 19 \TEDIT.BUTTONEVENTFNA0001 5 TOTOPW)
(14 SI::RESETUNWIND)
()
\TEDIT.BUTTONEVENTFN.DOOPERATION :D8
(P 5 TEXTSEL P 4 SELFN P 3 TTYSEL P 2 TTYSTREAM P 1 TTYW P 0 TEXTOBJ I 5 TTYPROC I 4 PENDINGDEL I 3 PANE I 2 TSTREAM I 1 CUROPERATION I 0 CURSEL) 9@Êjð’±/BÑB‡BÉEg
Id™g
Jd²#ÑJ‡JÉÉ»Hg
HɽAdgð²@¿@M
¿HdM
4¿MÉŸBMCg ±DHD‘k€jÏF¿MCHi ±.gð²$@M
¿BM
•MkÏ¿MCHi ±Adgð²%¿@hBh ¿K›@KBJ ±á@B
±×gð²H@hBh ¿K›@KBJ ±·@B
¿M@Éjg ¿B@
¿MiBhd
±‰Agð²t@hBh ¿K²5@Égð²J@ÉH
ÉK °SJ@ÉH
É K °?@Égð²B@ÉH
É@ ° B@ÉH
É @ ŠoA
¿HCÎJD³HÉg
¿L<C2BF>H@AglL¿HÊ8jð´ A@
h(564 \TEDIT.SET.GLOBAL.SELECTIONS 532 \TEDIT.SET.SEL.LOOKS 501 \TEDIT.THELP 489 \TEDIT.CHANGE.CHARLOOKS 481 \TEDIT.CHTOPC 469 \TEDIT.CHANGE.PARALOOKS 461 \TEDIT.CHTOPC 438 \TEDIT.CHANGE.CHARLOOKS 430 \TEDIT.CHTOPC 418 \TEDIT.CHANGE.PARALOOKS 410 \TEDIT.CHTOPC 385 \TEDIT.SHOWSEL 364 \TEDIT.SHOWSEL 352 \TEDIT.DELETE 344 \TEDIT.UPDATE.SEL 328 \TEDIT.FOREIGN.COPY 318 \TEDIT.MOVE 306 \TEDIT.SHOWSEL 286 \TEDIT.FOREIGN.COPY 276 \TEDIT.COPY 264 \TEDIT.SHOWSEL 241 \TEDIT.SETCARET 225 \TEDIT.DELETE 217 \TEDIT.COPYSEL 199 \TEDIT.SETCARET 177 \TEDIT.OPERATE.OBJECT 157 \TEDIT.GET.INSERT.CHARLOOKS 148 \TEDIT.COPYSEL 113 GETTEXTPROP 61 GETWINDOWPROP 45 PROCESSPROP)
(543 FINAL 527 NORMAL 522 SELECTION 515 TEXTOBJ 448 PARA 397 PARA 373 COPYLOOKS 339 RIGHT 294 MOVE 251 COPY 207 DELETE 172 SELECTED 137 NORMAL 129 SELECTION 122 TEXTOBJ 108 SELFN 101 SELECTION 94 TEXTOBJ 89 TEXTOBJ 82 STREAM 73 TEXTOBJ 56 TEXTSTREAM 40 WINDOW 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
( 495 "Bad selection operation")
\TEDIT.BUTTONEVENTFN.GETOPERATION :D8
(I 1 CUROPERATION I 0 READONLY) «Agð²"g g ð©l2hi ¿g ²@³g •ggg ³4`g 2IâââlIlåÙºkJç¼»LHKÂåjð‘j€kjð•gg •gg(156 SHIFTDOWNP 105 \KEYNAMETONUMBER 88 SHIFTDOWNP 65 SHIFTDOWNP 50 SHIFTDOWNP 39 DISMISS 28 SHIFTDOWNP 18 SHIFTDOWNP)
(168 NORMAL 162 COPYLOOKS 151 META 145 COPY 100 COPY 95 \LASTKEYSTATE 83 SHIFT 77 DELETE 71 MOVE 60 SHIFT 45 CTRL 23 CTRL 13 SHIFT 5 MOVE)
()
\TEDIT.BUTTONEVENTFN.CURSEL.INIT :D8
(P 1 CURSEL P 0 TEXTOBJ I 1 TSTREAM I 0 NEWOPERATION) üAÑA‡AÉHÉ @dgð²r¿HÉjÏ¿IhAh ¿`lðœIg
°1HÊFjð³*HjÏF¿IHI
jhg
¿IiAhd
¿IiAhd
°Sgð²IhAh ¿Ig
°4@gð³@gð¨@gð²`lð‘hI@
¿IjÏI(242 \TEDIT.SET.SEL.LOOKS 196 \TEDIT.SET.SEL.LOOKS 184 \TEDIT.SHOWSEL 165 \TEDIT.SHOWSEL 153 \TEDIT.SHOWSEL 141 \TEDIT.UPDATE.SEL 128 TEDIT.GETPOINT 104 \TEDIT.SET.SEL.LOOKS 83 \TEDIT.SHOWSEL 42 \TEDIT.COPYSEL)
(229 LASTMOUSEBUTTONS 221 COPYLOOKS 213 COPY 204 MOVE 191 DELETE 172 DELETE 135 NORMAL 99 PENDINGDEL 89 LASTMOUSEBUTTONS 69 SELECTION 62 TEXTOBJ 52 NORMAL 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.BUTTONEVENTFN.INACTIVE :D8
(I 1 PANE I 0 TEXTOBJ) ô@É0’±¦@É>’±ŸA É.’±Úg ’±Ìg ’±¾g ’±°`g 2IâââlIlåÙºkJç¼»LHKÂåjð‘j€kjð³|`g 2IâââlIlåÙºkJç¼»LHKÂåjð‘j€kjð³I`lð—A i@g
³+A É. ³@h>Ag
A
h(240 TEDIT 234 GETWINDOWPROP 212 PROCESSP 205 \INSUREWINDOW 197 GETTEXTPROP 184 DOWINDOWCOM 133 \KEYNAMETONUMBER 82 \KEYNAMETONUMBER 63 SHIFTDOWNP 49 SHIFTDOWNP 35 SHIFTDOWNP 19 \INSUREWINDOW)
(229 TEXTSTREAM 220 TEXTOBJ 192 SELECTONLY 174 LASTMOUSEBUTTONS 128 COPY 123 \LASTKEYSTATE 77 MOVE 72 \LASTKEYSTATE 58 META 44 CTRL 30 SHIFT)
()
\TEDIT.BUTTONEVENTFN.INTITLE :D8
(P 12 THING P 0 USERFN I 2 TEXTOBJ I 1 PANE I 0 Y) ‹
À @hA
YIØmÿØñ´‚±E`lð™A ¿±1g ³5`g ¾½NâââlNlåÙºkJç¼»LMKÂåjð‘j€kjð¢±Ó¿`låj𒱿 g ³ö`g _¿_¿OâââlOlåÙ_¿kOç_¿_¿OOOÂåjð‘j€kj𳵿Ag
Éd¥A
A A ³BÉ,µ
Bg
_µ°> œO <00>O ¿°â¿`låjð­Ag
Xµigð³øHAd´dið¬3µ gAhh ¿°×(390 ADD.PROCESS 347 GETWINDOWUSERPROP 324 GETMOUSESTATE 316 COPYINSERT 308 MKSTRING 303 FULLNAME 295 STREAMP 283 GETTEXTPROP 260 INSIDEP 255 LASTMOUSEY 249 LASTMOUSEX 243 DSPCLIPPINGREGION 228 GETWINDOWPROP 216 GETMOUSESTATE 161 \KEYNAMETONUMBER 144 SHIFTDOWNP 116 GETMOUSESTATE 75 \KEYNAMETONUMBER 58 SHIFTDOWNP 44 DOWINDOWCOM 10 DSPCLIPPINGREGION)
(378 QUOTE 357 DON'T 342 TEDIT.TITLEMENUFN 330 LASTMOUSEBUTTONS 278 ITEM-NAME 268 TEXTOBJ 233 PANEPROPS 223 PANEPROPS 156 COPY 151 \LASTKEYSTATE 139 SHIFT 122 LASTMOUSEBUTTONS 70 COPY 65 \LASTKEYSTATE 53 SHIFT 34 LASTMOUSEBUTTONS)
()
\TEDIT.COPYINSERTFN :D8
(P 2 I P 0 TSTREAM I 1 PANE I 0 INSERTION) CA !@Y¿Id d¢ºhƒºI¹J ˜JH
°âJ ¦Jd3@ð²ÕHJ
°Ë(63 TEDIT.INSERT 48 STRINGP 40 TEDIT.INSERT.OBJECT 32 IMAGEOBJP 5 TEXTSTREAM)
NIL
()
\TEDIT.FOREIGN.COPY :D8
(P 2 CH P 1 CHNO I 2 BKSYSBUFP I 1 SOURCESTREAM I 0 SOURCESEL) G@É jñ´@É
kÙ@ÉIHó©AI
Zµh –J ŠJ ¿IkÔY°Ô(62 BKSYSBUF 57 CHARACTER 50 COPYINSERT 43 IMAGEOBJP 33 \TEDIT.NTHCHARCODE)
(5 SELECTION)
()
\TEDIT.PANE.SPLIT :D8
(P 4 OPERATION P 3 Y P 2 WINDOWOPREGION P 1 PANEWINDOW I 1 PANE I 0 TEXTOBJ) [@Égð´‚±HAhA
HHØmÿØ`Õ``Ag
É h"¿`låjð’±<00>JI I [ ²y¿¿`kåjð³` ¿g¼°¯¿`låjð³` ¿g¼°Š¿`låjð’±ÿw` ¿g¼±ÿcJI I [ ²K` ¿Ldgð™¿AK
°3gð—A °$Lgð<>@oid ‹…i i(343 CURSOR 336 \TEDIT.THELP 330 TEDIT.PROMPTPRINT 307 \TEDIT.UNSPLITW 292 \TEDIT.SPLITW 274 CURSOR 262 INSIDE? 256 LASTMOUSEY 250 LASTMOUSEX 233 CURSOR 208 GETMOUSESTATE 194 CURSOR 171 GETMOUSESTATE 157 CURSOR 135 GETMOUSESTATE 129 BLOCK 122 INSIDE? 116 LASTMOUSEY 110 LASTMOUSEX 88 GETMOUSESTATE 68 GETWINDOWPROP 27 DSPCLIPPINGREGION)
(315 MOVE 299 UNSPLIT 282 SPLIT 269 \TEDIT.SPLITCURSOR 239 UNSPLIT 228 \TEDIT.UNSPLITCURSOR 214 LASTMOUSEBUTTONS 200 MOVE 189 \TEDIT.MOVESPLITCURSOR 177 LASTMOUSEBUTTONS 163 SPLIT 152 \TEDIT.MAKESPLITCURSOR 141 LASTMOUSEBUTTONS 94 LASTMOUSEBUTTONS 73 PANEPROPS 63 PANEPROPS 57 \TEDIT.OP.WIDTH 52 \TEDIT.OP.BOTTOM 46 \TEDIT.OP.WIDTH 12 PANE 5 TEXTOBJ)
( 323 "Split-point moving is not yet implemented")
\TEDIT.SPLITW :D8
(P 15 L P 14 BOTTOM P 13 DP P 9 NEXTCHAR1 P 8 PROPS P 7 NEWPANE P 6 ATTACHEDWINDOWS P 5 NEXTPANE P 4 SEL P 3 PREG P 1 TEXTOBJ P 0 TSTREAM I 1 Y I 0 OLDPANE) ¯Adið²¿@g
Éɇµ
@ b3 ´‚±-Ajñ´‚±$@g
!HÑH‡Hɹ@ ÉIɼ@g
ÉA H ¿IÉZjð’±ÎJµ‚±¼Mµ‚±À@gh ¾@KKAØKKAÙK
¿KKKAK _@ggg
¿@gN@g
¿Ogi ¿IÉ4ÉO
¿oIÉF @
IÉ\°; ¢±ÿAh ¿±ÿ=d_O h_¿Oµ Oh_‚O&_¿µÚO
_¿@OHO@
¿h@
@g
É<00>OÉkØ<6B>OÉd’±‚_¿OHO@O
¿Ogg ¿Og@ É. ¿LÊjð³LjÏ¿LiHOi
¿MµOOggg
¿°å_É<1C>OÉÉOýñ¢±ÿ^OÉIÉýñ’±ÿJOÉ¢±ÿBOÉɱÿN(628 ATTACHWINDOW 598 \TEDIT.SHOWSEL 561 PUTWINDOWPROP 554 \INSUREWINDOW 540 WINDOWDELPROP 522 \TEDIT.WINDOW.SETUP 470 GETWINDOWPROP 454 DSPCLIPPINGREGION 446 \TEDIT.LINKPANES 441 \TEDIT.MINIMAL.WINDOW.SETUP 426 \APPEND2 421 \APPEND2 386 COPY 369 DETACHWINDOW 358 \FZEROP 345 COPY 331 DSPFONT 313 PUTWINDOWPROP 299 PUTWINDOWPROP 294 \APPEND2 289 GETWINDOWUSERPROP 270 ATTACHWINDOW 246 CREATEW 221 SHAPEW 187 PUTWINDOWPROP 148 TEDIT.PROMPTCLEAR 132 GETWINDOWPROP 102 \INSUREWINDOW 70 GETWINDOWPROP 40 LASTMOUSEY 17 GETWINDOWPROP)
(636 LINEDESCRIPTOR 622 MAIN 617 JUSTIFY 612 BOTTOM 581 SELECTION 568 SELECTION 548 PROCESS 535 TEDIT.DEACTIVATE.WINDOW 530 CLOSEFN 497 LINEDESCRIPTOR 482 LINEDESCRIPTOR 475 PANEPROPS 465 PANEPROPS 322 CHARLOOKS 307 TEDITCREATED 284 ATTACHEDWINDOWS 277 ATTACHEDWINDOWS 264 MAIN 259 JUSTIFY 254 BOTTOM 181 ATTACHEDWINDOWS 137 PANEPROPS 127 PANEPROPS 120 SELECTION 113 TEXTOBJ 95 TEXTOBJ 88 STREAM 79 TEXTOBJ 65 TEXTSTREAM 29 TEDITCARET 22 PANEPROPS 12 PANEPROPS)
( 337 (NOTITLE T PROMPTWINDOW DON'T TITLEMENUFN NILL))
\TEDIT.UNSPLITW :D8
(P 6 ATTACHEDWINDOWS P 5 NEXTPANEWINDOW P 4 PREVPANEWINDOW P 3 PREVPANE P 2 PANEREGION P 1 TEXTOBJ P 0 TSTREAM I 0 PANE) ø@i
HÑH‡Hɹ@ É@g
É
K¼@g
ÉI´‚±š@IÉðœIo
hI ¿IdÉÎJ¿hdHh ¿@i
¿Lgh ¾LJL É
¿LgN ¿Md²! ¿MLggg
¿hiHKh
¿@ h(244 CLOSEW 237 \TEDIT.SHOWSEL 225 ATTACHWINDOW 201 DETACHWINDOW 191 PUTWINDOWPROP 178 SHAPEW 173 UNIONREGIONS 166 \INSUREWINDOW 157 PUTWINDOWPROP 144 \TEDIT.CLOSEPANE 136 \TEDIT.SHOWSEL 119 TEDIT.PROMPTCLEAR 111 TEDIT.PROMPTPRINT 77 GETWINDOWPROP 54 GETWINDOWPROP 38 \INSUREWINDOW 6 TEXTSTREAM)
(219 MAIN 214 JUSTIFY 209 BOTTOM 185 ATTACHEDWINDOWS 151 ATTACHEDWINDOWS 82 PANEPROPS 72 PANEPROPS 59 PANEPROPS 49 PANEPROPS 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
( 106 "Cannot remove the primary window-pane")
\TEDIT.LINKPANES :D8
(P 5 \INTERRUPTABLE P 2 PANE1NEXT P 1 PPROPS2 P 0 PPROPS1 I 1 PANE2 I 0 PANE1) ˜@g
Ag
2HÉZI»KdÈ
nðå@ÒnÿåäÍ
¿Kl
kØÐ@ÓÍIHÉHAJ²2Jg
¼LdÈ
nðåAÒnÿåäÍ
¿Ll
kØÐAÓÍA(111 GETWINDOWPROP 21 GETWINDOWPROP 10 GETWINDOWPROP)
(116 PANEPROPS 106 PANEPROPS 94 PANEPROPS 84 PANEPROPS 78 PANEPROPS 39 PANEPROPS 30 PANEPROPS 16 PANEPROPS 5 PANEPROPS)
()
\TEDIT.UNLINKPANE :D8
(P 4 \INTERRUPTABLE P 2 PREV P 1 NEXT P 0 PANEPROPS I 0 PANE) o@g
1HÉYHÉ
Zd²dg
I¿IµJg
»KdÈ
nðåJÒnÿåäÍ
¿Kl
kØÐJÓÍ°Î(69 GETWINDOWPROP 45 GETWINDOWPROP 10 GETWINDOWPROP)
(74 PANEPROPS 64 PANEPROPS 50 PANEPROPS 40 PANEPROPS 28 PANEPROPS 19 PANEPROPS 5 PANEPROPS)
()
TEDITWINDOWP :D8
(P 0 TEXTOBJ I 0 WINDOW) @i
Hd–É(6 TEXTOBJ)
(17 TEXTOBJ)
()
TEDIT.GETINPUT :D8
(P 2 RESULT P 1 TPROMPT P 0 TEXTOBJ I 3 DELIMITER.LIST I 2 DEFAULTSTRING I 1 PROMPTSTRING I 0 STREAM) È@ !HÉL¹hºIdgð²¿Hg
´-@ ° ³@ hdHg
hð €IYd˜d ¿I„` ¿ABhIµ`hgCµoh
Zd l"ð²-Jmÿ
l"ð² Jlmþ ºIµ`gh J(196 PUTWINDOWPROP 176 SUBSTRING 161 NTHCHARCODE 148 CHCON1 141 TTYINPROMPTFORWORD 108 FRESHLINE 95 CLEARW 84 GETPROMPTWINDOW 77 GETTEXTPROP 64 \TEDIT.MAINW 54 GETPROMPTWINDOW 49 \TEDIT.MAINW 41 GETTEXTPROP 5 TEXTOBJ)
(190 PROCESS 185 PROMPTWINDOW 126 TTY 120 PROMPTWINDOW 103 PROMPTWINDOW 72 PWINDOW.ON.DEMAND 36 PWINDOW.ON.DEMAND 26 DON'T 14 TEXTOBJ)
( 134 (13 10 9 27 24))
\TEDIT.MAKEFILENAME :D8
(I 0 STRING) "@h
³o@
@ jð¡@h(25 NCHARS 19 CL:STRING-TRIM 6 STRING.EQUAL)
NIL
( 13 (#\Space))
TEDIT.PROMPTWINDOW :D8
(I 0 TSTREAM)
@ ÉL(5 TEXTOBJ)
NIL
()
TEDIT.PROMPTPRINTA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PWINDOW F 3 TEXTOBJ F 4 MAINWINDOW F 5 SI::NLSETQ-VALUE F 6 TSTREAM) Li@Rdgð²¿Sg
´&T °³V´ThdSg
hð €Rhc
g(62 GETPROMPTWINDOW 55 GETTEXTPROP 34 GETPROMPTWINDOW 26 GETTEXTPROP)
(73 :NORMAL 50 PWINDOW.ON.DEMAND 21 PWINDOW.ON.DEMAND 11 DON'T)
()
TEDIT.PROMPTPRINT :D8
(P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 MAINWINDOW P 1 PWINDOW P 0 TEXTOBJ I 3 FLASH? I 2 CLEAR? I 1 MSG I 0 TSTREAM F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) ’@i
!H§A h@ Z²1HÉL¹`WioWL gð´KY€I ²B–I ¿C™IklK ¿AI°` ¿C™IklK ¿A`
h(142 PRIN1 130 FLASHWINDOW 118 FRESHLINE 103 FLASHWINDOW 91 CLEARW 81 WINDOWP 61 TEDIT.PROMPTPRINTA0001 25 \TEDIT.MAINW 17 PROMPTPRINT 6 TEXTOBJ)
(137 PROMPTWINDOW 113 PROMPTWINDOW 67 :NORMAL 40 SI::NLSETQ-PROCEED-CASE)
( 49 (CL:ERROR . SI::NLSETQHANDLER))
TEDIT.PROMPTCLEAR :D8
(P 4 PROP P 3 REG P 2 HEIGHT P 1 PW P 0 MW I 1 FONT I 0 TSTREAM) È@ Hd²hd@g
hð Id¢±šgk Ig
XžHg
XµsAµ` È
I ÉJKð³<IgjJ ¿IgnúJ ¿IKKKJK
¿I ´I k¿°Œ(192 CLEARW 184 OPENWP 177 SHAPEW 151 PUTWINDOWPROP 134 PUTWINDOWPROP 106 \INSUREWINDOW 100 HEIGHTIFWINDOW 93 FONTCREATE 76 GETWINDOWUSERPROP 63 GETWINDOWUSERPROP 52 PUTWINDOWPROP 32 GETPROMPTWINDOW 25 GETTEXTPROP 5 \TEDIT.MAINW)
(141 MAXSIZE 126 MINSIZE 88 TEDIT.PROMPT.FONT 71 PROMPTWINDOW 58 MAINWINDOW 46 TEDIT.NLINES 20 PWINDOW.ON.DEMAND)
()
TEDIT.PROMPTFLASH :D8
(P 2 WINDOW P 1 MAINTEXTOBJ P 0 TEXTOBJ I 0 TSTREAM) f@ bdÑ@‡@É!H²$HÊ8jð³@ Yd² ÉL°H”HÉLµ@ hdi Zdµ`l
(99 FLASHWINDOW 83 GETPROMPTWINDOW 75 \TEDIT.MAINW 49 \TEDIT.MAINSTREAM 5 TEXTSTREAM)
(92 PROMPTWINDOW 58 TEXTOBJ 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
()
\TEDIT.PROMPT.PAGEFULLFN :D8
(P 10 WINDOW P 9 NEWTOP P 7 ATTACHEDMENUS P 6 MAINWINDOW P 5 OLDBOTTOM P 4 OLDTOP P 3 OLDREGION P 2 %#LINES P 0 PROMPT-WINDOW I 0 PROMPT-DISPLAY-STREAM F 11 \CURRENTDISPLAYLINE) ¿ @ Hg
µkkØH ÉKKØmÿØK½Hg
HN
NJ
JkÕcO H ÉYIØmÿØ
OµHgJ _ ÉMýó³OjOLÙ
¿O_°Ç(181 RELMOVEW 176 CREATEPOSITION 155 \INSUREWINDOW 146 PUTWINDOWPROP 111 \INSUREWINDOW 105 REVERSE 93 GETPROMPTWINDOW 83 REMOVE 78 ATTACHEDWINDOWS 68 GETWINDOWUSERPROP 33 \INSUREWINDOW 19 GETWINDOWUSERPROP 5 WFROMDS)
(140 TEDIT.NLINES 63 MAINWINDOW 14 TEDIT.NLINES)
()
\TEDIT.FILENAME :D8
(P 2 CL::$$TYPE-VALUE P 1 TXTFILE P 0 TEXTOBJ I 0 TSTREAM) :@ !HÉ,YdZg
³JÖI ‡JÿIµo(39 FULLNAME 24 TYPENAMEP 5 TEXTOBJ)
(46 LITATOM 32 STREAM 19 STRINGP)
( 55 "")
\TEDIT.DEFAULT.TITLE :D8
(P 2 CL::$$TYPE-VALUE P 0 TITLE I 1 PROPS I 0 FILE) £Ag'Hµ‚±“Ag'•o„o@µ o°p Ÿ@ Yjð³'Iµ@ ²!@ É(µHo°A ²âo°3@Jg
³JÚ@ɵ †Jÿ@
(160 CONCAT 155 CONCAT 121 TYPENAMEP 97 \FZEROP 81 \INSUREWINDOW 73 WINDOWP 57 NCHARS 50 STRINGP)
(147 LITATOM 136 STREAM 129 STREAM 116 STRINGP 22 READONLY 5 TITLE)
( 104 "Window" 90 "Window" 43 "Window" 35 "Tedit " 29 "See ")
\TEDIT.WINDOW.TITLE :D8
(P 0 W I 2 TITLE I 1 DIRTYFLAG I 0 TEXTOBJ) µ@Ê8jð´‚±£@ H´‚±•@g
’±…Hg
´xB<78>HgB °H É(µob¿A@Ê,jðhðð³GAœoB
°)B l*ð²!Bl
l ð²Bl
µob¿HgB Bh(175 PUTWINDOWPROP 153 SUBSTRING 140 NTHCHARCODE 127 CHCON1 119 CONCAT 82 \INSUREWINDOW 74 PUTWINDOWPROP 58 GETWINDOWUSERPROP 43 GETTEXTPROP 22 \TEDIT.PRIMARYPANE)
(169 TITLE 68 TITLE 53 TEDITCREATED 38 NOTITLE 5 TEXTOBJ)
( 160 "" 113 "* " 91 "")
\TEDIT.LIKELY.FILENAME :D8
(P 3 EXT P 2 TXTFILE P 1 DEFAULTEXT P 0 TEXTOBJ I 1 UNFORMATTED? I 0 TSTREAM F 4 *TEDIT-EXTENSIONS*) ­@ @g
µA•g„g!HÉ,ºh»JôtJÉZd²hg
[d™ddgð“¿I°T
¡KŒA•g„g[Jg
¦K »gKghgJ
(170 PACKFILENAME 145 L-CASE 138 U-CASEP 133 FILENAMEFIELD 105 MEMB 83 U-CASE 78 FILENAMEFIELD 19 GETTEXTPROP 5 TEXTOBJ)
(163 BODY 157 VERSION 151 EXTENSION 128 NAME 121 TEDIT 115 TXT 93 BRAVO 73 EXTENSION 62 STREAM 54 STREAM 43 TEXTOBJ 34 TEDIT 28 TXT 14 DEFAULTPUTEXTENSION)
()
\TEDIT.UPDATE.TITLE :D8
(P 4 FIELDS P 3 FIELD P 2 SETSTATEFN P 1 MENUSTREAM P 0 TITLE I 1 FILENAME I 0 TEXTOBJ)  @ A@hAµH @ Yd´GHd3@ð´@ghgH boIo \dg'[µ.Lg'[µ I g
Z²íKAIlJ¿°àg
Z²ÈKAIlJ¿°»(142 IMAGEOBJPROP 115 IMAGEOBJPROP 103 \TEDIT.FILL.PANES 76 MB.GET 58 PACKFILENAME 30 TEDIT.MENUSTREAM 24 \TEDIT.WINDOW.TITLE 19 \TEDIT.DEFAULT.TITLE 5 \TEDIT.FILENAME)
(137 SETSTATEFN 110 SETSTATEFN 93 PUTFILE 83 GETFILE 52 BODY 46 VERSION)
( 71 (OBJECT STARTPC) 65 (GETFILE PUTFILE))
TEDIT.DEACTIVATE.WINDOW :D8
(P 6 MTEXTOBJ P 5 MENUW P 3 TEXTOBJ P 2 PANEWINDOW P 1 PROC P 0 TSTREAM I 0 PANE) C@ «@ µ@b€@i
1Hd²ÑH‡HÉ»@ºh¹Kd¢±ÒÉ0³Hi
gð•gKÉ@Kg ¿Hi
¿KÉL²KÉL ˜KÉL ¿K ² KÉL ²@ œKho ¿KÉ,ò%Jg
³Jgh ¿KÉ, ¿KÊ8jð¦J ¿@ !Lµ@i
¿H h]i
^²#NÊ8jð³Ni0¿Mgh ¿N ¿L\°½(315 TEDIT.KILL 308 PUTWINDOWPROP 280 TEXTOBJ 270 TEDIT.KILL 263 \TEDIT.CLOSEPANE 248 ATTACHEDWINDOWS 241 FREEATTACHEDWINDOW 227 CLOSEF? 218 PUTWINDOWPROP 204 GETWINDOWPROP 182 \TEDIT.WINDOW.TITLE 169 OPENWP 161 OPENWP 151 \TEDIT.WINDOW.TITLE 144 CLEARW 135 OPENWP 121 \TEDIT.CLOSESPLITS 113 \TEDIT.SETCARET 75 \TEDIT.FINISHEDIT? 25 TEXTSTREAM 12 TEDITWINDOWP 5 WINDOWP)
(302 TEDITMENU 212 TEDIT-CLOSING-FILE 199 TEDIT-CLOSING-FILE 191 STREAM 108 OFF 101 SELECTION 94 TEXTOBJ 87 DON'T 80 DON'T 53 TEXTOBJ 46 STREAM 37 TEXTOBJ)
( 177 "Edit Window [Inactive]")
\TEDIT.RESHAPEFN :D8
(P 9 PANEPROPS P 8 PANEPREFIX P 7 PREG P 0 TEXTOBJ I 2 OLDREGION I 1 BITS I 0 PANE) o
@g
Ü@g
°@g
Éah@
@g
É@g
 OO ¿OO¿OO¿OOOØmÿØ¿OO¿OOOØmÿØ¿OOOdÉ@g
É BÙغYdÉIJ¿JØ¿@g
Éɲ?@g
ÉÉOɾ]NMÉ Ù¼[dÉKL¿LØ¿@ (364 \TEDIT.FILL.PANES 308 GETWINDOWPROP 281 GETWINDOWPROP 236 GETWINDOWPROP 102 GETWINDOWPROP 76 GETWINDOWPROP 62 DSPCLIPPINGREGION 40 GETWINDOWPROP 27 GETWINDOWPROP 10 GETWINDOWPROP)
(346 LINEDESCRIPTOR 335 LINEDESCRIPTOR 320 LINEDESCRIPTOR 313 PANEPROPS 303 PANEPROPS 293 LINEDESCRIPTOR 286 PANEPROPS 276 PANEPROPS 258 LINEDESCRIPTOR 241 PANEPROPS 231 PANEPROPS 216 PANEPROPS 192 PANEPROPS 178 PANEPROPS 156 PANEPROPS 143 PANEPROPS 128 PANEPROPS 112 PANEPROPS 97 PANEPROPS 88 LINEDESCRIPTOR 81 PANEPROPS 71 PANEPROPS 52 TEXTOBJ 45 STREAM 35 TEXTSTREAM 22 TEXTSTREAM 15 TEXTOBJ 5 TEXTSTREAM)
()
\TEDIT.REPAINTFN :D8
(I 1 REGION I 0 WINDOW) @ (5 \TEDIT.FILL.PANES)
NIL
()
\TEDIT.CLOSESPLITS :D8
(P 7 PANEWINDOW P 6 PANE P 1 WHOLEREGION P 0 PRIMARYPANE I 1 RESTORESHAPE I 0 TSTREAM) "@Ñ@‡@ÉÉHd¢±õg
´‚±åHg
É´‚±ÍHg
ÉQJdòB¿JÉ°<M&¼°%^_gg ¿O ½LµßMh\»Ng
ɵËgH K
YHg
ÉMdò!¿MÉ°^ ¿Ng
ɵçA²Hgh HI
HgI (287 PUTWINDOWPROP 274 SHAPEW 267 PUTWINDOWPROP 242 GETWINDOWPROP 230 \TEDIT.CLOSEPANE 199 GETWINDOWPROP 186 APPLY 179 WINDOWREGION 159 GETWINDOWPROP 139 WINDOWREGION 131 WINDOWDELPROP 83 GETWINDOWPROP 59 GETWINDOWPROP 42 GETWINDOWPROP)
(281 SAVED-TYPED-REGION 261 SAVED-TYPED-REGION 247 PANEPROPS 237 PANEPROPS 216 TEXTOBJ 204 PANEPROPS 194 PANEPROPS 173 UNIONREGIONS 164 PANEPROPS 154 PANEPROPS 126 TEDIT.DEACTIVATE.WINDOW 121 CLOSEFN 100 TEXTOBJ 88 PANEPROPS 78 PANEPROPS 64 PANEPROPS 54 PANEPROPS 37 PANEPROPS 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.CLOSEPANE :D8
(P 9 SLN P 8 SL1 P 7 P P 3 PROP P 2 SEL P 1 PANEWINDOW P 0 TEXTOBJ I 1 DONTCLOSEW I 0 PANE) 6
@ !@¹HÉZ@Hg I @ oŽdIKh µðo°*dIgg ¿Igg µ×JÉJÉH3 NdÓ¿Nɵ°f_¿Mµ°]_¿Lµ°S_¿@Oð²4JOJÉ
¿JOJÉ
¿°Og
ɵ&@JÉJÉ
Igh A³I _¿M½L¼±ÿrh(293 CLOSEW 284 PUTWINDOWPROP 272 DREMOVE 249 GETWINDOWPROP 232 DREMOVE 208 DREMOVE 117 WINDOWDELPROP 100 WINDOWDELPROP 67 WINDOWPROP 48 \TEDIT.UNLINKPANE 42 DETACHWINDOW 36 \TEDIT.SETCARET 5 TEXTOBJ)
(278 TEXTSTREAM 254 PANEPROPS 244 PANEPROPS 225 SELECTION 217 SELECTION 201 SELECTION 193 SELECTION 149 TEXTOBJ 136 SELECTION 128 SELECTION 112 \TEDIT.RESHAPEFN 107 RESHAPEFN 95 TEDIT.DEACTIVATE.WINDOW 90 CLOSEFN 31 OFF 23 SELECTION 16 TEXTOBJ)
( 77 (CLOSEFN RESHAPEFN) 53 (PROCESS.EXITFN PROCESS.IDLEFN CURSOROUTFN CURSORINFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN REPAINTFN WINDOWENTRYFN NEWREGIONFN))
\TEDIT.SCROLLFN :D8
(P 3 TEXTOBJ P 0 TSTREAM I 2 DY I 1 DX I 0 PANE) ï@ @g
1HÑH‡HÉ[ÉYjð’±»I™I ’±­KÉ>ŸKoi ¿±™Hgi ¦K ¿Kg
²Kg
@
¿Bd²(¿H@KÉkÙBKÉê ºdJñ‘¿Jdkñ¡¿k °jñ˜H@B ‹jBñ˜H@B ¿Kg
´Kg
@
h(235 DOUSERFNS 229 GETTEXTPROP 216 GETTEXTPROP 204 \TEDIT.SCROLLDOWN 191 \TEDIT.SCROLLUP 178 \TEDIT.SCROLLCH.TOP 160 FIXR 135 DOUSERFNS 129 GETTEXTPROP 116 GETTEXTPROP 104 \TEDIT.REOPENTEXTSTREAM 97 \GETSTREAM 81 TEDIT.PROMPTPRINT 61 \FZEROP 16 GETWINDOWPROP 5 TOTOPW)
(224 POSTSCROLLFN 211 POSTSCROLLFN 124 PRESCROLLFN 111 PRESCROLLFN 91 INPUT 41 TEXTOBJ 34 STREAM 25 TEXTOBJ 11 TEXTSTREAM)
( 75 "Edit operation in progress.")
\TEDIT.SCROLLCH.TOP :D8
(P 2 TARGETLINE P 1 PANEPREFIX P 0 TEXTOBJ I 2 CHNO I 1 PANE I 0 TSTREAM) ®@ÉAg
É2Ag
Éɲ5BAg
Éɼ[LÉýñ«KLÉkØýñ’L³8BAH Z˜@AJ @B
Z´AJdhAH HA
h(169 \TEDIT.FILL.PANES 162 \TEDIT.SETPANE.TOPLINE 157 \TEDIT.TOPLINE.YTOP 142 \TEDIT.LINES.ABOVE 134 \TEDIT.SCROLLUP 124 \TEDIT.VISIBLECHARP 77 GETWINDOWPROP 49 GETWINDOWPROP 23 GETWINDOWPROP)
(99 LINEDESCRIPTOR 89 LINEDESCRIPTOR 82 PANEPROPS 72 PANEPROPS 61 LINEDESCRIPTOR 54 PANEPROPS 44 PANEPROPS 35 LINEDESCRIPTOR 28 PANEPROPS 18 PANEPROPS 12 TEXTOBJ 5 STREAM)
()
\TEDIT.SCROLLCH.BOTTOM :D8
(P 5 PANETOPLINE P 4 NEWLINES P 3 TOPLINE P 2 TARGETLINE P 1 BOTTOM P 0 TEXTOBJ I 3 BOTMARGIN I 2 CHNO I 1 PANE I 0 TSTREAM) ½@ÉhA
BC“ICÔ¹BAH Zµb@Ag
É BI \dZL[JKð²[Ag
ÉÉ]²?JÉMÉð²6MÉIýñ².@AIMÉ٠ɪJÉkØHÉñ´%@AIJÉJÉØÙ KÉ“KÉ»@AKÉ (186 \TEDIT.SCROLLCH.TOP 167 \TEDIT.SCROLLDOWN 136 \TEDIT.SCROLLUP 90 GETWINDOWPROP 67 \TEDIT.BACKFORMAT 53 GETWINDOWPROP 38 \TEDIT.VISIBLECHARP 19 DSPCLIPPINGREGION)
(102 LINEDESCRIPTOR 95 PANEPROPS 85 PANEPROPS 58 PANEPROPS 48 PANEPROPS 12 TEXTOBJ 5 STREAM)
()
\TEDIT.SCROLLUP :D8
(P 12 TARGETY P 11 NEXT P 10 L P 9 TEXTLEN P 8 PHEIGHT P 7 SUFFIX P 4 BITMAPLINES P 3 NEWPANEYBOT P 2 NEWTOPLINE P 1 OLDTOPLINE P 0 TEXTOBJ I 2 DY I 1 PANE I 0 TSTREAM) d
@ÉAg
ÉÉRI´‚±ÏB×Bhb¿±»Bjñ´‚±²Ag
ÉAg
É HÉ3 Iµ±€_¿OBÙ_¿OOO ©OÉkØOñ“O°WOdOð²E¿@OÉkØ
_¿OµBOd›OοOOO
¾]dÉMN¿NØ¿OɵhZdd³O¿°¶_±ÿyBAH [´àAJK Ag
ÉA@AJ
i
HÉAHg h(352 \TEDIT.SETCARET 327 \TEDIT.SHIFTLINES 320 \TEDIT.BITMAPLINES 299 GETWINDOWPROP 288 \TEDIT.SETPANE.TOPLINE 277 \TEDIT.TOPLINE.YTOP 208 \TEDIT.LINE.BOTTOM 176 \TEDIT.FORMATLINE 140 \TEDIT.SHOW.AT.TOPP 95 GETWINDOWPROP 77 GETWINDOWPROP 18 GETWINDOWPROP)
(347 ON 340 SELECTION 333 TEXTOBJ 311 LINEDESCRIPTOR 304 PANEPROPS 294 PANEPROPS 264 LINEDESCRIPTOR 252 LINEDESCRIPTOR 235 LINEDESCRIPTOR 216 LINEDESCRIPTOR 192 LINEDESCRIPTOR 119 LINEDESCRIPTOR 100 PANEPROPS 90 PANEPROPS 82 PANEPROPS 72 PANEPROPS 48 LINEDESCRIPTOR 30 LINEDESCRIPTOR 23 PANEPROPS 13 PANEPROPS 5 STREAM)
()
\TEDIT.TOPLINE.YTOP :D8
(P 2 NEWBOT P 1 NEWTOP P 0 PHEIGHT I 3 TEXTOB I 2 PANE I 1 DY I 0 NEWTOPLINE) EBg
É !Aœ@É l2ñ¯@É Hñ©H@É@ÉÙØA@ÉØZddHñ•¿HlÙZ@É Ø(10 GETWINDOWPROP)
(15 PANEPROPS 5 PANEPROPS)
()
\TEDIT.SCROLLDOWN :D8
(P 8 NEWLINES P 7 NEWTOPLINE P 6 NEWPANEYBOT P 5 OLDTOPLINE P 4 PHEIGHT P 3 PBOTTOM P 0 TEXTOBJ I 2 DY I 1 PANE I 0 TSTREAM) ž @É!hA
Ag
É Ag
ÉÉ1MªHÉjð´‚±JBÚB_¿jb¿±ìBjð’±0jBÙb¿MÉMÉØBÙLÙMÉMÉÙñ²MÉ l2ñ¥MÉ LñžM_ÉOÉØBÙ±­@BMÉkÙ¹kIñ¡I€kj _d¢±Þ_ÉMÉÙjð“M_€MÉkð²#MÉMÉØLñ´‚±¸MÉ l2ñªMÉ Lñ´‚±¦OZµ#MµOdMð²$¿MÉMÉØBÙ°<Jο°äM¿°ÖÉ l2ñ¦OÉ Lñ›OÉOÉØLBˆLOÉOÉÙؾAON ¿Ag
ÉA@AM
i
¿HÉAHg h(410 \TEDIT.SETCARET 384 \TEDIT.SHIFTLINES 377 \TEDIT.BITMAPLINES 356 GETWINDOWPROP 344 \TEDIT.SETPANE.TOPLINE 185 \TEDIT.BACKFORMAT 54 GETWINDOWPROP 33 GETWINDOWPROP 17 DSPCLIPPINGREGION)
(405 ON 398 SELECTION 391 TEXTOBJ 368 LINEDESCRIPTOR 361 PANEPROPS 351 PANEPROPS 292 LINEDESCRIPTOR 281 LINEDESCRIPTOR 90 LINEDESCRIPTOR 66 LINEDESCRIPTOR 59 PANEPROPS 49 PANEPROPS 38 PANEPROPS 28 PANEPROPS 5 STREAM)
()
\TEDIT.SCROLL.CARET :D8
(P 2 CARETCHNO P 1 PANE P 0 TEXTOBJ I 0 TSTREAM) c@ @É!HÉJµ@ YdµhH
³ø@ ZdIg
ÉÉñ¨@IJ ‰@IJl h(95 \TEDIT.SCROLLCH.BOTTOM 84 \TEDIT.SCROLLCH.TOP 60 GETWINDOWPROP 47 TEDIT.GETPOINT 39 \TEDIT.VISIBLECARETP 27 \TEDIT.PRIMARYPANE 5 TEDIT.PROMPTCLEAR)
(72 LINEDESCRIPTOR 65 PANEPROPS 55 PANEPROPS 11 STREAM)
()
\TEDIT.VISIBLECARETP :D8
(P 2 CARETLINE P 1 PCARET P 0 CARETCHNO I 1 TEXTOBJ I 0 PANE) ÕA kÙ@g
ÉIÉ´‚±¦IÉ´‚±˜jIÉñ’±‰IÉh@
@g
É LKñhð´KMñhð´THdAÉñœ¿AÉjñ”AÉX€H@A Zd´3dÉh@
@g
É LKñhð´KMñhð´Jh(182 GETWINDOWPROP 169 DSPCLIPPINGREGION 155 \TEDIT.VISIBLECHARP 103 GETWINDOWPROP 90 DSPCLIPPINGREGION 18 GETWINDOWPROP 5 TEDIT.GETPOINT)
(187 PANEPROPS 177 PANEPROPS 108 PANEPROPS 98 PANEPROPS 81 TEDITCARET 68 TEDITCARET 53 TEDITCARET 39 TEDITCARET 30 TEDITCARET 23 PANEPROPS 13 PANEPROPS)
()
\TEDIT.VISIBLECHARP :D8
(P 2 L P 1 BOTTOM P 0 TOP I 2 TEXTOBJ I 1 PANE I 0 CHNO) –@Ag
ÉÉkØýñ³=Ag
É hA
Ag
É€Jɵhº@JÉýñ³ã@JÉkØýñ²ÙJd²ÖÉJÉØHñ³ËJÉIýñ³ÃJµi(72 GETWINDOWPROP 56 DSPCLIPPINGREGION 42 GETWINDOWPROP 11 GETWINDOWPROP)
(105 LINEDESCRIPTOR 97 LINEDESCRIPTOR 86 LINEDESCRIPTOR 77 PANEPROPS 67 PANEPROPS 47 PANEPROPS 37 PANEPROPS 23 LINEDESCRIPTOR 16 PANEPROPS 6 PANEPROPS)
()
\TEDIT.BITMAPLINES :D8
(P 6 LL P 5 TOOFAR P 4 L P 3 VBOTTOM P 2 VHEIGHT P 1 PBOTTOM P 0 PHEIGHT I 2 ENDLINE I 1 STARTLINE I 0 PANE) Ad¢±Ê&jð´‚±òAµ<@g
É h@
@g
@g
Aµ@±´ÉAÉØ@g
É ñ²­AÉb@g
Éð²“hb¿°<C2BF>¼KIÙjð§HKJØñ¡HºLÉLÉØJñ³OLÉKýñ³QLBµ@g
É!L°É°øÉKýñ«N_ɵO^dMð²à¿°ïLɵh\°—(195 GETWINDOWPROP 125 GETWINDOWPROP 99 GETWINDOWPROP 73 \TEDIT.ONSCREEN? 62 \TEDIT.ONSCREEN? 49 DSPCLIPPINGREGION 35 GETWINDOWPROP)
(266 LINEDESCRIPTOR 255 LINEDESCRIPTOR 240 LINEDESCRIPTOR 226 LINEDESCRIPTOR 200 PANEPROPS 190 PANEPROPS 146 LINEDESCRIPTOR 130 PANEPROPS 120 PANEPROPS 104 PANEPROPS 94 PANEPROPS 68 BOTTOM 57 HEIGHT 40 PANEPROPS 30 PANEPROPS 10 LINEDESCRIPTOR)
()
\TEDIT.SETPANE.TOPLINE :D8
(P 0 PREFIX I 2 PREFIXYBOT I 1 TOPLINE I 0 PANE) VA´=@g
ÉHBµ AÉAÉØHµAµ HAÉkÙAHο°íA¿°ß(13 GETWINDOWPROP)
(78 LINEDESCRIPTOR 67 LINEDESCRIPTOR 34 LINEDESCRIPTOR 25 LINEDESCRIPTOR 18 PANEPROPS 8 PANEPROPS)
()
\TEDIT.SHIFTLINES :D8
(P 25 L P 24 SELN P 23 SEL1 P 22 LN P 21 L P 20 SELN P 19 SEL1 P 18 L1 P 17 L P 16 L P 15 L P 14 L P 13 Y P 12 BMBOTL P 11 BMBOTY P 10 DELTA P 9 BMTOPY P 8 BMTOPL P 7 PBOTTOM P 6 VLEFT P 5 NEXTLINE P 2 LASTVISIBLE P 1 SEL P 0 TEXTOBJ I 4 SCROLLING I 3 BITMAPLINES I 2 TSTREAM I 1 PANE I 0 PREVLINE) `BÑB‡BÉAHɹhºIAHg C¢±Ã@ÉAg
hA
C_ÉOÉØ1 C_É_¿@ÉM°<_OOÉ Ù¼[dÉKL¿LØ¿OOÉ Ù_¿OɵÆOÉOÉØOÙ_¿ANOANOOØhA
OOÙgg
¿OÉOÉØ_¿M°$_ÉOýñ³BOA ¿OɵÞO°._ ¿OÉOýñ²OA
³OÉ_¿O ɵÔOAH ¿OAg
Éð²Ag
ÉÉ°)OÉOýñªOAB °OˆO"Éd³IºABJ ¿IBA ¿IÊjð’±IÉ jð’±IAH IÉIÉ
kÙOɵ°m_"ÉOñ²¡O"µ©i°¦_*¿O$²LO$Oð³EO$ÉO$ÉØOñ²7O*ÉkØO&ñ²O*ÉO(ñ¯HO$O*AI
¿°O*dO$𑿈ɵ#IAH IÉIÉ
kÙOɵ
°Y_*°¥_2¿O,²DO,ÉOOØýñ²7O2ÉkØO.ñ²O2ÉO0ñ¯HO2O,AI
¿°O2dO,𑿈ɵ °/_2°¿@AH ¿@AB ºABJ ¿hBA ¿D²7jAhA
@ÉhA
Ag
É g
¿HA
(861 \TEDIT.SET.WINDOW.EXTENT 853 BLTSHADE 835 GETWINDOWPROP 821 DSPCLIPPINGREGION 810 DSPCLIPPINGREGION 797 \TEDIT.FIXSEL 788 \TEDIT.SUFFIXLINE.CREATE 779 \TEDIT.LINES.BELOW 770 \TEDIT.CLEARPANE.BELOW.LINE 725 \TEDIT.SHOWSEL.HILIGHT 635 \TEDIT.SEL.LN 605 \TEDIT.SHOWSEL.HILIGHT 495 \TEDIT.SEL.L1 467 \TEDIT.FIXSEL 458 \TEDIT.SUFFIXLINE.CREATE 428 \TEDIT.LINES.BELOW 394 GETWINDOWPROP 373 GETWINDOWPROP 359 \TEDIT.CLEARPANE.BELOW.LINE 329 \TEDIT.SHOW.AT.BOTTOMP 283 \TEDIT.DISPLAYLINE 240 BKBITBLT 216 DSPCLIPPINGREGION 85 DSPCLIPPINGREGION 75 \TEDIT.ONSCREEN? 53 \TEDIT.SETCARET)
(847 REPLACE 840 PANEPROPS 830 PANEPROPS 758 LINEDESCRIPTOR 742 LINEDESCRIPTOR 673 LINEDESCRIPTOR 664 LINEDESCRIPTOR 644 SELECTION 622 LINEDESCRIPTOR 545 LINEDESCRIPTOR 524 LINEDESCRIPTOR 504 SELECTION 443 LINEDESCRIPTOR 406 LINEDESCRIPTOR 399 PANEPROPS 389 PANEPROPS 378 PANEPROPS 368 PANEPROPS 345 LINEDESCRIPTOR 308 LINEDESCRIPTOR 291 LINEDESCRIPTOR 264 LINEDESCRIPTOR 234 REPLACE 229 INPUT 178 LINEDESCRIPTOR 149 LINEDESCRIPTOR 138 LINEDESCRIPTOR 127 LINEDESCRIPTOR 70 LEFT 48 OFF 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.ONSCREEN? :D8
(P 3 VAL P 2 BORDER P 1 REG P 0 PREG I 1 PROP I 0 PANE) »@g
Éd¥@
@ÉjAdgð²¿I[jKñ—JHKÙØHgð²CIIØmÿØ[d`ñ² HHØmÿØK`ÙÙ@ É,ÙHHØmÿØAdgð²¿I[jKñ<4B>HKÙ@ É,ÙHgð²=IIØmÿØ[d`ñ²HHØmÿØK`ÙÙ@ É,ÙHHØmÿØAdgð²¿@g
@g
Ùgð²@g
@g
ÙAdgð²;¿IIØ[d`ñ²HHØK`ÙÙ@ É,ÙHHØgð²4IIØ[d`ñ²HHØK`ÙÙ@ É,ÙHHØ(440 \TEDIT.THELP 423 \INSUREWINDOW 363 \INSUREWINDOW 308 \TEDIT.ONSCREEN? 297 \TEDIT.ONSCREEN? 276 \TEDIT.ONSCREEN? 265 \TEDIT.ONSCREEN? 228 \INSUREWINDOW 169 \INSUREWINDOW 124 \INSUREWINDOW 25 DSPCLIPPINGREGION 10 GETWINDOWPROP)
(415 SCREENWIDTH 399 SCREENWIDTH 382 PRIGHT 355 SCREENHEIGHT 337 SCREENHEIGHT 317 PTOP 303 LEFT 292 PRIGHT 283 WIDTH 271 BOTTOM 260 PTOP 250 HEIGHT 220 SCREENWIDTH 201 SCREENWIDTH 181 RIGHT 148 LEFT 116 SCREENHEIGHT 95 SCREENHEIGHT 73 TOP 44 BOTTOM 31 WINDOW 15 PANEPROPS 5 PANEPROPS)
()
\TEDIT.ONSCREEN.REGION :D8
(P 7 VHEIGHT P 6 VWIDTH P 5 VBOTTOM P 4 VLEFT P 3 VAL P 2 REG P 1 BORDER P 0 CREG I 0 WINDOW F 8 SCREEN) ¸o @g
´‚±“h@
j@ÉSJ[jKñ™dIØHhÙØ‚H]J[jKñ–HKÙIÙ<49>H\H[JJØmÿØIÙWÉñ<>@g
LÙ€K^H[dd`ñ<>¿@g
MÙ_LMNOh@
(181 DSPCLIPPINGREGION 160 \TEDIT.ONSCREEN? 128 \TEDIT.ONSCREEN? 38 DSPCLIPPINGREGION 25 GETWINDOWUSERPROP 14 NOTUSED 9 \TEDIT.THELP)
(155 PTOP 146 SCREENHEIGHT 123 PRIGHT 113 SCREEN 45 WINDOW 20 OFFSCREEN)
( 4 "FIX WIDTH AND HEIGHT")
\TEDIT.AFTERMOVEFN :D8
(I 0 PANE) &@g
–@ ¿@g@ (35 PUTWINDOWPROP 30 OFFSCREENP 17 \TEDIT.FILL.PANES 10 GETWINDOWUSERPROP)
(24 OFFSCREEN 5 OFFSCREEN)
()
OFFSCREENP :D8
(P 2 RESULT P 1 SCREEN P 0 REGION I 0 WINDOW) ©@ @É2jHñ—gJºHHØmÿØIÉñ—gJºgJ
«gJ
—gJºHHØmÿØIÉñ—gJºjHñ—gJºgJ
«gJ
—gJJ(156 MEMB 144 MEMB 80 MEMB 68 MEMB 5 WINDOWREGION)
(162 VERTICAL 150 BOTTOM 138 TOP 130 BOTTOM 116 TOP 107 SCREEN 86 HORIZONTAL 74 RIGHT 62 LEFT 54 RIGHT 45 SCREEN 26 LEFT 11 WINDOW)
()
\TEDIT.PROCIDLEFN :D8
(I 0 WINDOW) h@
@ @ ¢±ìg ’±Þg ’±Ð`g 2IâââlIlåÙºkJç¼»LHKÂåjð‘j€kjð’±›`g 2IâââlIlåÙºkJç¼»LHKÂåjð‘j€kjð³g@ É. ²X@ É. @g
Ü@g
°@g
ÉÊ8jð¦@ h@ (271 \TEDIT.BUTTONEVENTFN 262 \TEDIT.MENU.BUTTONEVENTFN 233 GETWINDOWPROP 220 GETWINDOWPROP 203 GETWINDOWPROP 192 TTY.PROCESS 185 \INSUREWINDOW 177 PROCESSP 170 \INSUREWINDOW 128 \KEYNAMETONUMBER 75 \KEYNAMETONUMBER 56 SHIFTDOWNP 42 SHIFTDOWNP 28 INSIDE? 23 LASTMOUSEY 17 LASTMOUSEX 11 DSPCLIPPINGREGION 4 GETMOUSESTATE)
(250 TEXTOBJ 245 TEXTOBJ 238 STREAM 228 TEXTSTREAM 215 TEXTSTREAM 208 TEXTOBJ 198 TEXTSTREAM 123 COPY 118 \LASTKEYSTATE 70 MOVE 65 \LASTKEYSTATE 51 META 37 SHIFT)
()
\TEDIT.PROCENTRYFN :D8
(I 1 OLDPROCESS I 0 NEWPROCESS) @ (5 \TEDIT.INTERRUPT.SETUP)
NIL
()
\TEDIT.PROCEXITFN :D8
(I 1 NEWP I 0 THISP) @g
g
´ @i
(29 \TEDIT.INTERRUPT.SETUP 20 GETWINDOWPROP 10 PROCESSPROP)
(15 TEXTSTREAM 5 WINDOW)
()
\TEDIT.DOWNCARET :D8
(P 0 DS I 2 Y I 1 X I 0 CARET) 7@@É@AAH
@BBH
@hH@Él
hAB
(52 \CARET.FLASH? 33 DSPYPOSITION 22 DSPXPOSITION)
(5 TEDITCARET)
()
\TEDIT.FLASHCARET :D8
(P 3 CARET P 2 PANE P 0 FIRSTTIME I 0 TEXTOBJ) ›i@"Idò@¿IÉ°:KÉKÉKÉKÉ ¿Jg
Éd Zg
É[ɳÑH²¨h¸KÉKÉhdKÉKÉ
°¡(151 \CARET.FLASH? 89 GETWINDOWPROP 68 GETWINDOWPROP 56 \CARET.FLASH.AGAIN)
(143 TEDITCARET 135 TEDITCARET 125 TEDITCARET 117 TEDITCARET 102 TEDITCARET 94 PANEPROPS 84 PANEPROPS 73 PANEPROPS 63 PANEPROPS 49 TEDITCARET 41 TEDITCARET 33 TEDITCARET 25 TEDITCARET 11 TEXTOBJ)
()
\TEDIT.UPCARET :D8
(I 2 Y I 1 X I 0 CARET) 5@É @iA´@AA@É
@BB@É
(50 DSPYPOSITION 37 DSPXPOSITION 12 \CARET.DOWN)
(18 TEDITCARET 5 TEDITCARET)
()
TEDIT.NORMALIZECARET :D8
(P 1 SELPANE P 0 TEXTOBJ I 2 EVEN.IF.VISIBLE I 1 SEL I 0 TSTREAM) p@ bdÉHÉJ¹AµHÉbI´IAÊjð³@HÉjñ´:B¨IH
³.@IAÉdgð•¿AÉ°gð•AÉ
kÙ„ @h(106 \TEDIT.SCROLLCH.TOP 101 \TEDIT.THELP 62 \TEDIT.VISIBLECARETP 5 TEXTSTREAM)
(88 RIGHT 75 LEFT 35 SELECTION 13 STREAM)
()
\TEDIT.SETCARET :D8
(P 12 LN P 11 L1 P 10 P P 6 Y P 5 X P 4 LINE P 0 CARET I 3 DISPOSITION I 2 TEXTOBJ I 1 PANE I 0 SEL) ‡
Ag
É1@Êjð’±CŸCgð§CgðœHmöd ¿±ÿ0@É@ÉB3 OdÔ¿Oɵ±Ò_¿Oµ±Ç_¿Oµ±»_¿O¢±œOdA𢱕¿@Édgð²,¿@ÉYOÉýñhð´IOÉkØýñ´O\²v@ɽ°pgð²K@É
kÙZOÉýñhð´JOÉkØýñ´O\²CLɲ@É
LÉkØÙjðœLɘLÉ\É
½°%@ɽ°¿°Og
ɵDLµ
Hmöd HÉ^hA
[KØmÿØñ³ÞLÉhA
ýñ³ÎHMN °Í_¿O_¿O_¿±þã(369 \TEDIT.DOWNCARET 355 DSPCLIPPINGREGION 330 DSPCLIPPINGREGION 318 \TEDIT.UPCARET 296 GETWINDOWPROP 281 \TEDIT.THELP 62 \TEDIT.UPCARET 10 GETWINDOWPROP)
(301 PANEPROPS 291 PANEPROPS 216 LINEDESCRIPTOR 200 RIGHT 165 LINEDESCRIPTOR 150 LEFT 87 TEXTOBJ 51 DISABLE 43 OFF 22 TEDITCARET 15 PANEPROPS 5 PANEPROPS)
()
\TEDIT.CARET :D8
(P 1 P I 1 CARET I 0 TEXTOBJ) O@Hdò?¿HÉ°9Yg
ÉA ¿Ig
ɵÉA(66 GETWINDOWPROP 52 \CARET.CREATE 29 GETWINDOWPROP)
(71 PANEPROPS 61 PANEPROPS 46 TEDITCARET 41 TEDITCARET 34 PANEPROPS 24 PANEPROPS 10 TEXTOBJ)
()
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
(RPAQQ TEDIT-WINDOWCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS TEDITCARET TEXTWINDOW
PANEPROPS) (MACROS FGETPANEPROP GETPANEPROP SETPANEPROP FSETPANEPROP) (MACROS PANEWINDOW PANEPROPS
PANEPREFIX PANESUFFIX PANETOPLINE PANECARET PANECARETY PANETEXTSTREAM PANETEXTOBJ PANEBOTTOMLINE
NEXTPANE PREVPANE) (MACROS PANETOP PANEPTOP PANEWIDTH PANELEFT PANERIGHT PANEBOTTOM PANEHEIGHT
PANEREGION) (I.S.OPRS inpanes backpanes) (MACROS ALLBUTTONSUP))) (INITRECORDS TEDITCARET PANEPROPS) (
FILES ATTACHEDWINDOW) (FNS TEDIT.DEFER.UPDATES) (FNS \TEDIT.WINDOW.CREATE \TEDIT.WINDOW.GETREGION
\TEDIT.WINDOW.SETUP \TEDIT.MINIMAL.WINDOW.SETUP \TEDIT.CLEARPANE \TEDIT.FILL.PANES) (FNS
\TEDIT.CURSORMOVEDFN \TEDIT.CURSOROUTFN \TEDIT.CURSORINFN \TEDIT.ACTIVE.WINDOWP \TEDIT.EXPANDFN
\TEDIT.MAINW \TEDIT.MAINSTREAM \TEDIT.PRIMARYPANE \TEDIT.PANELIST \TEDIT.NEWREGIONFN
\TEDIT.SET.WINDOW.EXTENT \TEDIT.SHRINK.ICONCREATE \TEDIT.SHRINKFN \TEDIT.PANEREGION) (* ;;
"Button events") (FNS \TEDIT.BUTTONEVENTFN \TEDIT.BUTTONEVENTFN.DOOPERATION
\TEDIT.BUTTONEVENTFN.GETOPERATION \TEDIT.BUTTONEVENTFN.CURSEL.INIT \TEDIT.BUTTONEVENTFN.INACTIVE
\TEDIT.BUTTONEVENTFN.INTITLE \TEDIT.COPYINSERTFN \TEDIT.FOREIGN.COPY) (FNS \TEDIT.PANE.SPLIT
\TEDIT.SPLITW \TEDIT.UNSPLITW \TEDIT.LINKPANES \TEDIT.UNLINKPANE) (P (MOVD? (QUOTE NILL) (QUOTE
GRAB-TYPED-REGION)) (MOVD? (QUOTE NILL) (QUOTE REGISTER-TYPED-REGION))) (INITVARS (\TEDIT.OP.WIDTH -1)
(\TEDIT.OP.BOTTOM 14) (\TEDIT.LINEREGION.WIDTH 16)) (GLOBALVARS \TEDIT.OP.WIDTH \TEDIT.OP.BOTTOM
\TEDIT.LINEREGION.WIDTH \TEDIT.SPLITCURSOR \TEDIT.LINECURSOR \TEDIT.MOVESPLITCURSOR
\TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR) (CURSORS BXCARET BXHICARET \TEDIT.LINECURSOR
\TEDIT.SPLITCURSOR \TEDIT.MOVESPLITCURSOR \TEDIT.UNSPLITCURSOR \TEDIT.MAKESPLITCURSOR) (COMS (* ;
"User-level %"is this a TEdit window?%" function.") (FNS TEDITWINDOWP)) (COMS (* ;
"User-typein support") (FNS TEDIT.GETINPUT \TEDIT.MAKEFILENAME)) (COMS (* ;
"Attached Prompt window support.") (FNS TEDIT.PROMPTWINDOW TEDIT.PROMPTPRINT TEDIT.PROMPTCLEAR
TEDIT.PROMPTFLASH \TEDIT.PROMPT.PAGEFULLFN) (INITVARS (TEDIT.PROMPT.FONT (FONTCREATE (QUOTE TERMINAL)
10)) (TEDIT.PROMPTWINDOW.HEIGHT NIL)) (GLOBALVARS TEDIT.PROMPT.FONT TEDIT.PROMPTWINDOW.HEIGHT)) (COMS
(* ; "Title creation and update") (FNS \TEDIT.FILENAME \TEDIT.DEFAULT.TITLE \TEDIT.WINDOW.TITLE
\TEDIT.LIKELY.FILENAME \TEDIT.UPDATE.TITLE)) (COMS (* ; "Screen updating utilities") (FNS
TEDIT.DEACTIVATE.WINDOW \TEDIT.RESHAPEFN \TEDIT.REPAINTFN \TEDIT.CLOSESPLITS \TEDIT.CLOSEPANE) (FNS
\TEDIT.SCROLLFN \TEDIT.SCROLLCH.TOP \TEDIT.SCROLLCH.BOTTOM \TEDIT.SCROLLUP \TEDIT.TOPLINE.YTOP
\TEDIT.SCROLLDOWN \TEDIT.SCROLL.CARET \TEDIT.VISIBLECARETP \TEDIT.VISIBLECHARP \TEDIT.BITMAPLINES
\TEDIT.SETPANE.TOPLINE \TEDIT.SHIFTLINES) (FNS \TEDIT.ONSCREEN? \TEDIT.ONSCREEN.REGION
\TEDIT.AFTERMOVEFN OFFSCREENP)) (COMS (* ; "Process-world interfaces") (FNS \TEDIT.PROCIDLEFN
\TEDIT.PROCENTRYFN \TEDIT.PROCEXITFN)) (COMS (INITVARS (\CARETRATE 333)) (* ;
"Caret handler; stolen from CHAT.") (FNS \TEDIT.DOWNCARET \TEDIT.FLASHCARET \TEDIT.UPCARET
TEDIT.NORMALIZECARET \TEDIT.SETCARET \TEDIT.CARET)) (COMS (* ; "Background menu") (DECLARE%:
DONTEVAL@LOAD DOCOPY (P (OR (SASSOC (QUOTE TEdit) BackgroundMenuCommands) (NCONC1
BackgroundMenuCommands (QUOTE (TEdit (QUOTE (TEDIT)) "Opens an empty TEdit window")))) (SETQ
BackgroundMenu NIL)))) (COMS (* ; "titled icon info, ") (FILES ICONW) (BITMAPS TEDITICON TEDITMASK) (
INITVARS (TEDIT.ICON.FONT (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (TEDIT.ICON.TITLE.REGION (
CREATEREGION 16 4 64 77)) (TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _
TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION))))))
(/DECLAREDATATYPE (QUOTE TEDITCARET) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER)) (QUOTE ((TEDITCARET 0 POINTER) (TEDITCARET 2 POINTER) (TEDITCARET 4
POINTER) (TEDITCARET 6 POINTER) (TEDITCARET 8 POINTER) (TEDITCARET 10 POINTER) (TEDITCARET 12 POINTER)
(TEDITCARET 14 POINTER) (TEDITCARET 16 POINTER) (TEDITCARET 18 POINTER) (TEDITCARET 20 POINTER))) (
QUOTE 22))
(/DECLAREDATATYPE (QUOTE PANEPROPS) (QUOTE (FULLXPOINTER POINTER POINTER POINTER POINTER XPOINTER
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PANEPROPS 0 FULLXPOINTER) (
PANEPROPS 2 POINTER) (PANEPROPS 4 POINTER) (PANEPROPS 6 POINTER) (PANEPROPS 8 POINTER) (PANEPROPS 10
XPOINTER) (PANEPROPS 12 POINTER) (PANEPROPS 14 POINTER) (PANEPROPS 16 POINTER) (PANEPROPS 18 POINTER)
(PANEPROPS 20 POINTER) (PANEPROPS 22 POINTER) (PANEPROPS 24 POINTER) (PANEPROPS 26 POINTER))) (QUOTE
28))
(FILESLOAD ATTACHEDWINDOW)
(MOVD? (QUOTE NILL) (QUOTE GRAB-TYPED-REGION))
(MOVD? (QUOTE NILL) (QUOTE REGISTER-TYPED-REGION))
(RPAQ? \TEDIT.OP.WIDTH -1)
(RPAQ? \TEDIT.OP.BOTTOM 14)
(RPAQ? \TEDIT.LINEREGION.WIDTH 16)
(RPAQ BXCARET (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@CH@@CH@@FL@@FL@@LF@@
) (QUOTE NIL) 3 4))
(RPAQ BXHICARET (CURSORCREATE (QUOTE #*(16 16)A@@@A@@@A@@@A@@@A@@@A@@@A@@@A@@@CH@@GL@@FL@@LF@@HB@@@@@@@@@@@@@@
) (QUOTE NIL) 4 7))
(RPAQ \TEDIT.LINECURSOR (CURSORCREATE (QUOTE #*(16 16)@@@A@@@C@@@G@@@O@@AO@@CO@@GO@@@O@@AK@@AI@@C@@@C@@@F@@@F@@@L@@@L@
) (QUOTE NIL) 15 15))
(RPAQ \TEDIT.SPLITCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@HA@@HA@@HA@@HA@@HA@@HA@@OO@@
) (QUOTE NIL) 4 4))
(RPAQ \TEDIT.MOVESPLITCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@HA@@HA@@OO@@OO@@HA@@HA@@OO@@
) (QUOTE NIL) 4 4))
(RPAQ \TEDIT.UNSPLITCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@HA@@JE@@II@@II@@JE@@HA@@OO@@
) (QUOTE NIL) 4 4))
(RPAQ \TEDIT.MAKESPLITCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@HA@@HA@@MK@@MK@@HA@@HA@@OO@@
) (QUOTE NIL) 4 4))
(RPAQ? TEDIT.PROMPT.FONT (FONTCREATE (QUOTE TERMINAL) 10))
(RPAQ? TEDIT.PROMPTWINDOW.HEIGHT NIL)
(RPAQ? \CARETRATE 333)
(OR (SASSOC (QUOTE TEdit) BackgroundMenuCommands) (NCONC1 BackgroundMenuCommands (QUOTE (TEdit (QUOTE
(TEDIT)) "Opens an empty TEdit window"))))
(SETQ BackgroundMenu NIL)
(FILESLOAD ICONW)
(RPAQQ TEDITICON #*(87 95)OOOOOOOOOOOOOOOOON@@@@@@OOOOOOOOOOOOOOOOON@@@@@@OOOOOOOOOOOOOOOOON@@@@@@O@AA@@CH@@@H@H@@@G@@@@@@OOOOOOOOOOOOOOOOOOH@@@@@OH@MJH@@F@@@@@@@B@N@@@@@OOOOOOOOOOOHGOOOOOOH@@@@MO@@@@@F@@@OL@@C@@@OH@@@LOOOOOOOOOOOOOOOOOOOON@@LGOOOOOOOOOOOOOOOOOOON@@LAOOOOOOOOOOOOOOOOOOON@@L@CN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@LD@N@@@@@@@@@@@@@@@@@N@@MLDN@@@@@@@@@@@@@@@@@N@@LGBN@@@@@@@@@@@@@@@@@N@@LDNN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@M@@N@@@@@@@@@@@@@@@@@N@@LGBN@@@@@@@@@@@@@@@@@N@@LDNN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@MH@N@@@@@@@@@@@@@@@@@N@@MFBN@@@@@@@@@@@@@@@@@N@@LELN@@@@@@@@@@@@@@@@@N@@LDBN@@@@@@@@@@@@@@@@@N@@LBBN@@@@@@@@@@@@@@@@@N@@LALN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@MH@N@@@@@@@@@@@@@@@@@N@@M@DN@@@@@@@@@@@@@@@@@N@@MDBN@@@@@@@@@@@@@@@@@N@@MCBN@@@@@@@@@@@@@@@@@N@@MNBN@@@@@@@@@@@@@@@@@N@@MCJN@@@@@@@@@@@@@@@@@N@@L@FN@@@@@@@@@@@@@@@@@N@@L@BN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@MH@N@@@@@@@@@@@@@@@@@N@@M@@N@@@@@@@@@@@@@@@@@N@@M@@N@@@@@@@@@@@@@@@@@N@@ML@N@@@@@@@@@@@@@@@@@N@@MCJN@@@@@@@@@@@@@@@@@N@@M@FN@@@@@@@@@@@@@@@@@N@@MHBN@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@L@@N@@@@@@@@@@@@@@@@@N@@N@@N@@@@@@@@@@@@@@@@@N@@G@@N@@@@@@@@@@@@@@@@@N@@GH@N@@@@@@@@@@@@@@@@@N@@CN@N@@@@@@@@@@@@@@@@@N@@AOHN@@@@@@@@@@@@@@@@@N@@@GOOOOOOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOOOOON@@@@COOOOOOOOOOOOOOOOOON@@
)
(RPAQQ TEDITMASK #*(87 95)OOOOOOOOOOOOOOOOON@@@@@@OOOOOOOOOOOOOOOOON@@@@@@OOOOOOOOOOOOOOOOON@@@@@@OOOOOOOOOOOOOOOOOO@@@@@@OOOOOOOOOOOOOOOOOOH@@@@@OOOOOOOOOOOOOOOOOON@@@@@OOOOOOOOOOOOOOOOOOOH@@@@OOOOOOOOOOOOOOOOOOOOH@@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@OOOOOOOOOOOOOOOOOOOOON@@GOOOOOOOOOOOOOOOOOOOON@@GOOOOOOOOOOOOOOOOOOOON@@COOOOOOOOOOOOOOOOOOOON@@AOOOOOOOOOOOOOOOOOOOON@@@GOOOOOOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOOOOON@@@@COOOOOOOOOOOOOOOOOON@@
)
(RPAQ? TEDIT.ICON.FONT (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD)))
(RPAQ? TEDIT.ICON.TITLE.REGION (CREATEREGION 16 4 64 77))
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
NIL
Reference in New Issue View Git Blame Copy Permalink